VBA代码替换EntireRow.Copy实现指定非连续多列（如A、C列）复制

问题背景 #

原代码通过EntireRow.Copy复制整行数据到"Error Log"工作表，现需修改为仅复制指定的非连续列（例如A列和C列），而非整行或连续列。

原代码片段：

If Not rngCopy Is Nothing Then rngCopy.EntireRow.Copy _
     Sheets("Error Log").Range("A" & Rows.Count).End(xlUp).Offset(1)

解决方案 #

方法一：合并非连续列批量复制 #

使用Union函数将多个非连续列区域合并，一次性复制到目标位置，保持列对应关系：

If Not rngCopy Is Nothing Then
    ' 合并A列和C列区域并复制
    Union(rngCopy.EntireRow.Columns("A"), rngCopy.EntireRow.Columns("C")).Copy _
        Sheets("Error Log").Range("A" & Sheets("Error Log").Rows.Count).End(xlUp).Offset(1)
End If

要点说明

• Union函数支持合并任意数量的非连续区域，如需添加更多列，直接在函数内追加即可（如Union(..., rngCopy.EntireRow.Columns("E"))）
• 明确指定Sheets("Error Log").Rows.Count，避免因当前活动表不同导致的行计数错误

方法二：逐列单独复制（灵活调整目标位置） #

如果需要将源列映射到目标表的不同列位置（比如源A列到目标B列），可以逐列复制：

If Not rngCopy Is Nothing Then
    Dim targetRow As Long
    ' 获取目标表的下一个空行
    targetRow = Sheets("Error Log").Range("A" & Sheets("Error Log").Rows.Count).End(xlUp).Offset(1).Row
    
    ' 复制源A列到目标A列
    rngCopy.EntireRow.Columns("A").Copy Sheets("Error Log").Range("A" & targetRow)
    ' 复制源C列到目标B列
    rngCopy.EntireRow.Columns("C").Copy Sheets("Error Log").Range("B" & targetRow)
End If

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