第1个回答 2015-09-15
楼主,你把下面的代码粘贴进去运行一下,或许是你想要的结果。
Sub shanchuchongfu()
Set Rng = ActiveSheet.UsedRange
Dim i As Integer, j As Integer, m As Integer
For i = Rng.Rows.Count To 1 Step -1
For j = Rng.Columns.Count To 1 Step -1
For m = i - 1 To 1 Step -1
If Cells(i, j) = Cells(m, j).Value Then
Cells(i, j).Value = ""
End If
Next m
Next j
Next i
End Sub