删除一行

Question

我想编写一个宏，只有在验证条件但它不起作用的情况下才会删除一行。 someomne可以告诉我问题出在哪里。

我的代码是：

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的评论是一个更有效的解决方案 - 但是如果你想要去VBA路线那么你需要使用：

gdb -tui

.Rows(i).Font.Strikethrough = True 是属性，而不是方法，因此在这种情况下，您需要将值显式设置为Strikethrough或True