晴^_^语:
2、在插入列(如E2单元格)输入“=COUNTIF(B:B,B2)”。3、复制E2单元格公式到最后一行。4、使用自动筛选,E列值大于1的就是重名的了先按b列排序,在b列后插入一行在c2输入=if(b2b1,1,2)向下复制公式,然后复制c列,"选择性粘贴-数值",再按c列排序,删除所有值为2的行或用以下方法Fori=2Toak=Sheets("sheet2").[a1].CurrentRegion.Rows.Count+1IfApplication.WorksheetFunction.Count....