使用宏，如何脚本删除2列（T＆U）基于列“N”值？

Question

我需要帮助，使用VBA来编程宏，以删除列“T & U”中基于等于“Closed”的列“N”的所有值。

所以为了简化：如果列“N”=关闭，列“T”和“U”应该没有值。

谢谢！

Answer 1

试试这个：

Sub Clearer() 
    Dim i As Long 
    Dim w As Worksheet 
    Dim r As Range 
    Dim r1 As Long 

    Set w = Sheet1 'Set this to the (name) of the sheet. 
    Set r = w.UsedRange 

    r1 = r.Row 

    For i = r1 To r1 + r.Rows.Count - 1 
     If w.Cells(i, 14) = "Closed" Then w.Range(w.Cells(i, 20), w.Cells(i, 21)).ClearContents 
    Next i 

    MsgBox "Done!" 

End Sub