用VBA方法解决,代码如下：
Sub 去除重复()

Sheets("sheet1").Select
i = 0
j = 0
k = 0
l = 0
m = 2
For i = 1 To 4
For j = 1 To 4
For k = m To 4
For l = 1 To 4
If Cells(k, l) = Cells(i, j) Then
Cells(k, l).Select
Selection.ClearContents
End If
Next l
Next k
Next j
m = m + 1
Next i

End Sub