[算表] excel用VB寫刪除為0和空白的列
軟體:
excel 2003
想請問一下大家我這樣的程式碼有什麼問題?
目的是想要把第三欄內，每一列內容為0或者"空白"的列刪除
我寫了一個簡單的Loop卻跑不起來
程式碼如下:
Sub LoopRange()
x = 2
Do While x < 3000
If Cells(x, 3).Value = "" Or "0" Then
Cells(x, 3).EntireRow.Delete
x = x + 1
End If
Loop
End Sub
當x>3000後停止這個迴圈
還請大家幫我解答一下
感謝!!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 155.91.45.231
推
12/08 11:31, , 1F
12/08 11:31, 1F
→
12/08 11:32, , 2F
12/08 11:32, 2F
→
12/08 11:51, , 3F
12/08 11:51, 3F
※ 編輯: JJabrams 來自: 155.91.45.231 (12/08 11:52)
我每次要跑這個巨集，他都會出現錯誤
「執行階段錯誤'438'
物件不支援此屬性或方法」
然後標示錯誤在 If Cells(x, 3).Value = "" Or "0" Then
這段上面
我這段語法有錯嗎？
謝謝!
※ 編輯: JJabrams 來自: 155.91.45.231 (12/08 11:55)
※ JJabrams:轉錄至看板 ask 12/08 12:05
推
12/08 12:17, , 4F
12/08 12:17, 4F
→
12/08 12:23, , 5F
12/08 12:23, 5F
我覺得這語法有個問題是
我每刪除掉一列，後面的x就等於重新來過
是不是要改成x=x+2才不會一直重複?
※ 編輯: JJabrams 來自: 155.91.45.231 (12/08 12:28)
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
