1、点击工作表中，有数据部分任一单元格，再点击菜单栏【数据-排序】，勾选【数据包含标题】，【主要关键字】选择”客户编号“，其他默认，过程如图示
2、在C列输入统计公式”countif“，统计每个”客户编号“出现的次数，结果如图，
3、在D列输入公式”if“，用来判断相隔2行的客户编号是否相同
4、按键【alt+f11嘉滤淀驺】，调出vba编辑器，选择添加”模块“，在弹出的窗口中输入下列代码：Sub tt()For i = 2 To R锾攒揉敫ange("b1").End(xlDown).Rownum = Range("c" & i).ValueFor js = 0 To num - 1Cells(i, 5 + js).Value = Range("b" & i + js).ValueNextNextEnd Sub
5、点击 运行按钮，切换到excel，可以看到结果如下图显示
6、选中第一行，点击【数据-筛选】，D列筛选数据为”0“的结果，就是所要的结果
