Заполните много ячеек подряд одним значением

Question

Я пытаюсь заполнить 1299 ячеек подряд значением 0530, используя следующий код:

Sub FillValues()

    Dim X As Integer

    For X = 2 To 1300

        Worksheets("Table1").Range("B" & X).Value = "'0530"

    Next X

End Sub

По какой-то причине это не работает, и я не знаю почему. Ошибка «Индекс за пределами допустимого диапазона».

Answer 1

Пожалуйста, попробуйте (без петли):

Worksheets("Table1").Range("B2:B1300").Value = "'0530"