唥嗼驕傲 3星
共回答了319个问题 评论
sheet表名上右键,查看代码,将下面的代码复制入其中,按F5运行一次
过程中,会有提示“是否删除下面的行?”,
是,删除;否,不删除,继续查找;取消,退出程序
数据多时,请耐心等待……
使用前,请备份数据,VBA操作不能返回的……
-----------------
Public Sub 删除重复行()
'查找整行相同的行,只留下一行,其余删除
Dim i&, j&, r&, c%, c1%, c2%, s&, t As Boolean, ms%
c1 = [A1].Column '开始列
c2 = [I1].Column '结束列
r = [I65536].End(xlUp).Row '确定行数列
Columns(c2 + 1).Insert Shift:=xlToRight
With Cells(1, c2 + 1)
.Value = "1"
…………
…………
MsgBox "已完成!共删除 " & s & " 个重复行。"
End Sub
1小时前
猜你喜欢的问题
2天前1个回答
2天前1个回答
2天前1个回答
2天前2个回答
2天前1个回答
2天前2个回答
热门问题推荐
1个月前1个回答
1个月前1个回答
3年前1个回答
4个月前2个回答
3个月前2个回答
3个月前2个回答
3个月前2个回答
4个月前2个回答
1个月前2个回答