Excel 2013编程实现列转置为行且保留首列的方法

别慌！哪怕从没写过VBA，跟着下面的步骤一步步来，你也能轻松实现自己需要的自定义转置效果。

第一步：打开VBA编辑器 #

有两种简单方式：

• 直接按键盘快捷键 Alt + F11，瞬间打开编辑器；
• 如果你能看到Excel顶部的「开发工具」选项卡，点击里面的「Visual Basic」按钮也能打开。要是没看到「开发工具」，去「文件」→「选项」→「自定义功能区」，在右侧勾选「开发工具」，点确定就能显示出来了。

第二步：插入代码模块 #

在VBA编辑器左侧的「工程资源管理器」里，找到你当前的工作簿名称（比如VBAProject(你的文件名.xlsx)），右键点击它，选择「插入」→「模块」。这时候会弹出一个空白的代码窗口，我们就在这里写代码。

第三步：编写自定义转置代码 #

因为你没说具体的数据格式，我先给两个常用的示例，你可以根据自己的需求修改：

示例1：基础行列转置（解决Excel自带转置满足不了的简单场景） #

比如你想把Sheet1里A1:A10的纵向数据，转成Sheet2里B1:K1的横向数据，用这段代码：

Sub BasicTranspose()
    ' 定义要转置的数据源范围，修改成你自己的范围
    Dim sourceData As Range
    Set sourceData = ThisWorkbook.Sheets("Sheet1").Range("A1:A10")
    
    ' 定义转置后数据的起始位置，修改成你的目标单元格
    Dim targetStart As Range
    Set targetStart = ThisWorkbook.Sheets("Sheet2").Range("B1")
    
    ' 执行转置操作
    targetStart.Resize(sourceData.Columns.Count, sourceData.Rows.Count).Value = _
        Application.WorksheetFunction.Transpose(sourceData.Value)
End Sub

修改提示：把Sheet1、A1:A10、Sheet2、B1换成你实际的工作表名和单元格范围就行。

示例2：分组转置（比如把同一客户的多条记录合并成一行） #

如果你的数据是分组的（比如A列是客户ID，B列是订单日期，一个客户有多条订单），要把每个客户的订单日期横向排列，用这段代码：

Sub GroupedTranspose()
    Dim sourceSheet As Worksheet
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' 数据源所在工作表
    
    ' 找到数据源的最后一行
    Dim lastRow As Long
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 用字典来分组存储数据
    Dim dataDict As Object
    Set dataDict = CreateObject("Scripting.Dictionary")
    
    ' 遍历数据源，把同一ID的信息分组
    Dim i As Long
    For i = 2 To lastRow ' 假设第一行是表头，从第二行开始遍历
        Dim custID As String
        custID = sourceSheet.Cells(i, "A").Value
        
        If Not dataDict.Exists(custID) Then
            dataDict.Add custID, New Collection
        End If
        dataDict(custID).Add sourceSheet.Cells(i, "B").Value ' 把B列的订单日期加入分组
    Next i
    
    ' 把转置后的数据写入目标工作表
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    targetSheet.Cells.Clear ' 先清空目标表原有数据
    
    ' 写表头
    Dim rowNum As Long
    rowNum = 1
    targetSheet.Cells(rowNum, 1).Value = "客户ID"
    targetSheet.Cells(rowNum, 2).Value = "订单日期1"
    targetSheet.Cells(rowNum, 3).Value = "订单日期2" ' 可以根据需要增加更多列
    
    ' 写入分组后的数据
    rowNum = 2
    Dim key As Variant
    For Each key In dataDict.Keys
        targetSheet.Cells(rowNum, 1).Value = key
        Dim colNum As Long
        colNum = 2
        Dim item As Variant
        For Each item In dataDict(key)
            targetSheet.Cells(rowNum, colNum).Value = item
            colNum = colNum + 1
        Next item
        rowNum = rowNum + 1
    Next key
End Sub

第四步：运行宏 #

• 在VBA编辑器里，点击代码窗口里的任意位置，按F5键就能运行；
• 回到Excel，点击「开发工具」→「宏」，选择你写的宏名称（比如BasicTranspose），点击「执行」也能运行。

重要提示 #

运行完宏后，记得把文件保存为启用宏的工作簿（.xlsm格式），不然下次打开宏就没了哦！

如果你的数据格式比较特殊，比如有更多列需要转置，或者有其他规则，随时告诉我具体的结构，我再帮你调整代码~

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