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

场景：有一列邮箱数据，现在需要将他们合并到同一个单元格内，且邮箱之间要用英文的逗号隔开



以前五条邮箱为例，利用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

我们先来看一下本次要实现的效果：
原始数据
结果如下：
实现效果
下面，我们就来给大家讲解如何实现以上的效果。本次需要用到的函数为IF、COUNTIF、VLOOKUP三个。按照惯例，我们先来讲解一下函数的基本用法。
一、 IF函数
语法：
=IF(logical_test,value_if_true,value_if_false)
参数解释：
Logical_test：计算结果为 TRUE 或 FALSE 的任意值或表达式。
Value_if_true：当 logical_test 为 TRUE 时返回的值。
Value_if_false：当ogical_test 为 FALSE 时返回的值。
二、 COUNTIF函数
语法：
= COUNTIF(range，criteria)
参数解释：
Range：要计算其中非空单元格数目的区域。
Criteria：以数字、表达式或文本形式定义的条件。
三、 VLOOKUP函数
语法：
=VLOOKUP(lookup_value,table_array,col_index_num,range_lookup)
参数解释：
lookup_value：要查找的值，可以是数值、引用或文本字符串。
table_array：要查找的区域，类型为数据表区域。
col_index_num：返回数据在查找区域的第几列数，必须为正整数。
range_lookup：模糊匹配(TRUE)或精确匹配(FALSE或不填)。
四、案例的实现
要实现本案例，需要在D列添加一个辅助列。通过辅助列，从后往前理解，将本列和本列下面和本列户编号相同的一个列的值合并起来，依次次循环就能将所有户编号相同的列的值合并到第一次出现该户编号的列。辅助列D2的公式为：
=C2&IF(COUNTIF(B3:B$23,B2),"、"&VLOOKUP(B2,B3:$D$23,3,FALSE),"")
添加辅助列结果
特别提醒：注意本公式中在countif和vlookup函数中，均需要将区域延伸到有值的后一行(如本表格共22行，而区域我们需要延伸到23行)，否则会导致结果错误，同时要注意公式中的混合引用，确保公式往下填充的时候的正确性。
建立好辅助列并计算好以后，我们需要在右侧的位置提取出不重复的户编号，然后再次通过VLOOKUP函数查询出户编号的人员。
提取出不重复的户编号的方法可以使用【数据】选项卡下面的【数据工具】组里面的【删除重复值】按钮实现。我们先将B列的户编号复制到G列，然后使用【删除重复值】将重复的值删除，得到不重复的户编号。
删除重复值操作
得到的结果如下：
最终结果空表
在H列通过VLOOKUP函数查询出户编号第一次出现的位置，就得到了该户编号对应的所有人员。公式如下：
=VLOOKUP(G2,$B$2:$D$23,3,FALSE)
结果如下：
最终结果