VBA问题：复制指定列跳过表头时报错，求解决方法

错误根源 #

你用wsSource.Columns(targetColName).Offset(1,0)的方式逻辑有误——Columns对象代表整列，对整列执行Offset会生成超出工作表合法范围的区域（整列从第1行到最后一行，偏移1行就到了不存在的第0行），所以VBA抛出"Application-defined or object-defined error"。

另外原代码还有两个潜在问题：

• 变量声明不规范：Dim wsSource, wsResult As Worksheet里只有wsResult是Worksheet类型，wsSource默认是Variant；同理Name, UniqueId, OperatingStatus只有最后一个是Long，前两个是Variant，可能引发类型错误。
• 未处理Find找不到表头的情况：如果某个表头不存在，Find会返回Nothing，直接取.Column会触发运行时错误。

修正方案 #

直接定位到源列的数据区域（从第2行开始到最后一行有数据的行），再复制到目标工作表对应位置，同时修正变量声明和错误处理：

Sub CopyColumns()
    ' 明确声明每个变量的类型
    Dim wsSource As Worksheet, wsResult As Worksheet
    Dim colName As Long, colUniqueId As Long, colOperatingStatus As Long
    Dim lastRow As Long
    
    ' 初始化工作表对象
    Set wsSource = ThisWorkbook.Sheets("Source")
    Set wsResult = ThisWorkbook.Sheets("Result")
    
    ' 查找表头列，同时处理找不到的情况
    With wsSource.Rows(1)
        If Not .Find("#BASEDATA#name") Is Nothing Then
            colName = .Find("#BASEDATA#name").Column
        Else
            colName = 0
        End If
        
        If Not .Find("#BASEDATA#uniqueId") Is Nothing Then
            colUniqueId = .Find("#BASEDATA#uniqueId").Column
        Else
            colUniqueId = 0
        End If
        
        If Not .Find("#BASEDATA#operatingStatus") Is Nothing Then
            colOperatingStatus = .Find("#BASEDATA#operatingStatus").Column
        Else
            colOperatingStatus = 0
        End If
    End With
    
    ' 复制数据（排除表头）
    If colName <> 0 Then
        ' 获取源列最后一行有数据的行号
        lastRow = wsSource.Cells(wsSource.Rows.Count, colName).End(xlUp).Row
        ' 复制从第2行到lastRow的区域
        wsSource.Range(wsSource.Cells(2, colName), wsSource.Cells(lastRow, colName)).Copy _
            Destination:=wsResult.Cells(2, 3)
    End If
    
    If colUniqueId <> 0 Then
        lastRow = wsSource.Cells(wsSource.Rows.Count, colUniqueId).End(xlUp).Row
        wsSource.Range(wsSource.Cells(2, colUniqueId), wsSource.Cells(lastRow, colUniqueId)).Copy _
            Destination:=wsResult.Cells(2, 4)
    End If
    
    If colOperatingStatus <> 0 Then
        lastRow = wsSource.Cells(wsSource.Rows.Count, colOperatingStatus).End(xlUp).Row
        wsSource.Range(wsSource.Cells(2, colOperatingStatus), wsSource.Cells(lastRow, colOperatingStatus)).Copy _
            Destination:=wsResult.Cells(2, 1)
    End If
    
End Sub

关键说明 #

1. 数据区域定位：用wsSource.Cells(wsSource.Rows.Count, colName).End(xlUp).Row获取源列最后一行有数据的行号，避免复制整列的大量空行，只复制有效数据。
2. 错误处理：用If Not .Find(...) Is Nothing判断表头是否存在，防止找不到表头时的运行时错误。
3. 变量声明：明确每个变量的类型，避免Variant类型带来的潜在问题。

内容的提问来源于stack exchange，提问作者Gergely Kovács