Создайте ценники из ваших данных в Excel с помощью функции Tocol или VBA.

Описание: Создавайте ценники на основе ваших данных в Excel с помощью функции tocol или VBA.
Метод tocol быстрее, но не включает форматирование, в отличие от метода VBA, который будет включен.

Бесплатные шаблоны и шаблоны с кодом доступны для покупки за 50 долларов США.

https://www.easyexcelanswers.com/temp...
Дополнительные шаблоны могут быть доступны по запросу.

Ознакомьтесь с моим введением в VBA:    • Introduction to VBA for Excel  

Перейдите по этой ссылке, чтобы ознакомиться с моими индивидуальными тренингами: http://www.calendly.com/easyexcelanswers

Для получения дополнительной помощи посетите мой сайт www.easyexcelanswers.com или напишите мне по адресу [email protected].

Свяжитесь со мной по вопросам настройки этого шаблона под ваши нужды.

Перейдите по ссылке для онлайн-консультации по Excel: http://www.calendly.com/easyexcelanswers

Я могу предоставить онлайн-помощь на вашем компьютере по разумной цене.

Я использую Tube Buddy для продвижения своих видео. Посмотрите их.

https://www.Tubebuddy.com/easyexcelan...

Подпишитесь на меня в Facebook.
  / easyexcel.answers  

IG @barbhendersonconsulting

Вы можете помочь и создать перевод на свой язык.
http://www.youtube.com/timedtext_cs_p...

*Это описание может содержать партнёрские ссылки. При переходе по ним я могу получить небольшую комиссию без каких-либо дополнительных затрат с вашей стороны. Я рекомендую только те товары и услуги, которыми сам пользовался или с которыми имею опыт.

Как вставить код VBA в Excel    • How to insert VBA code in Excel  
Sub price()
Dim r, c As Long
Dim ws As Worksheet
Dim ps As Worksheet
Dim row As Long
Set ws = Sheet1
Set ps = Sheet3
r = 2
row = 2

lastrow = ws.Cells(Rows.Count, 1).End(xlUp).row
For r = 2 To lastrow
c = 1
row = row + 1
Do While c меньше 5
ws.Cells(r, c).Copy
ps.Cells(row, 1).PasteSpecial Paste:=xlPasteFormats
ps.Cells(row, 1).PasteSpecial Paste:=xlPasteValues
row = row + 1
c = c + 1
Loop
Next r

End Sub