删除一行

我想编写一个只有在validation条件但不起作用的情况下删除行的macros。 有人能告诉我问题在哪里。

我的代码是：

With ThisWorkbook.Sheets("Plan Traitement Risque") For i = 6 To lr1 Step 1 If Application.CountIf(col_2, .Range("B" & i).Value) = 0 Then .Rows(i).Font.Strikethrough End If Next i End with 

Answer 1

Jeeped的评论是一个更有效的解决scheme – 但是如果你想要走VBA路线，那么你需要使用：

 .Rows(i).Font.Strikethrough = True 

Strikethrough是一个属性，而不是一个方法，所以在这种情况下，您需要明确地将值设置为True或False