我写了个VBA程序，试验通过： sub Macro1()Dim r As IntegerDim c As IntegerDim t As IntegerDim i As IntegerDim j As IntegerDim k As Integert = 0 '删除个数计数r = 5 '数据的行数c = 4 '数据的列数For i = 1 To r
For j = c To 2 Step -1
For k = 1 To j - 1
If Cells(i, k)0 And Cells(i, j) = Cells(i, k) Then
...
