如何用VBA的For/If语句检测并删除Excel重复电话号码

嘿，针对你的需求——用VBA的For循环、If Else（或两者结合）处理70条带姓名和电话的Excel数据，删除重复电话号码——我给你两个实用的方案，结合你的场景调整了细节，一起来看看吧：

方案一：结合集合+For循环+错误判断（高效推荐） #

这个方案用集合来记录已出现的电话号码，判断重复的效率更高，尤其数据量变大时优势明显，核心还是用到了For循环和条件判断：

Sub RemoveDuplicatePhones()
    Dim ws As Worksheet
    Dim phoneCol As Integer ' 电话号码所在列，假设是B列（对应数字2）
    Dim lastRow As Integer
    Dim phoneValue As String
    Dim existingPhones As New Collection
    Dim i As Integer
    
    ' 替换成你的目标工作表名称
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 如果电话号码在其他列，修改这个数字（比如C列是3）
    phoneCol = 2
    ' 自动获取数据最后一行，不用硬写70，更灵活
    lastRow = ws.Cells(ws.Rows.Count, phoneCol).End(xlUp).Row
    
    ' 从最后一行往前遍历！避免删除行导致后续行索引错乱
    For i = lastRow To 3 Step -1 ' 假设数据从第3行开始，和你提供的代码一致
        phoneValue = Trim(ws.Cells(i, phoneCol).Value) ' 去除前后空格，避免假重复
        
        ' 尝试把号码加入集合，集合的Key是唯一的，重复会报错
        On Error Resume Next
        existingPhones.Add phoneValue, Key:=phoneValue
        On Error GoTo 0
        
        ' 如果添加失败（Err.Number≠0），说明号码重复，删除该行
        If Err.Number <> 0 Then
            ws.Rows(i).Delete
            Err.Clear ' 清除错误标记，继续处理下一行
        End If
    Next i
    
    MsgBox "重复电话号码已删除完成！"
End Sub

关键细节解释： #

• 从后往前遍历：这是处理删除行的小技巧，要是从前往后删，删除一行后后面的行会上移，导致部分行被跳过，从后往前就完全不会有这个问题
• Trim()函数：处理电话号码前后的空格，比如"13800138000"和" 13800138000 "会被当成不同号码，用Trim就能避免这种假重复
• 集合的Key特性：集合的Key是唯一的，尝试添加重复Key会触发错误，我们用这个特性来判断号码是否已经出现过，比双重循环效率高很多

方案二：纯For循环+If Else（不借助集合） #

如果你更倾向于只用基础的For循环和If Else语句，不依赖集合，这个方案也能满足你的需求，虽然效率稍低，但70条数据完全够用：

Sub RemoveDuplicatePhones_ForLoopOnly()
    Dim ws As Worksheet
    Dim phoneCol As Integer
    Dim lastRow As Integer
    Dim i As Integer, j As Integer
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    phoneCol = 2
    lastRow = ws.Cells(ws.Rows.Count, phoneCol).End(xlUp).Row
    
    ' 外层循环从后往前遍历每一行
    For i = lastRow To 3 Step -1
        ' 内层循环检查当前行之前的所有行是否有重复号码
        For j = 3 To i - 1
            ' 对比当前行和之前行的电话号码
            If Trim(ws.Cells(i, phoneCol).Value) = Trim(ws.Cells(j, phoneCol).Value) Then
                ws.Rows(i).Delete ' 找到重复就删除当前行
                Exit For ' 跳出内层循环，继续处理上一行
            End If
        Next j
    Next i
    
    MsgBox "重复电话号码已删除完成！"
End Sub

这个方案的逻辑： #

外层循环从最后一行开始往上走，内层循环从数据起始行（第3行）到当前行的前一行，逐一对比电话号码。一旦找到重复，就删除当前行，然后跳出内层循环，继续处理下一行。

使用前的小提示： #

• 先备份文件：运行宏之前最好备份你的Excel，避免误删重要数据
• 调整参数：根据你的实际数据，修改phoneCol（电话号码所在列的数字）和起始行（比如如果数据从第1行开始，把To 3改成To 1）
• 确认工作表名称：代码里用的是Sheet1，如果你的表名不一样，记得替换成实际名称

内容的提问来源于stack exchange，提问作者Kalin Stoev