Excel VBA匹配集合内容删除数据仅生效一次故障求助

• 删行方向错误：从前往后遍历删除行时，删除某行后下方行会上移，你的计数变量row1继续加1会直接跳过新上移的行，导致漏判
• 循环逻辑冲突：同时用For Each Row遍历范围和自定义row1变量计数，两套遍历逻辑混乱，没有实际意义
• 提前退出循环导致只处理一行：匹配到第一个符合条件的行后你用Exit For直接退出内层循环，外层循环下次执行时row1已经累加至很大的数值，不会再匹配到后续内容
• 集合未明确：你代码中的Second如果没有提前赋值为目标值集合，本身也会触发运行错误

Private Sub CommandButton3_Click()
    ' 第一步：先定义你要匹配的目标值集合，把你要判断的值写在这里即可
    Dim targetSet As Collection
    Set targetSet = New Collection
    ' 这里示例加3个值，你可以换成自己要匹配的内容，对应你原来的Second集合
    targetSet.Add "待删除值1"
    targetSet.Add "待删除值2"
    targetSet.Add "待删除值3"
    
    ' 第二步：从下往上遍历行，避免删行漏判，这里999是你原来的最大行，有需要可以改
    Dim i As Long
    For i = 999 To 2 Step -1
        ' 拿当前行A列的值判断是否在目标集合里
        Dim currentVal As String
        currentVal = Worksheets("Sheet1").Cells(i, 1).Value
        Dim exists As Boolean
        exists = False
        On Error Resume Next
        ' 判断值是否在集合中
        Dim temp
        temp = targetSet(currentVal)
        If Err.Number = 0 Then exists = True
        On Error GoTo 0
        
        ' 存在就删整行
        If exists Then
            Worksheets("Sheet1").Rows(i).Delete
        End If
    Next
End Sub

• 倒序遍历是VBA删除行/列的通用标准写法，从最后一行往第一行走，删除行不会影响还没遍历到的上方行，不会漏判
• 不用嵌套两层循环，单层遍历行+集合匹配的逻辑更简单，不容易出错
• 所有变量都做了明确声明，方便你逐行调试理解每一步的运行结果

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