宏删除excel中单元格包含某些文本的行

Question

我是新的VBA和不是非常熟练的编程，所以我希望在这里得到一些帮助。

提前谢了。

Answer 1

这是我以前用过的东西。这将应用筛选器，筛选C列和D列中的NA，然后删除这些行（不包括标题）。请注意，只有当NA在两个列中时，这才会移除该行。如果NA在C中，但不在D中，那么它不会移除该行。

'Applies filter to the columns. You will want to adjust your range.
Cells.Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$6").AutoFilter Field:=3, Criteria1:="NA"
ActiveSheet.Range("$A$1:$D$6").AutoFilter Field:=4, Criteria1:="NA"

'Removes the rows that are displayed, except the header
Application.DisplayAlerts = False
ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
Application.DisplayAlerts = True

'Removes the filter
Cells.Select
Selection.AutoFilter

希望能有所帮助。