求助 根据d列订单号判断是否重复，如果有重复删除该行

shofing

根据某列内容删除重复的行，自己编的和网上找列很多代码都无效，实际的数据有2000条左右，求一个简单有效的代码，详见附件
WPS删除重复此项一点wps就奔溃假死，发帖前测试很多次。尝试vba也没成功，（我在用vba写一个京东订单管理系统，测试post批量改地址时发现有很多行重复的。开始以为是写的vba程序有问题，条件格式筛选确实是有重复，测试很多方法不管用，卡这里了，群里的）可能WPS有问题需要重新安装，网上找的都把有用数值删了，或者没动静。什么双循环，字典，不得已求助。

shofing

wps环境里，想使用宏处理，wps自带的去重复一点就假死，2行数据也假死。

liulang0808

高级筛选-选择不重复记录，这个操作，主可以看下
这个字典的案例，楼主也可以参考下http://club.excelhome.net/thread-1385473-1-1.html

cjyjimmy

EXCEL有这个功能工具

xlgw521

shofing 发表于 2021-5-26 04:35
wps环境里，想使用宏处理，wps自带的去重复一点就假死，2行数据也假死。

WPs 里    直接选 中有单号的这一列，然后 数据>重复项>删除重复项   就好了

xlgw521

看图，WPS里面

shofing

此项一点wps就奔溃假死，发帖前测试很多次。尝试vba也没成功，（我在用vba写一个京东订单管理系统，测试post批量改地址时发现有很多行重复的。开始以为是写的vba程序有问题，条件格式筛选确实是有重复，测试很多方法不管用，卡这里了，Excel易用宝里也有此项功能也没起作用假死）可能WPS有问题需要重新安装，或者原表格数据有问题？ 网上找的都把有用数值删了，或者没动静。什么双循环，字典。

jany1312

数据-删除重复项，如果对删除哪一条没有要求的话，可以用这种简单的方法

shofing

已解决
贴上我自己编的代码
Sub 删除重复行()
    Dim xRow As Integer
    Dim i As Integer
    xRow = Range("d65536").End(xlUp).Row
    For i = 2 To xRow
        a = Range("d" & i).Value
        For j = i + 1 To xRow
            B = Range("d" & j).Value
            If a = B Then
                Rows(j).Delete
                j = j - 1
                xRow = xRow - 1
            End If
        Next
    Next
End Sub