去掉重复项就要删除行，但普通的公式是没有这样的指令的，但用宏就可以，现在你打开VBA编辑器，输入以下代码：
Sub 删除重复项()
Dim a
Dim b
For a = 1 To 29
For b = a + 1 To 29
If Cells(a, 1) = Cells(b, 1) Then
Cells(b, 1).Select
ActiveCell.Rows("1:1").EntireRow.Select
Selection.ClearContents
End If
Next
Next
End Sub
Sub 删除空白行()
Dim a
Do
a = a + 1
If a > 30 Then
Exit Do
ElseIf Cells(a, 1) = "" Then
Cells(a, 2).Select
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Loop
End Sub
首先运行宏【删除重复项】，再运行【删除空白行】（空白行要多运行几次方可把空白行删除）
下面是依次运行后的效果图
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024