是否有人知道或可以编写一个宏来检查文档的所有行并删除至少具有以下条件之一的所有行:
- F 列 = 0
- 第 N 列 = 0
- AT 列 = FALSE
- AU 列 = FALSE
- AV 列 = 已售出
- Z 列 = 已暂存
谢谢。
最佳答案
Sub RemoveRows()
Application.ScreenUpdating = False
Dim r As Long
For r = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 To ActiveSheet.UsedRange.Row Step -1
If Cells(r, 6) = 0 Or Cells(r, 14) = 0 _
Or Cells(r, 46) = False Or Cells(r, 47) = False _
Or Cells(r, 48) = "Sold" Or Cells(r, 26) = "staged" _
Then Cells(r, 1).EntireRow.Delete
Next r
End Sub
关于Excel:如果 COLUMN 等于 VALUE,则删除多行,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6294377/