Как скопировать диапазон ячеек в другой столбец на основе оператора For - PullRequest
0 голосов
/ 30 августа 2018

Я очень плохо знаком с VBA и пытаюсь скопировать диапазон дат в первом столбце листа в другой столбец. Я использую команду «For», поэтому число отображаемых дат может меняться в зависимости от ввода в другой ячейке.

Вот что у меня есть:

Here's what I have so far

Sub Plus1_ForLoop()

Range("G:G").ClearContents

Dim num_months As Integer

num_months = Cells(3, 8) * 12 - 1

For i = 3 To WorksheetFunction.CountA(Range("F3:F1113")) - (num_months - 2)

    Cells(i, 7).Formula = "=product(F" & i & ":F" & i + num_months & ")^(1/" & Cells(3, 8) & ")-1"

Next i

For i = 3 To WorksheetFunction.CountA(Range("A3:A1113")) - (num_months - 2)

    Cells(i, 9) = Range("A & i & :A & i + num_months & ")

Next i

End Sub

Мой вопрос касается второго кода. Я знаю, что проделал ужасную работу по объяснению, но я ценю любые указания.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...