1.先将数据复制到同一工作薄图12.在“工具>选项>安全性”设置宏安全级别，安全级别选择“中”或者“低”图2图33.在“工具>宏>VisualBasic编辑器>工具>宏”菜单中创建宏并保存，注：是在VisualBasic编辑器中创建宏图4图5Sub根据名称删除重复行()'方法开始DimxRowAsInteger'声明变量xRow记录需要处理的内容的总行数DimiAsInteger'声明变量ixRow=Range(\"A65536\").End(xlUp).Row'获取A列（第一列，下面的Cells(j,1)、Cells(i,1)对应）中，最后一个有内容的单元格的行号Fori=2ToxRow'第一层for循环Forj=i+1ToxRow'第二层for循环IfNot(Cells(i,1)=\"\")Then'判断单元格内容是否不为空IfNot(Cells(j,1)=\"\")Then'判断单元格内容是否不为空IfCells(j,1)=Cells(i,1)Then'如果内容相等，则删除该行Range(Cells(j,1),Cells(j,256)).Rows.Delete'删除整行j=j-1'行号减一xRow=xRow-1'总行数减一EndIf'最内层if结束EndIf'倒数第二层if结束EndIf'倒数第三层if结束Next'进入第二层循环的下一循环Next'进入第一层循环的下一循环EndSub'方法结束4.在“工具>宏>宏”菜单中选择要执行的宏执行图6图7附加：如果需要修改代码，在“工具>宏>VisualBasic编辑器>工具>宏”菜单中编辑宏，把代码中的“A”或者“1”改为对应行号：如“B”、“2”；“D”、“4”图8图91.开始>>运行（徽标键+R），输入cmd；打开DOS命令窗口,2.进入excel所在目录；a.E：进入excel所在磁盘b.dir/b>>汇总.xls,把所有公司名称写入excel。