小伙伴们好啊，今天老祝和大家分享一个数据整理的技巧，先来看数据源：
 
这样的表格样式，想必小伙伴们经常会遇到吧？
 
咱们要把这个表格转换成下面的效果：
 
接下来，咱们以Excel 2016为例，来说说具体的操作步骤。
 
步骤一：
 
依次单击【数据】选项卡→【自表格/区域】，打开数据查询编辑器。单击“疾病名称”所在列的列标，在【转换】选项卡下单击【填充】→【向下】。
 
步骤二：
 
1、单击【分组依据】。
 
2、分组依据的字段名选择【疾病名称】，新列名输入【合并内容】，操作选择【所有行】
 
步骤三：
 
接下来咱们需要在公式编辑栏中处理一下：
 
1、在“each_”后增加要合并的字段名称[定义]
 
2、修改“type”后的字段类型为list，按回车。
 
如果你的查询编辑器界面中没有显示编辑栏，可以在视图选项卡下勾选编辑栏：
 
步骤四：
 
1、单击【合并内容】字段的扩展按钮→【提取值】，分隔符选择换行符。
 
2、依次单击【开始】→【关闭并上载】。
 
步骤五：
 
在Excel工作表中单击【合并内容】列，设置自动换行，再调整一下字体字号，OK了：
 
老祝说：此方法看起来步骤比较多，实际操作不超过一分钟，而且可以一劳永逸，如果在数据源中增加数据，只要单击在汇总表中单击右键【刷新】，就可以获得最新的结果，而不需要我们进行其他任何操作。
 
好了，今天的分享就是这些吧，祝各位一天好心情！
 
图文制作：祝洪忠

场景：有一列邮箱数据，现在需要将他们合并到同一个单元格内，且邮箱之间要用英文的逗号隔开
 
 
以前五条邮箱为例，利用phonetic函数实现这种合并：
 
 
合并结果：
 
 
其中，E列是添加的辅助列。

 
 
 
Sub Test()
    With Sheet1
        '准备阶段
        .Range("C:C").Clear  '清除C列中数据即格式
        '定义数据类型
        Dim k() As Integer '定义一个整型数组k()，用于存放获取到的数据
        Dim ks As Integer '定义一个整型ks，作为整型数组k()的序列号
        Dim UseCount As Integer '定义一个整型UseCount，用于记录统计【合并单元格】的总数量
        Dim EndRow As Integer '定义一个整型EndRow，用于记录需要进行合并的数据的最后一行的行数，同时也是总行数
        UseCount = Application.WorksheetFunction.CountA(Range("A1:A1000")) '调用Excel函数CountA获取【合并单元格】的数量，并赋值给UseCount
        EndRow = .Range("D1000").End(xlUp).Row '使用End()方法获取需要合并的数据的最后一行的函数，并赋值给EndRow
        '获取对应单元格的单元格地址
        ks = 0 '使ks为零
        ReDim k(UseCount) '重新定义数组k()的数组元素的数量
        For i = 1 To EndRow '设置循环判断，从第一行到需要合并的数据的最后一行
            If .Range("B" & i) <> "" Then '通过If...Then方法来获取当合并单元格的值不为空时
                k(ks) = i                           '数组k(ks)的值为i，i为行数
                ks = ks + 1                      '此时ks+1，然后进入下一个循环，如不能理解，详细解释请见公众号
            End If
        Next
        k(UseCount) = EndRow     '设置数组k()的最后一位为需要合并的数据的最后一行的行数
        '执行输出
        ks = 0 '重置ks为0
        For i = 1 To EndRow '设置循环判断，从第一行到需要合并的数据的最后一行
            If .Range("B" & i) <> "" Then '通过If...Then方法来获取当合并单元格的值不为空时
                For j = k(ks) To k(ks + 1)  '即进入从数组k()相邻的两个元素之间的循环值，如不能理解，详细解释请见公众号
                    .Range("C" & i) = .Range("C" & i) & vbCrLf & .Range("D" & j) '输出值到相对应合并单元格中的C列所对应的行中
                Next
                .Range("C" & k(ks)) = Replace(.Range("C" & k(ks)), vbCrLf, "", , 1) '将多余的回车符删除，保留最终结果
                If ks < UseCount - 1 Then   '判断序列号ks是否小于数组k()的总数-1，实际上是用于判断是否处理到了最后一个合并单元格，因为最后一个单元格出现了特殊情况
                    .Range("C" & k(ks) & ":C" & k(ks + 1) - 1).Merge  '如是，则需要少合并一个单元格
                Else
                    .Range("C" & k(ks) & ":C" & k(ks + 1)).Merge '如不是，则直接合并单元格
                End If
                ks = ks + 1 '然后ks+1，进入下一个循环
            End If
        Next
        Cells.EntireRow.AutoFit  '执行单元格行高的自动调整
        .Range("C:C").ColumnWidth = 100  '执行单元格列宽的调整
        .Range("C:C").EntireColumn.AutoFit '执行单元格列宽的自动调整
    End With
End Sub
 

 

 

一、一列多行数据合并
 
1.1 在B1单元格输入=A1:A6
 
 1.2 然后按F9键
 
 1.3 最后删除{}和""，全量替换即可，根据需要将";“替换为”,"或其他字符。
 
 
二、一行多列合并
 
跟一列多行合并为一个单元格类似
 
2.1 在D1单元格输入=A1:C1
 
 2.2 然后按F9键
 
 2.3 最后删除{}和""，全量替换即可，根据需要将";“替换为”,"或其他字符。