点工作簿顶部的 开发工具,打开VB编辑器。
在左侧右键---插入模块。
点击模块---在右侧输入或粘贴代码。
点击画圆圈的那个按钮执行代码命令。
为方便你复制,粘出代码,如下:
Sub 删除重复保留格()
Dim i As Long, irow As Long
irow = Range("A" & Rows.Count).End(3).Row
For i = irow To 2 Step -1
If Range("A" & i) = Range("A" & i - 1) Then
Range("A" & i & ":E" & i).ClearContents
End If
Next
End Sub
操作步骤如下: 1.删除A列重复的,保留B列值最大的 2.先对B列进行逆向排序 3.选择AB列,并删除重复项 4.勾选A列 5.完成
在i1输入排序,I2输入1,选择I2:I3向下复制直到最后一行,然后筛选I列为空的值,将筛选到的行delete全部删除,然后取消筛选。
然鹅其实我建议,还是图一这样的数据比较稳妥。信息越全越好。