麻烦有哪位大神帮忙看下我的这个程序为什么要运行4次才得到结果

zhouweifu

编写了个删行的程序，把不等于文件名的整行删除，可是运行一次无法直接得到结果，要运行4次才得到最终结果，请老师帮忙看下
Sub 删行()
Dim F$, M$
Dim Sh As Worksheet
Dim rg As Range
    F = ThisWorkbook.Name
    M = Left(F, InStrRev(F, ".") - 1)
    For Each Sh In Sheets
        For Each rg In Sh.Range("a6:a23")
            If rg.Value <> M Then
                rg.EntireRow.Delete
            End If
        Next
    Next
End Sub

w609053988

删除整行最好倒序，不然两行连续的只能删除一行，如果非要正序删除，那么没删除一次，判断的单元格上移一行，再就是找出所有符合条件的行，一次性删除