如何在Excel中将重复的行转置为列？

网友投稿 260 2024-01-21

如何在Excel中将重复的行转置为列？

假设您在Excel中拥有一系列数据，现在，您想要将重复的行转置为多列，如下面的屏幕截图所示，您有解决此任务的好主意吗？

使用VBA代码将重复的行转换为列

不幸的是，您没有直接的方法可以在Excel中处理它，但是您可以创建一个VBA代码来解决它，请执行以下操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications窗口.

2。点击插页 > 模块，然后将以下代码粘贴到 模块窗口.

VBA代码：将重复的行转置为多列

Sub ConvertTable() Updateby Extendoffice Dim xArr1 As Variant Dim xArr2 As Variant Dim InputRng As Range, OutRng As Range Dim xRows As Long xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8) Set OutRng = OutRng.Range("A1") xArr1 = InputRng.Value t = UBound(xArr1, 2): xRows = 1 With CreateObject("Scripting.Dictionary") .CompareMode = 1 For i = 2 To UBound(xArr1, 1) If Not .exists(xArr1(i, 1)) Then xRows = xRows + 1: .Item(xArr1(i, 1)) = VBA.Array(xRows, t) For ii = 1 To t xArr1(xRows, ii) = xArr1(i, ii) Next Else xArr2 = .Item(xArr1(i, 1)) If UBound(xArr1, 2) < xArr2(1) + t - 1 Then ReDim Preserve xArr1(1 To UBound(xArr1, 1), 1 To xArr2(1) + t - 1) For ii = 2 To t xArr1(1, xArr2(1) + ii - 1) = xArr1(1, ii) Next End If For ii = 2 To t xArr1(xArr2(0), xArr2(1) + ii - 1) = xArr1(i, ii) Next xArr2(1) = xArr2(1) + t - 1: .Item(xArr1(i, 1)) = xArr2 End If Next End With OutRng.Resize(xRows, UBound(xArr1, 2)).Value = xArr1 End Sub

Copy

3。然后按 F5 键以运行此代码，在弹出的对话框中选择要将重复的行转换为多列的数据范围，请参见屏幕截图：

4。点击 OK，然后在以下对话框中选择要将结果放入其中的一个单元格，请参见屏幕截图：

5. 然后点击 OK 按钮，您选择的数据已转换为以下内容：

相关文章:

如何将列和行转置/转换为单行？

如何将列和行转置/转换为单列？

如何在Excel中将单个列转置/转换为多个列？

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel