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
1 回答
这样的事情怎么样:
您只需要将值COLUMN替换为值所在列的字母,例如: “C:C”和“C” .