返回列表 上一主題 發帖

[發問] vba特定格式刪除

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
1# 跳轉到 »
發表於 2016-6-3 13:31 | 顯示全部帖子
Sub test()
    Application.ScreenUpdating = False
    With Sheets("Sheet1")
        er = .[J65536].End(3).Row
        For r = er To 1 Step -1
            If .Cells(r, 1).Interior.ColorIndex = 4 Then Rows(r).Delete
        Next r
    End With
    Application.ScreenUpdating = True
End Sub

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
2#
發表於 2016-6-3 20:46 | 顯示全部帖子
Sub test2()
    Application.ScreenUpdating = False
    With Sheets("Sheet2")
        er = .[I65536].End(3).Row
        For r = er To 1 Step -1
            If .Cells(r, 10).Interior.ColorIndex = 4 Then Rows(r).Delete
        Next r
    End With
    Application.ScreenUpdating = True
End Sub

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
3#
發表於 2016-6-4 20:11 | 顯示全部帖子
回復 9# man65boy
另外一種解法，請參考
刪除特定格式BB-1.rar (20.44 KB) 。

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題