Excel技巧：合并行头相同的行（整合汇总行的次列值）

目录

做表需求

解决办法

步骤1：编写并执行VBA代码

步骤2：使用分列功能将一列变多列

---

做表需求

有一个表，首列的值重复出现（A有三次，B有两次），但次列值不同（1、2、3、4、5有一次）

A	1
A	2
A	3
B	4
B	5

【需求】首列值不变，汇总次列的值，使得次列保持一列，此列有多个值（从“很多行两列”变为“少许行两列”）

A	1,2,3
B	4,5

【需求】首列值不变，汇总次列的值，使得次列分为多列，每列有一个值（从“很多行两列”变为“少许行很多列”）

A	1	2	3
B	4	5

解决办法

步骤1：编写并执行VBA代码

打开工作簿，此时表格如下：

A	1
A	2
A	3
B	4
B	5

右键工作表名称→选择“查看代码”（装有高版本Excel，如Excel2016，开启“开发工具”选项卡，点击“代码”→“Visual Basic”也可）→

将下列代码复制进去并保存→点击“运行子过程/用户窗体”

Sub cc()
Dim arr, d, i, j, k, t, brr(), hd
Set d = CreateObject("scripting.dictionary")
Set hd = [a1:b1]
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
    If Not d.exists(arr(i, 1)) Then
       Set d(arr(i, 1)) = Range("b" & i)
    Else
       Set d(arr(i, 1)) = Union(d(arr(i, 1)), Range("b" & i))
    End If
Next
k = d.keys
t = d.items
ReDim brr(1 To d.Count, 1 To 2)
For i = 0 To UBound(k)
    brr(i + 1, 1) = k(i)
    If IsArray(t(i)) Then
       brr(i + 1, 2) = Join(Application.Transpose(t(i)), ",")
    Else: brr(i + 1, 2) = t(i)
    End If
Next
hd.Copy [f1]
[f2].Resize(d.Count, 2) = brr
[f2].CurrentRegion.Columns.AutoFit
Set hd = Nothing
Set d = Nothing
End Sub

此时表格已变成：

A	1,2,3
B	4,5

步骤2：使用分列功能将一列变多列

*如果仅需要成合并成次列保持一列，此列有多个值（从“很多行两列”变为“少许行两列”），则步骤2不同操作

选定要分列的列，数据→数据工具→分列→文本分列向导

第1步：原始数据类型→选中“分隔符号”→下一步

第2步：分隔符号→勾选“逗号”→下一步

第3步：列数据格式→勾选“常规”→完成

此时表格已变成：

A	1	2	3
B	4	5