VBA代码下标越界问题求助：指定列跨工作表复制语法修正

首先，我先帮你修正代码，同时拆解问题原因，确保你能理解每一步的改进点：

Sub L4toMetrics()
    Dim srcWB As Workbook
    Dim srcWS As Worksheet
    Dim destWB As Workbook
    Dim destWS As Worksheet
    Dim copyRange As Range
    
    ' 1. 明确绑定源工作簿和工作表（假设当前代码存放在源数据所在工作簿）
    Set srcWB = ThisWorkbook
    On Error Resume Next
    Set srcWS = srcWB.Worksheets("Filtered Data")
    On Error GoTo 0
    
    ' 先检查源工作表是否存在，避免下标越界
    If srcWS Is Nothing Then
        MsgBox "找不到名为 'Filtered Data' 的工作表，请检查名称拼写/空格！", vbExclamation
        Exit Sub
    End If
    
    ' 2. 绑定目标工作簿（请替换成你的目标工作簿实际文件名，比如"2018 Tracker.xlsx"）
    On Error Resume Next
    Set destWB = Workbooks("目标工作簿名称.xlsx")
    On Error GoTo 0
    
    If destWB Is Nothing Then
        MsgBox "目标工作簿未打开，请先打开它再运行代码！", vbExclamation
        Exit Sub
    End If
    
    ' 检查目标工作表是否存在
    On Error Resume Next
    Set destWS = destWB.Worksheets("February 2018 Tracker (Raw)")
    On Error GoTo 0
    
    If destWS Is Nothing Then
        MsgBox "找不到目标工作表 'February 2018 Tracker (Raw)'，请检查名称！", vbExclamation
        Exit Sub
    End If
    
    ' 3. 正确组合需要复制的不连续列范围
    With srcWS
        ' 用Union函数拼接多个不连续区域，每个区域都明确归属源工作表
        Set copyRange = Union(.Range("B:F"), .Range("J:J"), .Range("N:Q"), .Range("S:V"))
        
        ' 如果你只想复制有数据的区域（而非整列），可以用下面的代码替换上面一行
        ' Dim lastRowB As Long, lastRowJ As Long, lastRowN As Long, lastRowS As Long
        ' lastRowB = .Cells(.Rows.Count, "B").End(xlUp).Row
        ' lastRowJ = .Cells(.Rows.Count, "J").End(xlUp).Row
        ' lastRowN = .Cells(.Rows.Count, "N").End(xlUp).Row
        ' lastRowS = .Cells(.Rows.Count, "S").End(xlUp).Row
        ' Set copyRange = Union(.Range("B2:F" & lastRowB), .Range("J2:J" & lastRowJ), _
        '                      .Range("N2:Q" & lastRowN), .Range("S2:V" & lastRowS))
    End With
    
    ' 4. 复制到目标工作表（这里默认从A1开始粘贴，也可以改成追加到已有数据后面）
    copyRange.Copy Destination:=destWS.Range("A1")
    
    ' 如果要追加数据，替换上面一行为下面的代码
    ' Dim destLastRow As Long
    ' destLastRow = destWS.Cells(destWS.Rows.Count, "A").End(xlUp).Row + 1
    ' copyRange.Copy Destination:=destWS.Range("A" & destLastRow)
    
    MsgBox "数据复制完成！", vbInformation
End Sub

错误原因与修正说明 #

1. 工作表/工作簿名称引用不明确（最常见的下标越界原因） #

你之前的代码大概率没有明确指定工作簿，导致VBA默认引用了错误的工作簿；或者工作表名称拼写有误（比如大小写不一致、多了/漏了空格，比如February 2018 Tracker (Raw)里的空格和括号必须完全匹配）。

• 修正：通过On Error Resume Next先检查工作表/工作簿是否存在，提前拦截错误，避免直接引用导致下标越界。

2. 不连续列的选取语法错误 #

VBA中直接用Range("B:F,J:J,N:Q,S:V")这种写法容易出问题，正确的方式是用Union函数来组合多个独立的区域，同时必须给每个区域指定所属的工作表（代码里的.表示归属srcWS）。

• 修正：用Union依次拼接需要的列范围，确保每个区域都绑定到源工作表。

3. 整列复制的潜在问题 #

如果直接复制整列，不仅会复制大量空白行影响性能，还可能覆盖目标工作表的已有数据；如果源列完全空白，也可能触发异常。

• 修正：提供了“仅复制有数据区域”的可选代码，通过End(xlUp)获取最后一行数据的行号，精准限定复制范围。

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