【VBA代码】若某列数值为指定值，则删除该行数据

Public Sub 删除成交量为0的记录()
    Dim i, r
    r = [e65536].End(xlUp).Row 
    For i = r To 1 Step -1
        If Cells(i, 3) = 0 Then Rows(i).delete
    Next
End Sub