如何在 Excel 中将列转置为行并插入新行以填充数据？

在本文中，我将介绍一种 VBA 代码，可以将列转置为行，并插入新行以填充数据，如下方截图所示。如果你对这个操作感兴趣，请继续阅读以获取更多详细信息。

使用 VBA 转置并插入行

使用 VBA 转置并插入行

虽然没有直接的方法可以转置一个区域并插入行来填充相同的数据，但我可以介绍一个 VBA 代码，快速完成此任务。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下 VBA 代码粘贴到模块窗口中。参见截图：

VBA：转置并插入行。

 Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
    Dim xRg As Range
    Dim i As Long, j As Long, k As Long
    Dim x As Long, y As Long
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    Application.ScreenUpdating = False
    x = xRg(1, 1).Column + 2
    y = xRg(1, xRg.Columns.Count).Column
    For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
        If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
            k = Cells(i, x - 2).End(xlToRight).Column
            If k > y Then k = y
            For j = k To x + 1 Step -1
                Cells(i + 1, 1).EntireRow.Insert
                With Cells(i + 1, x - 2)
                    .Value = .Offset(-1, 0)
                    .Offset(0, 1) = .Offset(-1, 1)
                    .Offset(0, 2) = Cells(i, j)
                End With
                Cells(i, j).ClearContents
            Next j
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

3. 按 F5 键运行代码，然后在弹出的对话框中选择要转置并插入行的数据区域。参见截图：

4. 单击 确定。所选区域已按下方截图所示转换。

备注：在运行代码之前，最好保存一份原始数据的副本。

提示：如果你想快速将二维表转为一维表或反之，请尝试使用 Kutools for Excel 的 转换表格维数 功能，如下方截图所示。它在 30 天内功能齐全且无限制，请立即下载并免费试用。