Excel删除复数据Guide.docVIP

先将数据复制到同一工作薄 图1 在“工具 选项 安全性”设置宏安全级别，安全级别选择“中”或者“低” 图2 图3 在“工具 宏 Visual Basic 编辑器 工具 宏”菜单中创建宏并保存，注：是在 Visual Basic编辑器中创建宏 图4 图5 Sub 根据名称删除重复行() 方法开始 Dim xRow As Integer 声明变量xRow 记录需要处理的内容的总行数 Dim i As Integer 声明变量i xRow = Range(A65536).End(xlUp).Row 获取A列（第一列，下面的Cells(j, 1)、Cells(i, 1)对应）中，最后一个有内容的单元格的行号 For i = 2 To xRow 第一层for循环 For j = i + 1 To xRow 第二层for循环 If Not (Cells(i, 1) = ) Then 判断单元格内容是否不为空 If Not (Cells(j, 1) = ) Then 判断单元格内容是否不为空 If Cells(j, 1) = Cells(i, 1) Then 如果内容相等，则删除该行 Range(Cells(j, 1), Cells(j, 256)).Rows.Delete 删除整行 j = j - 1 行号减一 xRow = xRow - 1 总行数减一 End If 最内层if结束 End If 倒数第二层if结束 End If 倒数第三层if结束 Next 进入第二层循环的下一循环 Next 进入第一层循环的下一循环 End Sub 方法结束 在“工具 宏 宏” 菜单中选择要执行的宏执行 图6 图7 附加：如果需要修改代码，在“工具 宏 Visual Basic 编辑器 工具 宏”菜单中编辑宏，把代码中的“A”或者“1”改为对应行号：如 “B”、“2”；“D”、“4” 图8 图9 1.开始运行（徽标键 + R），输入 cmd；打开DOS 命令窗口, 2.进入excel所在目录； a. E：进入excel所在磁盘 b. dir /b 汇总.xls, 把所有公司名称写入excel。 of support and hanger. Cable hole plugging gaps should use qualified fireproof materials, block surface should have sufficient strength, surface appearance. When cables pass through the firewall, of lax structure of local fire safety clamps. Thermoplastics production, to comply with the process, no bubbles in the thermoplastics pipes, linear nose consistent with the core wire specifications, contact is good, no cracks, break. Tinned copper nose clean solder full exterior surface is smooth without burrs. Control cable Assembly should be fastened, dense, solid, clean, and beautiful. Secondary wiring the cable terminations should be arranged by the actual location of the device line cards, the wiring from th