excel：删除有填充颜色的单元格

2026-05-19 21:02:55

推荐回答（4个）

回答1：

用基本操作就可以

1. 选中除第一行外的所有单元格
2. 按Ctrl+F
3. 选格式，填充，注明你的填充颜色
4. 查找全部
5. 在查找结果框内按Ctrl+A
6. 在工作表中选中的单元格上右键，删除，即可

回答2：

Sub test()
Dim myrange1 As Range
Dim myrange2 As Range
Dim i As Integer
Dim j As Integer
Dim ii As Integer
Dim jj As Integer

Set myrange1 = ActiveSheet.UsedRange
Set myrange2 = myrange1.SpecialCells(xlCellTypeLastCell)
ii = myrange2.Row
jj = myrange2.Column

For i = ii To 1 Step -1
For j = jj To 1 Step -1
If Cells(i, j).Row <> 1 And Cells(i, j).Interior.ColorIndex <> -4142 Then
Cells(i, j).Delete shift:=xlUp
End If
Next
Next
End Sub

回答3：

Sub xxx()
cc = UsedRange.Columns.Count
rr = UsedRange.Rows.Count
For c = 1 To cc
For r = rr To 2 Step -1
If Cells(r, c).Interior.ColorIndex <> -4142 Then
Cells(r, c).Delete shift:=xlUp
End If
Next
Next
End Sub

回答4：

自己按上述操作，录制宏改改吧