我懂你这种崩溃的感觉——1500行手动用TRANSPOSE绝对是体力活！下面给你三个高效方案，从零代码的傻瓜操作到定制化的VBA宏都有，挑适合你的来：

这是最省心的一次性转置方法：

• 选中你要转置的完整数据区域（假设数据从A1开始，就是A1:N1500）
• 按Ctrl+C复制数据
• 选中转置后数据的起始单元格（比如P1，务必确保这个区域后有足够空间：1500列×14行，别覆盖原有数据）
• 右键→选择性粘贴→勾选「转置」→点击确定

如果需要转置后的数据随原数据自动更新，新版Excel的动态数组功能最方便：

• 选中转置的目标区域：需要选14行×1500列的范围（比如从P1开始，拉到第14行、第1500列的单元格）
• 输入公式：=TRANSPOSE(A1:N1500)
• 旧版Excel按Ctrl+Shift+Enter触发数组公式，新版365/2021直接回车即可，公式会自动填充整个目标区域

如果以后经常要做这类转置，写个宏可以一键搞定：

操作步骤： #

1. 打开Excel文件，按Alt+F11打开VBA编辑器
2. 右键左侧的工作簿名称→插入→模块
3. 粘贴下面的代码，按需修改参数
4. 按F5运行，或者给宏加个工作表按钮更方便

VBA代码： #

Sub TransposeCarSalesData()
    ' 定义变量
    Dim sourceRange As Range
    Dim targetStartCell As Range
    
    ' ------------------- 可修改参数 -------------------
    ' 设置原数据所在的工作表和范围
    Set sourceRange = ThisWorkbook.Worksheets("Sheet1").Range("A1:N1500")
    ' 设置转置后数据的起始位置（可改成新工作表，比如ThisWorkbook.Worksheets.Add.Range("A1")）
    Set targetStartCell = ThisWorkbook.Worksheets("Sheet1").Range("P1")
    ' --------------------------------------------------
    
    ' 清空目标区域原有内容（可选，避免覆盖）
    targetStartCell.Resize(sourceRange.Columns.Count, sourceRange.Rows.Count).ClearContents
    
    ' 执行转置粘贴
    sourceRange.Copy
    targetStartCell.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    
    ' 取消复制状态
    Application.CutCopyMode = False
    
    ' 提示完成
    MsgBox "汽车销售数据转置完成！", vbInformation
End Sub

注意事项： #

• 操作前一定要备份数据，防止误操作覆盖原有内容
• 如果用VBA，保存文件时要选.xlsm格式（启用宏的工作簿）
• 动态数组功能仅支持Excel 365/2021及以上版本，旧版建议用方案1或3

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