求大侠帮我看看问题出在哪里啊
Sub a()Dim C As IntegerDim d As IntegerC = 0d = 1Do C = C + 1 Do d = d + 1 If Range("a" & C) = Range("a" & d) Then Range("a" & d) = "" Loop Until Range("a" & C) <> Range("a" & d) Else C = d - 1 End If Loop Until Range("a" & C) = "" End Sub
