VBA代码填充行内1299个单元格为'0530报错：索引超出有效范围

嘿，咱们来拆解下你的代码为啥会抛出这个错误，顺便给你几个靠谱的解决办法～

首先先看你的原代码：

Sub FillValues() 
    Dim X As Integer 
    For X = 2 To 1300 
        Worksheets("Table1").Range("B" & X).Value = "'0530" 
    Next X 
End Sub

这个报错的核心是VBA找不到你指定的对象，或者引用的范围超出了有效边界，针对你的代码，最可能的原因和解决路径如下：

最常见原因：工作表名称不匹配 #

你代码里写的Worksheets("Table1")，大概率是和实际工作簿里的工作表名称对不上：

• 可能是拼写错误：比如实际工作表叫「Table 1」（带空格）、「table1」（全小写）或者「数据表1」，和代码里的名称完全不一致；
• 或者当前工作簿里根本没有叫「Table1」的工作表。

解决办法： #

1. 打开你的工作簿，右键点击目标工作表的标签，选择「重命名」，确认它的精确名称；
2. 把代码里的"Table1"改成这个精确名称，比如如果工作表叫「销售数据」，就改成Worksheets("销售数据")。

更安全的工作表引用方式（避开名称坑） #

如果不想因为拼写出错踩坑，可以改用两种更稳妥的引用方式：

• 用工作表索引号：比如工作簿里第一个工作表就是Worksheets(1)，第二个是Worksheets(2)，以此类推：

Sub FillValues() 
    Dim X As Integer 
    For X = 2 To 1300 
        ThisWorkbook.Worksheets(1).Range("B" & X).Value = "'0530" 
    Next X 
End Sub

• 用当前激活的工作表：运行代码前先选中目标工作表，然后用ActiveSheet直接引用：

Sub FillValues() 
    Dim X As Integer 
    For X = 2 To 1300 
        ActiveSheet.Range("B" & X).Value = "'0530" 
    Next X 
End Sub

额外优化：一次性填充效率更高 #

循环1299次填充单元格其实效率很低，还容易出小问题，直接一次性填充整个区域会更快更稳定：

Sub FillValues()
    ' 直接填充B2到B1300的所有单元格
    Worksheets("Table1").Range("B2:B1300").Value = "'0530"
End Sub

测试小技巧 #

如果还是不确定问题，可以先把循环范围改小，比如把1300改成10，看看能不能正常运行。如果小范围没问题，说明不是行号的问题，还是工作表引用的问题。

内容的提问来源于stack exchange，提问作者D3merzel