如何用Excel宏代码批量删除数据列的重复值

　　下面将介绍一下如何使用宏代码批量快速删除EXCEL某列数据的重复值，仅保留重复值的其中一个(第一个);

操作步骤

　　第一步、如下图，假设，在A列中存在这样的数据列，请仔细观察数据，是不是存在重复值呢?

　　第二步、要想删除重复的值，首先，在EXCEL窗口中，我们直接按组合键Alt+F11，弹出如下图的另外一个窗口!

　　第三步、上图中，默认未弹出代码窗口，请如上图所示，执行“视图”→“代码窗口”，弹出如下图的窗口;

 

　　第四步、请输入上图的代码，为方便操作，提供文本代码以供网友复制粘贴!

　　Sub DeleteColumnDupes()

　　Dim strSheetName As String, strColumnLetter As String

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

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

　　Dim strColumnRange As String

　　Dim rngCurrentCell As Range

　　Dim rngNextCell As Range

　　strColumnRange = strColumnLetter & "1"

　　Worksheets(strSheetName).Range(strColumnRange).Sort _

　　Key1:=Worksheets(strSheetName).Range(strColumnRange)

　　Set rngCurrentCell = Worksheets(strSheetName).Range(strColumnRange)

　　Do While Not IsEmpty(rngCurrentCell)

　　Set rngNextCell = rngCurrentCell.Offset(1, 0)

　　If rngNextCell.Value = rngCurrentCell.Value Then

　　rngCurrentCell.EntireRow.Delete

　　End If

　　Set rngCurrentCell = rngNextCell

　　Loop

　　End Sub

　　代码输入好之后，直接按F5运行，或者如下图所示点击“运行”按钮即可!

 

　　第五步、运行成功之后，退出该窗口，返回EXCEL窗口，即可看到效果了!

热门标签：dede模板 / destoon模板 / dedecms模版 / 织梦模板