宏技巧（实例）将相同值的项集中到一个单元格

最近朋友遇到了一个枯燥的归集工作，恰巧他告诉了我，就是将相同值得项汇集统计到一个单元格里面，例如：A1=300，B1=500，…………ZZ1=300等等，需要将相同的值的项目汇集到一个单元格里，例如：等于300的有A1和ZZ1，就把A1 ZZ1归集到一个单元格里，并且，数据要清晰一目了然，为了完成这项看似简单的工作，我给他编写了一个简短的宏代码，经过测试结果正确，大大减轻了朋友的工作量，为了清晰直观，现将具体步骤分享给大家：实例： 首先是先建一个宏文件，2007版本的Excel里面取消了建立宏这个选项，具体建立宏的步骤可参见我的《如何在Excel 2007中建立宏文件》，这里不再阐述。 建立好了宏文件，就是添加处理指令了，具体代码如下：Dim r As Long, q As Long, aaa As LongDim bbb, ccc As Stringaaa = Range('A65536').End(xlUp).Rowq = 1bbb = Cells(1, 1)ccc = Cells(1, 2)For r = 2 To aaa + 1If Cells(r, 1) <> bbb ThenCells(q, 4) = bbbCells(q, 5) = cccbbb = Cells(r, 1)ccc = Cells(r, 2)q = q + 1Elseccc = ccc &' '& Cells(r, 2)End IfNext r将代码录入宏文件后，点击菜单中的宏选项，在弹出的对话框中点击执行按钮，运行宏，或者你在建立宏文件的时候建立快捷方式，直接用快捷方式运行宏。测试结果正确，如图。注意事项： 在使用该代码进行汇集的时候，需要对条件值进行排序，就是对上题中的值项进行排序，如果不排序条件，系统会断开显示相同数值的汇集结果。