用一个值填充一行中的多个单元格

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"