[算表] vba迴圈刪除類似字眼資料?

看板Office作者ptguitar (佩蒂吉他)時間8年前 (2017/06/06 14:34)推噓1(1推 0噓 7→)

留言8則, 5人參與討論串1/4 (看更多)

軟體:excel 2007以上版本: 2007以上我要把一整段有符合某字眼的刪除 Sub eachssdelete() Dim ss As Object lastrow = Range("A65536").End(xlUp).Row For Each ss In Range("A1:A" & lastrow) If ss.Text Like "*海外分行*" Or ss.Text Like "*機構名稱*" _ Or ss.Text Like "*工作表*" Then Rows(ss.Row).Delete End If Next ss End Sub 但是我都要按好幾次巨集執行才會刪光不知道那邊還要改? 原始檔案:: https://drive.google.com/open?id=0BwCgrQhGgaw7RXByS2kxRnFjWTQ 巨集如下: Sub eachssdelete() Dim ss As Object lastrow = Range("A65536").End(xlUp).Row For Each ss In Range("A1:A" & lastrow) If ss.Text Like "*海外分行*" Or ss.Text Like "*機構名稱*" _ Or ss.Text Like "*工作表*" Then Rows(ss.Row).Delete End If Next ss End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.77 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1496730852.A.51C.html

→

Linkey

06/06 15:32, , 1^F

06/06 15:32, 1^F

→

Linkey

06/06 15:35, , 2^F

06/06 15:35, 2^F

→

ptguitar

06/06 15:37, , 3^F

06/06 15:37, 3^F

→

soyoso

06/06 16:01, , 4^F

06/06 16:01, 4^F

感謝S大真的要這樣寫後來可以 Sub test001() Dim YY, XX, ZZ YY = "*海外分行*" XX = "*機構名稱*" ZZ = "*工作表*" For i = [A65536].End(xlUp).Row To 1 Step -1 If Range("A" & i).Text Like YY Or Range("A" & i).Text Like XX Or Range("A" & i).Text Like ZZ Then Rows(i).Delete End If Next End Sub ※ 編輯: ptguitar (60.250.67.77), 06/06/2017 16:21:40

→

waiter337

06/06 19:28, , 5^F

06/06 19:28, 5^F

→

waiter337

06/06 19:29, , 6^F

06/06 19:29, 6^F

→

waiter337

06/06 19:29, , 7^F

06/06 19:29, 7^F