Excel VBA批量替换同工作簿扩展名时报下标越界错误如何解决

• 核心触发原因是工作表名称不匹配：你已将原Sheet3的工作表标签名修改为HYPERLINKS，VBA中Worksheets("名称")的索引规则是匹配工作表的自定义标签名，而非Excel后台默认的Sheet1/Sheet2/Sheet3内部编号，因此找不到名为Sheet3的工作表，直接触发下标越界错误。
• 额外风险点：代码中未绑定工作表的Cells(i,10)、Cells(i,11)会默认读取当前活动工作表的内容，如果运行代码时活动表不是存储规则的工作表，会出现替换值错误。
• 你之前尝试的取消冻结窗格、补全B列内容的操作和该报错无关，错误根源是工作表引用错误。

直接使用修改后的代码即可，调整了工作表引用、删除了冗余的Select操作、规范了单元格范围匹配你的实际需求：

Sub Ext2FileType ()
    Dim ws As Worksheet
    ' 直接用标签名引用工作表，也可以替换为Sheet3使用内部编号，不受标签名修改影响
    Set ws = Worksheets("HYPERLINKS")
    For i = 3 To 73
        ' 范围调整为B3开始到最大5万行，匹配你的实际数据存储规则
        ws.Range("B3:B50000").Replace _
            What:=ws.Cells(i, 10).Value, _
            Replacement:=ws.Cells(i, 11).Value, _
            LookAt:=xlWhole, _
            SearchOrder:=xlByRows, _
            MatchCase:=False
    Next
    ws.Cells(1, 1).Select
End Sub

如果后续你还会修改工作表标签名，推荐把Worksheets("HYPERLINKS")替换为VBA编辑器中显示的工作表内部编号Sheet3，该编号不会随标签修改变化，兼容性更强。

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