|
楼主 |
发表于 2013-12-20 10:15
|
显示全部楼层
- Sub 查找共有项()
- Dim arr1, arr2, arr3, i As Integer, j As Integer, item As Integer, temp As New Collection
- arr1 = WorksheetFunction.Transpose(Range("a2:a10").Value)
- arr2 = WorksheetFunction.Transpose(Range("b2:b10").Value)
- On Error Resume Next
- For i = 1 To UBound(arr1)
- If UBound(Filter(arr2, arr1(i), True, 1)) >= 0 Then temp.Add arr1(i), CStr(arr1(i))
- Next i
- ReDim arr3(1 To temp.Count, 1 To 1)
- For item = 1 To temp.Count
- arr3(item, 1) = temp(item)
- Next item
- Range("d1") = "共有项"
- Range("d1").Offset(1, 0).Resize(temp.Count, 1) = arr3
- End Sub
复制代码 这是源代码...
|
|