Пытаться автоматически заполнить VB для действительно большой таблицы> 300 000 строк - PullRequest
Новая
       17

Пытаться автоматически заполнить VB для действительно большой таблицы> 300 000 строк

0 голосов
/ 25 июня 2011

В столбце A я пытаюсь продублировать значение ячейки для следующих 61 строки.Ниже моя попытка, но, похоже, она не работает.Я думаю, я не уверен, как дублировать значения ячеек.Спасибо за любые предложения, поскольку я хотел бы автоматизировать это, так как таблица содержит более 300 000 строк.

Sub AnotherAttempt()
'
' AnotherAttempt Macro
'
' Keyboard Shortcut: Ctrl+r
'
    iLoop = 2000
    For i = 1 To iLoop
            j = i - 1
            Selection.AutoFill Destination:=Range("A4652 + 62*j:A4652 + 62*i - 1")
    Next i

End Sub

1 Ответ

3 голосов
/ 25 июня 2011

Не ясно для меня, в чем здесь идея, но наверняка одна вещь не так ... как вы используете значения j и i.Это должно быть так: 

Selection.AutoFill Destination:=Range("A" & 4652 + 62*j & ":A" & 4652 + 62*i - 1)

Математика должна быть сделана из строки.

...