[問題] excel vba 刪除問題
軟體:
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
→
05/13 08:08, , 1F
05/13 08:08, 1F
→
05/13 09:44, , 2F
05/13 09:44, 2F
→
05/13 09:45, , 3F
05/13 09:45, 3F
→
05/13 09:49, , 4F
05/13 09:49, 4F
→
05/13 09:51, , 5F
05/13 09:51, 5F
→
05/13 09:52, , 6F
05/13 09:52, 6F
→
05/13 11:19, , 7F
05/13 11:19, 7F
討論串 (同標題文章)
以下文章回應了本文:
完整討論串 (本文為第 1 之 3 篇):