这里有两个实用的方案，分别基于Python（适合批量处理或非Excel环境）和VBA（适合直接在Excel内操作），你可以根据自己的场景选择：

这个方案用pandas和openpyxl库处理，代码简洁，适合自动化批量转换。

步骤1：安装依赖 #

打开命令行，执行以下命令安装所需库：

pip install pandas openpyxl

步骤2：编写转换代码 #

创建一个Python脚本，替换文件路径后运行：

import pandas as pd

# 替换为你的原始Excel文件路径
input_file = "原始表格.xlsx"
# 替换为你想要输出的文件路径
output_file = "转换后的表格.xlsx"

# 读取原始表格数据
df = pd.read_excel(input_file, engine="openpyxl")

# 创建Excel写入对象，支持多工作表
with pd.ExcelWriter(output_file, engine="openpyxl") as writer:
    # 遍历每一列的标题和对应数据
    for col_name, col_data in df.items():
        # 处理工作表名非法字符（Excel不允许/ \ ? * : [ ]这些字符）
        clean_sheet_name = col_name.replace("/", "_").replace("\\", "_").replace("?", "_")
        clean_sheet_name = clean_sheet_name.replace("*", "_").replace(":", "_").replace("[", "_").replace("]", "_")
        
        # 将列数据转为一行（作为新表的表头）
        new_table = pd.DataFrame([col_data.values.tolist()])
        # 写入新工作表，关闭索引和默认表头
        new_table.to_excel(writer, sheet_name=clean_sheet_name, index=False, header=False)

print(f"转换完成！结果已保存到 {output_file}")

代码说明 #

• pd.read_excel：读取原始Excel文件，openpyxl引擎支持.xlsx格式；如果是.csv文件，换成pd.read_csv即可。
• 工作表名清理：避免因列名包含Excel禁止的字符导致报错。
• 数据转置：把原列的纵向数据转为横向的一行，作为新表的表头。

如果你习惯直接在Excel内操作，这个方案不需要额外安装工具，直接用Excel自带的VBA脚本完成。

步骤1：打开VBA编辑器 #

1. 打开你的原始Excel文件。
2. 按下Alt + F11组合键打开VBA编辑器。
3. 右键点击左侧的工作簿名称，选择「插入」→「模块」。

步骤2：粘贴VBA代码 #

把以下代码粘贴到模块窗口中：

Sub SplitColumnsToSheets()
    Dim wsOriginal As Worksheet
    Dim wsNew As Worksheet
    Dim lastCol As Integer
    Dim lastRow As Integer
    Dim col As Integer
    Dim colName As String
    
    ' 替换为你的原始工作表名称（比如"Sheet1"）
    Set wsOriginal = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取原始表的最后一列和最后一行
    lastCol = wsOriginal.Cells(1, Columns.Count).End(xlToLeft).Column
    lastRow = wsOriginal.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 遍历每一列
    For col = 1 To lastCol
        colName = wsOriginal.Cells(1, col).Value
        
        ' 如果已有同名工作表，先删除（可选，可注释掉这段跳过删除）
        On Error Resume Next
        Set wsNew = ThisWorkbook.Sheets(colName)
        If Err.Number = 0 Then
            Application.DisplayAlerts = False
            wsNew.Delete
            Application.DisplayAlerts = True
        End If
        On Error GoTo 0
        
        ' 创建新工作表并命名
        Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        wsNew.Name = colName
        
        ' 复制原列数据（跳过表头），转置后粘贴为新表的表头
        wsOriginal.Range(wsOriginal.Cells(2, col), wsOriginal.Cells(lastRow, col)).Copy
        wsNew.Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        
        ' 清除剪贴板，避免残留格式
        Application.CutCopyMode = False
    Next col
    
    MsgBox "转换完成！"
End Sub

使用说明 #

1. 修改代码中的Set wsOriginal = ThisWorkbook.Sheets("Sheet1")，把Sheet1换成你原始数据所在的工作表名称。
2. 按下F5运行脚本，或者回到Excel界面，点击「开发工具」→「宏」，选择SplitColumnsToSheets执行。
3. 脚本会自动创建对应列名的工作表，并把原列的数据转置为新表的表头。

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