VBA技术问题：如何将复制的列内容追加到另一列末尾

你的核心问题在于复制整列后，没有正确调用粘贴方法，且代码里的Activate/Select操作容易引发错误。以下是优化后的实现方案：

修改后的代码 #

Public Function cpcolumn(newIndex_key As Integer, oldIndex_key As Integer)
    Dim sourceWs As Worksheet
    Dim targetWs As Worksheet
    Dim lastRowTarget As Long
    Dim sourceDataRange As Range
    
    ' 直接绑定源、目标工作表，避免窗口切换操作
    Set sourceWs = Workbooks("MY21 J1 EA PFMEA & Control Plan.xlsx").Worksheets("List")
    Set targetWs = Workbooks("PFMEAandCP_Assembly_External.xlsm").Worksheets("List")
    
    ' 获取目标列的粘贴起始行（B列数据区域最后一行+1）
    lastRowTarget = targetWs.Range("B1").CurrentRegion.Rows.Count + 1
    
    ' 仅复制源列中有数据的区域，避免复制整列空行
    Set sourceDataRange = sourceWs.Columns(oldIndex_key).Resize( _
        sourceWs.Cells(sourceWs.Rows.Count, oldIndex_key).End(xlUp).Row)
    sourceDataRange.Copy
    
    ' 粘贴到目标位置，可按需选择粘贴类型
    targetWs.Cells(lastRowTarget, newIndex_key).PasteSpecial xlPasteAll
    
    ' 清除剪贴板，释放系统资源
    Application.CutCopyMode = False
End Function

关键优化说明 #

• 移除Activate/Select：直接通过工作簿、工作表对象引用，避免因窗口切换导致的执行错误，同时提升代码效率。
• 精准复制数据区域：不再复制整列（默认1048576行），仅复制源列中实际有数据的部分，减少冗余操作。
• 明确变量类型：给newIndex_key/oldIndex_key指定Integer类型，lastRowTarget用Long类型（避免行数超过32767时的溢出问题）。
• 灵活粘贴控制：使用PasteSpecial可指定粘贴类型，比如仅粘贴值（xlPasteValues）、仅粘贴格式（xlPasteFormats）等，按需调整即可。

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