VBA多工作表列合并至新表报错求助（运行时错误1004）

• 空表End方法触发越界：新建的A_final表为空时，Range("A1").End(xlToRight)会直接跳到工作表最后一列（旧版Excel是256列，新版是16384列），再用Offset(0,1)就超出了列的最大范围，直接触发1004错误。
• 整列复制的粘贴逻辑错配：你复制了整列数据，却试图粘贴到单个单元格偏移后的位置，粘贴范围不匹配也是报错的原因之一。
• 冗余的Select操作：sheets("A_final").Select完全没必要，不仅拖慢代码，还可能因工作表激活状态异常引发其他问题。

Sub CopyColumns3()
    Dim sheetNames As Variant
    sheetNames = Array("temp_column", "normalized_column", "derivative_column")
    
    Dim columnLetters As Variant
    columnLetters = Array("B", "C", "D")
    
    Dim i As Integer, j As Integer
    Dim destSheet As Worksheet
    Dim destCol As Integer
    
    ' 先检查目标表是否已存在，避免重复创建
    On Error Resume Next
    Set destSheet = ThisWorkbook.Sheets("A_final")
    On Error GoTo 0
    
    If destSheet Is Nothing Then
        ' 新建目标工作表
        Set destSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        destSheet.Name = "A_final"
    End If
    
    ' 遍历每个源工作表
    For i = 0 To UBound(sheetNames)
        ' 检查当前源工作表是否存在，防止拼写错误
        On Error Resume Next
        Dim sourceSheet As Worksheet
        Set sourceSheet = ThisWorkbook.Sheets(sheetNames(i))
        On Error GoTo 0
        
        If Not sourceSheet Is Nothing Then
            ' 遍历要复制的列
            For j = 0 To UBound(columnLetters)
                ' 计算目标表的第一个空列
                If destSheet.Cells(1, destSheet.Columns.Count).End(xlToLeft).Column = 1 And destSheet.Cells(1, 1).Value = "" Then
                    destCol = 1
                Else
                    destCol = destSheet.Cells(1, destSheet.Columns.Count).End(xlToLeft).Column + 1
                End If
                
                ' 复制源列到目标列，按需选择粘贴类型
                sourceSheet.Columns(columnLetters(j)).Copy
                destSheet.Columns(destCol).PasteSpecial xlPasteAll ' 要仅复制数值就改成xlPasteValues
                
                ' 清空剪贴板，释放内存
                Application.CutCopyMode = False
            Next j
        Else
            MsgBox "找不到工作表：" & sheetNames(i) & "，请检查名称是否正确！"
        End If
    Next i
End Sub

• 用对象变量替代重复调用：定义destSheet和sourceSheet直接引用工作表，不用反复写Sheets()，代码更简洁高效。
• 正确计算空列位置：从工作表最右侧往左找最后有内容的列，空表时会定位到A列，再判断A1是否为空来确定起始列，彻底避免越界问题。
• 增加容错检查：提前检查源工作表是否存在，避免因拼写错误崩溃；同时检查目标表是否已存在，防止重复创建。
• 去掉无用的Select：直接通过对象引用完成复制粘贴，不会因工作表切换出问题。
• 灵活的粘贴选项：可以根据需求选择粘贴全部内容还是仅数值，适配不同场景。

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