Добрый день
Имеется массив строк (Q202:Z...). Строку (Q202:Z202) копируем в (E200:N200). Строку (E190:AO190) копируем в
(AD202:BM202) - первую строку нового массива. Далее берем следующую строку (Q203:Z203) и так далее построчно.
Строки E200 и E190 связаны формулами. Таким образом выполняем 2 обратные операции: из массива строки копируем
в одну и ту же, а затем из одной строки создаем другой массив строк. Для двух строк рекордером я записал макрос, но от этого
понятнее, как можно использовать оператор "For...Next, не стало. Бьюсь уже двое суток. Помогите, пожалуйста.
Имеется массив строк (Q202:Z...). Строку (Q202:Z202) копируем в (E200:N200). Строку (E190:AO190) копируем в
(AD202:BM202) - первую строку нового массива. Далее берем следующую строку (Q203:Z203) и так далее построчно.
Строки E200 и E190 связаны формулами. Таким образом выполняем 2 обратные операции: из массива строки копируем
в одну и ту же, а затем из одной строки создаем другой массив строк. Для двух строк рекордером я записал макрос, но от этого
понятнее, как можно использовать оператор "For...Next, не стало. Бьюсь уже двое суток. Помогите, пожалуйста.
| Код |
|---|
Sub Project()
'
Range("Q202:Z202".Select
Selection.Copy
Range("E200".Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E190:AN190".Select
Application.CutCopyMode = False
Selection.Copy
Range("AD202".Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q203:Z203".Select
Application.CutCopyMode = False
Selection.Copy
Range("E200".Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E190:AN190".Select
Application.CutCopyMode = False
Selection.Copy
Range("AD203".Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub |
