Excel VBA中的編譯錯誤

Question

我已經開發了VBA代碼以在Excel中搜索特定的電子郵件類型（例如。@ gmail.com）。 它將下一個單元格標記為“ TRUE”，並與條件匹配。

我在do while循環中遇到編譯錯誤

Dim c As Range
Dim SrchRng
Dim myarray As Variant
myarray = Array("@email.com","@gmail.com")

Set SrchRng = ActiveSheet.UsedRange
for each emailarray in myarray
    Do
        Set c = SrchRng.Find("emailarray", LookIn:=xlValues)
        If Not c Is Nothing Then 
           'c.EntireRow.Delete
             row_num = Split(c.Address(ColumnAbsolute:=False, RowAbsolute:=False), "A")
             Range("C" & row_num(1)).Value = "True"
    Loop While Not c Is Nothing

next emailarray

Answer 1

你的失蹤和End If

但是你也有Do ... Loop While

看起來應該適合您的情況

Do While
....
Loop

要么

Do Until
...
Loop

Answer 2

請在代碼end if加上end if 。

If Not c Is Nothing Then
    'c.EntireRow.Delete
    row_num = Split(c.Address(ColumnAbsolute:=False, RowAbsolute:=False), "A") 
    Range("C" & row_num(1)).Value = "True" 
End If