Excel 符合标准时删除线

我有一个我正在尝试编写的代码，它将在列E中的值等于“Holiday”时拾取，然后删除与“Holiday”行关联的a和B列。我有下面的代码，但它贯穿每一行，而不仅仅是有假期的那一行。感谢您的帮助

Sub Sorting()
Dim ws As Worksheet
Dim rng As Range
Set ws = Worksheets("FedEx Air Ops Workbench Report")
lastrow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
Debug.Print lastrow
ws.Columns("A:G").Sort key1:=ws.Range("C1"), order1:=xlAscending
ws.Range("G1").FormulaR1C1 = "=VLOOKUP(RC[-2],BUTTONS!R2C9:R6C10,2,FALSE)"
ws.Range("G1").AutoFill Destination:=ws.Range("G1:G" & lastrow), Type:=xlFillDefault
ws.Columns("A:G").Sort key1:=ws.Range("G1"), order1:=xlAscending
ws.Columns("A:F").EntireColumn.AutoFit

For Each rng In ws.Range("E1:E" & lastrow)
If rng.Value = "Holiday" Then
ws.Range("A:B").Font.Strikethrough = True
End If
Next rng
End Sub

---

尝试更改此行：

ws.Range("A:B").Font.Strikethrough = True

致：

---

它给了我一个编译错误，应该是：语句结束啊，好的，额外的括号，哈哈，但它工作得很好，非常感谢！

ws.Range("A" & rng.Row).Resize(1, 2).Font.Strikethrough = True