如何使用VBA删除Sheet1列A中未出现在Sheet2列A内的行

Hey there! 完全懂你作为业余学习者，东拼西凑代码却跑不起来的挫败感，我帮你把代码补全并修正了问题，这段简洁的代码可以精准实现你的需求：

Sub KeepMatchingUsers()
    Dim wsSource As Worksheet
    Dim wsCheck As Worksheet
    Dim lastRowSource As Long
    Dim i As Long
    Dim matchResult As Variant
    
    ' 定义工作表对象
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsCheck = ThisWorkbook.Worksheets("Sheet2")
    
    ' 获取Sheet1列A的最后一行行号
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行往上遍历（避免删除行导致的遍历遗漏）
    For i = lastRowSource To 1 Step -1
        ' 检查当前单元格值是否存在于Sheet2的列A中
        matchResult = Application.Match(wsSource.Cells(i, "A").Value, wsCheck.Columns("A"), 0)
        
        ' 如果找不到匹配（IsError判断Match的结果），则删除该行
        If IsError(matchResult) Then
            wsSource.Rows(i).Delete
        End If
    Next i
    
    MsgBox "筛选完成！Sheet1仅保留了Sheet2中存在的用户", vbInformation
End Sub

关键细节说明： #

• 变量名统一修正：我把你原来代码里不一致的变量名（比如PUsersList和PUsers）改成了更清晰的wsSource和wsCheck，避免混淆
• 从下往上遍历：这是删除行操作的标准技巧——如果从上往下删，删除某行后下面的行会自动上移，导致循环跳过下一行；从下往上就不会有这个问题
• 高效匹配：用Application.Match函数替代嵌套循环，能更快完成存在性检查，数据量大的时候优势更明显
• 错误处理：用IsError判断Match的结果，当找不到匹配时Match会返回错误值，这样就能准确触发删除操作

你原来的未完成代码：

Sub DelColumn()
 Dim PUsersList As Worksheet
 Dim SUsersCheck As Worksheet
 Dim lrM As Long
 Dim lrS As Long
 Dim i As Long, m, MLookup As Range, SLookup As Range
 Set PUsers= ThisWorkbook.Worksheets("Sheet1")
 Set SUsers = ThisWorkbook.Worksheets("Sheet2")
 Set PLookup = PUsers.Columns(1) '<< reference list
 Set SLookup = SUsers.Columns(1) '<< reference list
 lrM = PUsers.Cells(PUsers.Rows.Count, "A").End(xlUp).Row
 lrS = SUsers.Cells(SUsers.Rows.Count, "A").End(xlUp).Row
 ' here is where I'm stuck...
 MsgBox "Update Complete"
End Sub

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