2、然后在弹出来的窗口中点击输入:Sub 删除重复行()Dim xRow As IntegerDim i As IntegerxRow = Range("B65536").End(xlUp).RowFor i = 2 To xRowFor j = i + 1 To xRowIf Cells(j, 2) = Cells(i, 2) ThenRange(Cells(j, 1), Cells(j, 256)).Rows.Deletej = j – 1xRow = xRow – 1End IfNextNextEnd Sub3、然后点击左上角的保存按钮进行保存,之后运行该代码或运行宏“删除重复行”即可。
4、然后就可以删除重复数据的整行。