删除相同行的宏代码(excel用宏删除重复表头及空白行)

本文主要为大家介绍删除同一行的宏代码（excel使用宏删除重复表头和空行），下面一起来看看具体内容吧。

下面将介绍如何使用宏代码快速批量删除EXCEL数据某列重复值，只保留其中一个重复值（第一个）；

脚步

第一步如下图所示。假设A列有这样一个数据列，请仔细观察数据。是否有重复值？

第二步，删除重复值，首先，在EXCEL窗口中，我们直接按下组合键Alt+F11，又会弹出如下图的窗口！

第三步，上图中默认不弹出代码窗口，请执行上图“查看”“代码窗口”，会弹出下图窗口；

第四步，请输入上图中的代码，为方便操作，提供文字代码供用户复制粘贴！

子DeleteColumnDupes()

Dim strSheetName 作为字符串，strColumnLetter 作为字符串

strSheetName='Sheet1' '删除工作表中的重复行

strColumnLetter='A' '使用A 列中的重复项作为删除条件

将strColumnRange 调暗为字符串

将rngCurrentCell 调暗为范围

将rngNextCell 变暗为范围

strColumnRange=strColumnLetter '1'

工作表（strSheetName）。范围（strColumnRange）。排序_

Key1:=工作表(strSheetName).Range(strColumnRange)

设置rngCurrentCell=Worksheets(strSheetName).Range(strColumnRange)

当Not IsEmpty(rngCurrentCell) 时执行

设置rngNextCell=rngCurrentCell。偏移量(1, 0)

如果rngNextCell.Value=rngCurrentCell.Value 那么

rngCurrentCell.EntireRow.Delete

万一

设置rngCurrentCell=rngNextCell

环形

结束子

输入代码后直接按F5运行，或者点击“运行”按钮如下图！

第五步，运行成功后，退出窗口，回到EXCEL窗口，就可以看到效果了！

关于删除同一行的宏代码（excel使用宏删除重复表头和空行）的介绍到这里就结束了，了解更多办公软件知识可以收藏我们的网站，我们将为你提供更多精彩内容。