Excel如何实现合并后,去掉重复内容,保留不同内容
发布网友
发布时间：2022-04-26 10:30
共1个回答
热心网友
时间：2022-06-27 09:54
去掉重复项就要删除行，但普通的公式是没有这样的指令的，但用宏就可以，现在你打开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
首先运行宏【删除重复项】，再运行【删除空白行】（空白行要多运行几次方可把空白行删除）
下面是依次运行后的效果图
