VBA에서 두 개의 컬렉션을 병합하는 방법은 무엇입니까?

Question

VBA에서 두 개의 컬렉션을 병합하는 가장 효율적인 방법은 무엇입니까? 그래서 처음 두 컬렉션의 모든 항목을 포함하는 세 번째 컬렉션이 있습니까?

Answer 1

읽기 this article, 좋아.

결론 : 배열을 반복하는 루프 For

• 사용.
• 컬렉션을 반복하려면 For Each 루프를 사용하십시오.

그래서, For Each 루프를 사용하여 컬렉션을 반복하고 3 ^번째 컬렉션이 루프 Add 항목이다.

Answer 2

컬렉션을 병합하여 항목을 반복하고 새 컬렉션 또는 원본 컬렉션 중 하나에 컬렉션을 추가 할 수 있습니다. 이 비록 2 컬렉션의 키를 보존하지 않습니다 - 당신이 원하는 경우에 당신이 컬렉션을 사용할 수

다른 Collectioncol1에 Collectioncol2의 항목을 추가하고 새로운 병합 Collection을 반환하려면 :

Function mergedCollection(ByVal col1 As Collection, ByVal col2 As Collection) As Collection 
    'Add items from col2 to col1 and return the result 
    'ByVal means we are only looking at copies of the collections (the values within them) 
    'The function returns a NEW merged collection 
    Dim i As Long 
    For i = 1 To col2.Count 
     col1.Add col2.item(i) 
    Next i 
    Set mergedCollection = col1 'set return value 
End Function 

직접 col1에 col2을 추가 할 수

Sub mergeCollectionsInPlace(ByRef col1 As Collection, ByVal col2 As Collection) 
    'Routine to add items from col 2 directly to col1 
    'ByRef col1 means we are adding directly to the original col1 
    'Routine doesn't return a new collection, it just appends col2 to col1 
    Dim i As Long 
    For i = 1 To col2.Count 'loop through each item in collection 2 
     col1.Add col2.item(i) 'add the item at index i to collection 1 
    Next i 
End Sub 

( col1이 변경됩니다)

를 사용하여 각 오브젝트 컬렉션을 반복 할 때, 대를 배열이 반복되는 경우 ForFor Each 대 루프를 비교

Dim col3 As Collection 
Set col3 = mergedCollection(col1, col2) 'sets col3 to be the merge of the two collections 
mergeCollectionsInPlace(col1, col2)  'sets col1 to be the merge of the two collections