VBA设置工作表报错求助：运行时错误'9'下标越界

嘿，这个错误我太熟悉啦！Run-time error '9'本质就是代码找不到你指定的工作表，大概率是以下几个原因导致的，咱们一步步排查解决：

常见原因分析 #

• 工作表名称不匹配：你代码里写的Sheet1/Sheet2/Sheet3，和实际工作簿里的工作表名称（比如可能是"数据1"、"合并表"这种自定义名称）不一致，VBA找不到对应工作表就会报错。
• 工作表被隐藏或删除：如果目标工作表被删除，或者设为了非常隐藏状态，VBA也无法访问它。
• 未指定工作簿：如果你的宏是在其他工作簿里运行，没有明确指定要操作的工作簿，VBA会默认用当前激活的工作簿，要是当前工作簿没有这些工作表就会出错。

解决方案&修正后的代码 #

我给你写一段更健壮的代码，既能避免下标越界问题，又能完成你要的数据合并需求：

Sub MergeSheets()
    Dim wb As Workbook
    Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long, lastRow3 As Long
    
    ' 指定当前工作簿（如果是其他工作簿，改成Workbooks("你的工作簿名称.xlsx")）
    Set wb = ThisWorkbook
    
    ' 先检查工作表是否存在，避免下标越界
    On Error Resume Next
    Set sh1 = wb.Worksheets("Sheet1")
    Set sh2 = wb.Worksheets("Sheet2")
    Set sh3 = wb.Worksheets("Sheet3")
    On Error GoTo 0
    
    ' 如果有工作表不存在，提示用户
    If sh1 Is Nothing Or sh2 Is Nothing Or sh3 Is Nothing Then
        MsgBox "Sheet1/Sheet2/Sheet3中至少有一个不存在，请检查工作表名称！", vbExclamation
        Exit Sub
    End If
    
    ' 1. 将Sheet1的所有数据粘贴到Sheet2底部
    lastRow1 = sh1.Cells(sh1.Rows.Count, "A").End(xlUp).Row ' 获取Sheet1最后一行
    lastRow2 = sh2.Cells(sh2.Rows.Count, "A").End(xlUp).Row ' 获取Sheet2当前最后一行
    sh1.Range("A1:Z" & lastRow1).Copy sh2.Range("A" & lastRow2 + 1) ' 复制粘贴（列数根据你的数据调整，这里用Z列）
    
    ' 2. 将Sheet2的所有数据粘贴到Sheet3底部
    lastRow2 = sh2.Cells(sh2.Rows.Count, "A").End(xlUp).Row ' 重新获取Sheet2合并后的最后一行
    lastRow3 = sh3.Cells(sh3.Rows.Count, "A").End(xlUp).Row ' 获取Sheet3当前最后一行
    sh2.Range("A1:Z" & lastRow2).Copy sh3.Range("A" & lastRow3 + 1)
    
    MsgBox "数据合并完成！", vbInformation
End Sub

关键注意事项 #

• 核对工作表名称：确保你的工作簿里确实存在名为Sheet1、Sheet2、Sheet3的工作表，要是名称是自定义的（比如"销售数据"），就把代码里的"Sheet1"改成对应的名称。
• 调整列范围：代码里用了A1:Z，如果你的数据列更多或更少，改成实际的列范围（比如A1:XFD表示所有列，但不推荐，尽量用实际用到的列）。
• 避免空行干扰：如果工作表里有中间空行，End(xlUp)可能会提前停止，你可以先清理数据里的空行再运行宏。

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