[問題] excel vba 刪除問題

[HILLFLY (假如時光倒流)]

軟體:
2003
版本:

剛剛有爬文 想要刪除儲存格的資料

假設資料有

A
B
C
D
E X
E X
E X
E X
E X
A
B
C
D

想要把資料中 ABCD一整行全部刪除

變成

E X
E X
E X
E X
E X

想用EXCEL VBA做

剛剛有爬文

Sub test()
    Dim myRng As Range
    Dim myUnion As Range
    Dim i As Boolean
    On Error Resume Next
    For Each myRng In ActiveSheet.UsedRange
        If IsNumeric(Application.Find("CBO", myRng)) Then
            If i Then
                Set myUnion = Application.Union(myUnion, myRng.EntireRow)
            Else
                Set myUnion = myRng.EntireRow: i = True
            End If
        End If
    Next
    myUnion.Delete
End Sub

修改成

Sub test()
    Dim myRng As Range
    Dim myUnion As Range
    Dim i As Boolean
    On Error Resume Next
    For Each myRng In ActiveSheet.UsedRange
        If IsNumeric(Application.Find("A","B","C","D", myRng)) Then
            If i Then
                Set myUnion = Application.Union(myUnion, myRng.EntireRow)
            Else
                Set myUnion = myRng.EntireRow: i = True
            End If
        End If
    Next
    myUnion.Delete
End Sub


這樣子不行耶..... = =




可以有大大跟我說哪裡出錯了嗎?

感恩....Orz

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 125.231.94.252
→ HILLFLY:只能刪除第一個.....
→ topgunguy:後來我是一個字串做一個for迴圈，我也想知道要怎麼做比
→ topgunguy:較快。
→ topgunguy:                     ↑if
→ topgunguy:這個問題我四個月前有問過，後來我想到其他做法，變成用
→ topgunguy:貼的。就沒有再碰.delete
→ HILLFLY:感謝樓上.........我是想說可以用ararry 不過我不會用.XD