- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2025-1-10
|
4#
發表於 2022-3-24 07:43
| 只看該作者
本帖最後由 samwang 於 2022-3-24 07:51 編輯
回復 samwang
Dear samwang,
您好,我想要在"原始資料"工作表下直接刪除無底色(有資料)的列(整列)
同一 ...
jsc0518 發表於 2022-3-23 20:38 
請再測試看看,謝謝
Sub test2()
Dim xR As Range, xU As Range, Clr
Application.ScreenUpdating = False
With Sheets(1)
If .AutoFilterMode Then .[a1].AutoFilter
For Each xR In .Range(.[a1], .Cells(.Rows.Count, 1).End(3))
Clr = xR.DisplayFormat.Interior.ColorIndex
If Not Clr <> -4142 Then
If xU Is Nothing Then Set xU = xR Else Set xU = Union(xR, xU)
End If
Next
End With
If Not xU Is Nothing Then xU.EntireRow.Delete
Application.ScreenUpdating = True
End Sub |
|