標題: [發問] 移除不要的欄位的程式修改 [打印本頁]

---

作者: bulletin    時間: 2014-2-4 17:24     標題: 移除不要的欄位的程式修改

從公開資訊觀測站下載了上市櫃公司列表
但是有些公司是我沒興趣的, 如權證以及TDR等
如下圖
[attach]17420[/attach]

我寫了VBA想把不要的資料刪除，如下

Sub test()
    For i = 1 To Range("A2").End(xlDown).Row
        If Cells(i, 1).Value > 9999 Then Rows(i & ":" & i).Delete shift:=xlUp
    Next i
End Sub

這會發生一個問題，如果有連續兩個row的資料是我不要的
就會無法篩選出來
請問要如何修改這段程式呢？
謝謝

---

作者: GBKEE    時間: 2014-2-4 17:27

回復 1# bulletin
由下往上刪除

1. Sub test()
   
2.     For i = Range("A2").End(xlDown).Row To 1 Step -1
   
3.         If Cells(i, 1).Value > 9999 Then Rows(i & ":" & i).Delete shift:=xlUp
   
4.     Next i
   
5. End Sub

複製代碼

---

作者: bulletin    時間: 2014-2-4 17:57

多謝板主一語點醒夢中人!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)