怎么通过宏VBA代码删除Excel中有重复数据的整行？

Question

如题所述

Answer 1

1、首先打开需要编辑的Excel表格，右键单击工作表的标签，选择打开“查看代码”。

2、然后在弹出来的窗口中点击输入：

Sub 删除重复行()

Dim xRow As Integer

Dim i As Integer

xRow = Range("B65536").End(xlUp).Row

For i = 2 To xRow

For j = i + 1 To xRow

If Cells(j, 2) = Cells(i, 2) Then

Range(Cells(j, 1), Cells(j, 256)).Rows.Delete

j = j - 1

xRow = xRow - 1

End If

Next

Next

End Sub

3、然后点击左上角的保存按钮进行保存，之后运行该代码或运行宏“删除重复行”即可。

4、然后就可以删除重复数据的整行。