恳请高手帮忙这个删除指定行的0.00，并排序的难题

准提部林

Sub TEST_A1()
Dim Arr, i&, R&
With [A3].CurrentRegion
     .Columns(3) = .Columns(3).Value
     .Sort key1:=.Item(3), Order1:=xlDescending, Header:=xlNo
     Arr = .Value:  R = UBound(Arr)
     For i = 1 To UBound(Arr)
         If Val(Arr(i, 3)) = 0 Then .Cells(i, 1).Resize(R - i + 1).EntireRow.Delete: Exit For
     Next i
End With
End Sub