VB实现寻找删除相同的行

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请教高手如何利用VB实现附件的要求。谢谢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：请教高手 删除

本帖隐藏的内容

Excel中删除一列中数据相同的行。

Sub deleteP()
j = 200‘根据实际确定
    For hang = 2 To j
     If Cells(hang, 1) = "" Then Exit Sub '如果到了列尾无数据处，退出程序
        For i = hang + 1 To j '从它的下一行开始查询
            If Cells(hang, 1).Value = Cells(i, 1).Value Then '如果有相同的
               Rows(i).Select '删除行
               Selection.Delete Shift:=xlUp '下方单元格向上移
               i= i- 1 '删除行后，总行数变少。这句其实没用，可删
            End If
        Next
    Next
End Sub

这个很简单，请看上楼

瞧瞧.....谢谢分享

请求详细指导

还是看不懂上面高手的语句，请求结合附件详细指导

删除各分部（包括一部、二部、三部、四部）牌子与总部相同的行（即只删掉黄颜色标注的部分，不删掉绿颜色标注的部分怎么办？
实际上没有排序，那是我为了将事情说明白做的。
请求高手指导

学习下

用排序的方法也可以呀

i want to know too