Добрый вечер, знатоки, помогите пожалуйста разобраться со следующей задачей: нужно чтобы с одного листа бралась дата (по горизонтальному циклу) и вставлялась в другой лист через определенный интервал. Получилось пока создать вот такой код: Но он не делает то что нужно. Не пойму в чем ошибка
| Код |
|---|
Sub пробег1() 'добавить последнюю колонку
Dim i As Long
Dim m As Long
For i = Sheets("BASE").[B1].Column To Sheets("BASE").[NC1].Column Step 1
For m = 2 To 17157 Step 47
Sheets("DATES").Cells(m, 1).Value = Sheets("BASE").Cells(4, i).Value
Next
Next
End Sub
|
