VBA条件格式+删除单元格

Question

是否有方法使用VBA基于其中的单元格删除整行？

尝试完成以下任务：

1. 根据我的案例单元格值<3
中的单元格选择整行
2. 删除整行

我使用CF来实现第一部分，但在尝试删除突出显示的单元格（CF中的颜色）时，查找功能无法找到颜色。

任何人都可以将我重定向到特定的帖子，请找几个小时 丹科

Answer 1

这样的事情怎么样：

Sub Delete3()

Dim F As Integer
Dim Y As Integer
Dim RngCount As Range


Set RngCount = ActiveSheet.Range("COLUMN:COLUMN")
Y = Application.WorksheetFunction.CountA(RngCount)

For F = Y To 1 Step -1

If ActiveSheet.Range("COLUMN" & F).Value < 3 Then
ActiveSheet.Rows(F).EntireRow.Delete
End If

Next F

End Sub

您只需要将值COLUMN替换为值所在列的字母，例如“C：C”和“C”。