excel 名单排重问题

两列分别排序，即可看到重复的，删除即可。

如果名单分在两列，你把它剪切复制到一列，比如复制到A列，你可以在B1输入=VLOOKUP(A2,A$1:A1,1,0)并向下复制。

请仔细阅读并修改相关数据。
1、打开有重复数据的EXCEL
2、Alt+F11 打开宏编辑器
3、左边双击：ThisWorkBook
4、贴入以下代码并运行即可：
Sub 删除重复数据()
'删除col列的重复数据
'本例是删除标题为sheet1的EXCEL表中A列（从A2单元格开始）的重复数据
Application.ScreenUpdating = False
'可根据实际情况修改下面三行的结尾值
Dim sheetsCaption As String: sheetsCaption = "Sheet1"
Dim Col As String: Col = "A"
Dim StartRow As Integer: StartRow = 2
'以下不需要修改
Dim EndRow As Integer: EndRow = Sheets(sheetsCaption).Range(Col & "65536").End(xlUp).Row
Dim Count_1 As Integer: Count_1 = 0
Dim count_2 As Integer: count_2 = 0
Dim i As Integer: i = StartRow
With Sheets(sheetsCaption)
Do
Count_1 = Count_1 + 1
For j = StartRow To i - 1
If .Range(Col & i) = .Range(Col & j) Then
Count_1 = Count_1 - 1
.Range(Col & i).EntireRow.Delete
EndRo