刚好碰到过类似的需求，给你整理了三个实用方法，从纯Excel操作到代码工具都有，看你更习惯哪种：

适合不熟悉编程的用户，用基础函数就能搞定：

• 第一步：把两个表格的表头行单独提取出来，放到同一个新工作表的两列（比如A列放A_1.xlsx的所有表头，B列放B_1.xlsx的所有表头）
• 第二步：用COUNTIF函数判断B列表头是否在A列存在。在C2单元格输入公式：=COUNTIF(A:A,B2)，然后下拉填充整列。结果为0的行，对应的B列表头就是B_1.xlsx独有的差异列。
• 第三步：筛选出C列值为0的行，记下这些差异列的名称。
• 第四步：回到B_1.xlsx，用数据-筛选功能，只勾选这些差异列；或者直接手动选中这些列复制粘贴到新文件，完成提取。

如果经常要处理这类批量列提取，用代码效率最高：
首先安装依赖库（如果没装过）：

pip install pandas openpyxl

然后运行以下代码：

import pandas as pd

# 读取两个Excel文件
df_a = pd.read_excel('A_1.xlsx')
df_b = pd.read_excel('B_1.xlsx')

# 找出B中独有的列名
diff_columns = [col for col in df_b.columns if col not in df_a.columns]

# 提取差异列并保存为新文件
df_diff = df_b[diff_columns]
df_diff.to_excel('B_差异列提取结果.xlsx', index=False)

这段代码会自动识别两个表格的列名差异，一键提取并保存结果，不管多少列都能秒处理。

如果需要重复执行这个操作，可以写个宏一键完成：

1. 打开B_1.xlsx，按Alt+F11打开VBA编辑器
2. 右键点击当前工作簿，选择「插入-模块」
3. 粘贴以下代码：

Sub ExtractUniqueColumns()
    Dim wsSource As Worksheet, wsTarget As Worksheet, wsCompare As Worksheet
    Dim colName As String
    Dim i As Integer, targetCol As Integer
    Dim isExist As Boolean
    
    ' 假设A_1.xlsx已打开，且数据在第一个工作表
    Set wsCompare = Workbooks("A_1.xlsx").Sheets(1)
    Set wsSource = ThisWorkbook.Sheets(1)
    Set wsTarget = ThisWorkbook.Sheets.Add(After:=wsSource)
    wsTarget.Name = "差异列结果"
    
    targetCol = 1
    ' 遍历Source表的所有列
    For i = 1 To wsSource.Cells(1, Columns.Count).End(xlToLeft).Column
        colName = wsSource.Cells(1, i).Value
        isExist = False
        
        ' 检查Compare表是否存在该列名
        On Error Resume Next
        isExist = Not wsCompare.Rows(1).Find(colName, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing
        On Error GoTo 0
        
        ' 不存在则复制到目标表
        If Not isExist Then
            wsSource.Columns(i).Copy Destination:=wsTarget.Columns(targetCol)
            targetCol = targetCol + 1
        End If
    Next i
    
    MsgBox "差异列提取完成！"
End Sub

4. 运行宏前确保A_1.xlsx处于打开状态，执行宏后会自动生成名为「差异列结果」的新工作表，包含所有独有的列。

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