Доброго времени суток.
Подскажите можно ли в VBA перебрать строки условно 1-10 потом 20-30 одним циклом и с использованием 1 переменной
Фрагмент кода:
| Код |
|---|
For lr = 2 To 14
Workbooks("Ïðàéñ ýêñïåðèìåíòìàêðîñ").Sheets("ÑÎ0Ï").Range("A" & lr & ":B" & lr).Copy
Workbooks("Ñòîë îñòðîâíîé áåç ïîëêè (500-2000).xlsx").Sheets("Ñåáåñòîèìîñòü").Range("D2").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Workbooks("Ñòîë îñòðîâíîé áåç ïîëêè (500-2000).xlsx").Sheets("Ñåáåñòîèìîñòü").Range("C2").Copy
Workbooks("Ïðàéñ ýêñïåðèìåíòìàêðîñ.xlsm").Sheets("ÑÎ0Ï").Range("K" & lr).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next lr
' Dim ar As Long
' For ar = 19 To 31
' Workbooks("Ïðàéñ ýêñïåðèìåíòìàêðîñ.xlsm").Sheets("ÑÎ0Ï").Range("A" & ar & ":B" & ar).Copy
' Workbooks("Ñòîë îñòðîâíîé áåç ïîëêè (500-2000).xlsx").Sheets("Ñåáåñòîèìîñòü").Range("D2").PasteSpecial Paste:=xlPasteValues, _
' Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' Workbooks("Ñòîë îñòðîâíîé áåç ïîëêè (500-2000).xlsx").Sheets("Ñåáåñòîèìîñòü").Range("C2").Copy
' Workbooks("Ïðàéñ ýêñïåðèìåíòìàêðîñ.xlsm").Sheets("ÑÎ0Ï").Range("K" & ar).PasteSpecial Paste:=xlPasteValues, _
' Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' Next ar
|
