寻找工作表2中的内容并删改工作表1相对应的列

kenleong

请大大帮忙:

在Sheet1 A列中有20个Order ID,在Sheet2 A列中有7个Order ID,想把Sheet2的Order ID一个一个为寻找条件, 如果在sheet1 中寻找到相同的Order ID,就把这个记录在sheet1中整列删除, 直至把Sheet2的7个Order ID全部找出.

Sheet  1 Order ID:

100001 ~ 100020

Sheet 2 Order ID:

100001

100003

100006

100005

100015

100013

100020

hfwufanhf2006

代码放在sheet1中：
For i = 1 To [a1000].End(3).Row
    s = Cells(i, 1)
    For k = 1 To Worksheets(2).[a100].End(3).Row
        If s = Worksheets(2).Cells(k, 1) Then
           Rows(i).Delete
           i = i - 1
        End If
    Next k
Next i

kenleong

hfwufanhf2006 发表于 2019-5-11 03:49
代码放在sheet1中：
For i = 1 To [a1000].End(3).Row
    s = Cells(i, 1)

谢谢大大的帮忙