如何使用VBA在Excel中检查列中是否相同的所有数字

Question

Below is my code 

Sub DeleteUneccessarySerial()
Dim rng As Range
Dim myNum As Long
myNum = 1
Set rng = Range("F:F")
Columns("A:I").Sort key1:=Range("I:I"), order1:=xlAscending, Header:=xlYes
Range("$A1:I200").AutoFilter Field:=9, Criteria1:="Checked"
If WorksheetFunction.CountIf(rng, myNum) = rng.Count Then MsgBox ("All the same!")

Range("A:B,F:F,G:H").Delete
End Sub

我想发生的是，如果列F存在除1以外的任何数字，则停止运行宏。 如果F列中的所有数字均为“ 1 ”，则继续运行代码。

我认为问题是“ If WorksheetFunction.CountIf(rng, myNum) = rng.Count Then MsgBox ("All the same!")

Answer 1

您需要按照以下代码重构If块以确定程序流程，并使用Exit Sub退出过程：

Sub DeleteUneccessarySerial()
    Dim rng As Range
    Dim myNum As Long
    myNum = 1
    Set rng = Range("F:F")
    Columns("A:I").Sort key1:=Range("I:I"), order1:=xlAscending, Header:=xlYes
    Range("$A1:I200").AutoFilter Field:=9, Criteria1:="Checked"
    If WorksheetFunction.CountIf(rng, myNum) = rng.Count Then
        MsgBox ("All the same!")
        Exit Sub
    End If
    Range("A:B,F:F,G:H").Delete
End Sub