如何将A:L区域内表头为AGGR的列复制粘贴至目标位置？

需求概述 #

在Excel中完成：

• 从A:L列范围内定位表头为「AGGR」的列
• 将该列（含表头）复制到当前选中的单元格起始位置
• 示例：把第一个表格的AGGR列复制到第二个表格Column F的右侧

手动操作步骤 #

• 找到A:L列的表头行（通常为第1行），定位表头为「AGGR」的列，点击列标选中整列
• 按Ctrl+C复制该列
• 选中目标起始单元格（如示例中的G1单元格）
• 按Ctrl+V完成粘贴

VBA批量/自动处理代码 #

如果需要重复执行该操作，可以使用以下宏代码：

Sub CopyAGGRColumn()
    Dim sourceCol As Range
    Dim targetCell As Range
    Dim headerRow As Integer
    
    ' 设定表头所在行，可根据实际表格修改
    headerRow = 1
    
    ' 验证选中的目标单元格是否唯一
    If Selection.Cells.Count > 1 Then
        MsgBox "请仅选中单个单元格作为粘贴起始位置"
        Exit Sub
    End If
    Set targetCell = Selection
    
    ' 在A:L范围的表头行查找「AGGR」
    On Error Resume Next
    Set sourceCol = Range("A" & headerRow & ":L" & headerRow).Find(What:="AGGR", LookIn:=xlValues, LookAt:=xlWhole)
    On Error GoTo 0
    
    ' 找到目标列则复制粘贴，否则提示
    If Not sourceCol Is Nothing Then
        sourceCol.EntireColumn.Copy targetCell
    Else
        MsgBox "A:L范围内未找到表头为「AGGR」的列"
    End If
End Sub

使用说明：

1. 按下Alt+F11打开VBA编辑器
2. 插入新模块，粘贴上述代码
3. 返回Excel，选中目标起始单元格，执行该宏

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