|
本帖最后由 无聊的疯子 于 2011-8-25 20:21 编辑
回复 xtay398 的帖子
两列都匹配的
- Sub 查找()
- Dim Arr, Arr1
- Arr = Sheets("总表").Range("A2:H20")
- Arr1 = Sheets("清单").Range("A2:B12")
- For x = 1 To UBound(Arr1)
- m = 0
- For x1 = 1 To UBound(Arr)
- If Arr1(x, 1) & Arr1(x, 2) = Arr(x1, 1) & Arr(x1, 2) Then
- h = Sheets("查到的数据").Range("A6000").End(xlUp).Row + 1
- Sheets("总表").Rows(x1 + 1).Copy Sheets("查到的数据").Cells(h, 1)
- m = m + 1
- End If
- Next
- If m = 0 Then
- h1 = Sheets("未查到的").Range("A6000").End(xlUp).Row + 1
- Sheets("清单").Rows(x + 1).Copy Sheets("未查到的").Cells(h1, 1)
- End If
- Next
- End Sub
复制代码
|
|