VBA如何删除条件选择所在行？

Question

VBA如何设置代码能删除支付单奖励名称中“安全奖”列同时是付款凭证日期为2022年的所在列

Answer 1

Sub nnn()
Dim i&
For i = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
If Cells(i, 1) = "安全奖" And Format(Cells(i, 5), "yyyy") = 2022 Then Rows(i).Delete
Next
End Sub本回答被提问者采纳