Excel如何实现合并后，去掉重复内容，保留不同内容

发布网友发布时间：2022-03-02 08:42

共1个回答

热心网友时间：2022-03-02 10:11

去掉重复项就要删除行，但普通的公式是没有这样的指令的，但用宏就可以，现在你打开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

End Sub

Sub 删除空白行()

Dim a

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

首先运行宏【删除重复项】，再运行【删除空白行】（空白行要多运行几次方可把空白行删除）

下面是依次运行后的效果图