三列对比删除相同的

wowo000

论坛各位老师：早上好！劳烦哪位帮俺用vba代码实现附件里表述，谢谢！

wowo000

各位老师：打搅午休了，如果（实际情况）取消的单号在另外一个工作表里，劳烦哪位帮忙实现附件里的表述，多谢！！！

loirol

wowo000

loirol 发表于 2024-11-29 07:16

您好！早上好！尊敬的loirol老师。谢谢您的帮助，谢谢！可否劳烦您再出手帮俺一下，已经重新上传附件，谢谢！

wowo000

为了方便各位老师写代码，俺重新整理了一下附件，劳烦给整整，多谢！

quqiyuan

参与一下，仅供参考，，，

quqiyuan

代码如下。。。。
Sub test()
    Dim wb As Workbook, sht As Worksheet
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("sheet1")
    arr = sht.UsedRange
    For i = 2 To UBound(arr)
        If arr(i, 9) <> Empty Then
            s = Split(arr(i, 9), ",")
            For j = 0 To UBound(s)
                If InStr(arr(i, 19), s(j)) Then
                    sht.Cells(i, 9) = Replace(sht.Cells(i, 9), s(j), "")
                End If
            Next
        End If
    Next
    Beep
End Sub

loirol

wowo000 发表于 2024-11-29 07:39
为了方便各位老师写代码，俺重新整理了一下附件，劳烦给整整，多谢！

你这新上传的和老的有啥区别？

wowo000

quqiyuan 发表于 2024-11-29 07:43
参与一下，仅供参考，，，

尊敬的quqiyuan老师：您好！可否劳烦您就四楼的附件整一下？多谢！

wowo000

loirol 发表于 2024-11-29 07:46
你这新上传的和老的有啥区别？

尊敬的loirol老师：就是S列的单号俺用逗号隔开了。劳烦你了，谢谢！

loirol

wowo000 发表于 2024-11-29 07:49
尊敬的loirol老师：就是S列的单号俺用逗号隔开了。劳烦你了，谢谢！