哪位高手帮忙看下这个问题，感觉好困难。

xtay398

我想通过“清单”里的数据在“总表”里的查找，找到的话就把“总表”里那行数据拷贝到“查到的数据”里面，如果找不到就把清单里此条数据考到“未查到表”里，

无聊的疯子

回复 xtay398 的帖子

清单是两列都要匹配还是只匹配A列??

无聊的疯子

回复 xtay398 的帖子

两列都匹配的

1. Sub 查找()
   
2. Dim Arr, Arr1
   
3. Arr = Sheets("总表").Range("A2:H20")
   
4. Arr1 = Sheets("清单").Range("A2:B12")
   
5. For x = 1 To UBound(Arr1)
   
6.     m = 0
   
7.     For x1 = 1 To UBound(Arr)
   
8.         If Arr1(x, 1) & Arr1(x, 2) = Arr(x1, 1) & Arr(x1, 2) Then
   
9.             h = Sheets("查到的数据").Range("A6000").End(xlUp).Row + 1
   
10.             Sheets("总表").Rows(x1 + 1).Copy Sheets("查到的数据").Cells(h, 1)
    
11.             m = m + 1
    
12.         End If
    
13.     Next
    
14.     If m = 0 Then
    
15.         h1 = Sheets("未查到的").Range("A6000").End(xlUp).Row + 1
    
16.         Sheets("清单").Rows(x + 1).Copy Sheets("未查到的").Cells(h1, 1)
    
17.     End If
    
18. Next
    
19. End Sub
    

复制代码

wawadai

我试了一下，不知道合乎你的要求不？我先把《清单》和《总表》的A列和B列都合并，然后用了VLOOKUP函数，结果是有点数据就查找到了，反之是没有的，然后用自动筛选，把有的复制《查找到数据》，没有的复制到《未查找到的》，不对还请指教。