[求助]VBA比较一列数值中的两个!!

关于如题,请下载附件 谢谢

的问题

Sub pdsc()
Dim Myr%, x%, Arr，ma,ma2,r1
Myr = [a65536].End(xlUp).Row
For x = 1 To 3
Arr = Range(Cells(1, x), Cells(Myr, x))
ma = Application.Large(Arr, 1)
ma2 = Application.Large(Arr, 2)
If ma >= 2 * ma2 Then
Set r1 = Range(Cells(1, x), Cells(Myr, x)).Find(ma)
Cells(r1.Row, 1).EntireRow.Delete shift:=xlUp
End If
Next x
End Sub