blocks|key|4145616|text|集合是用来查找唯一值的。我的代码首先将DirCurrentArray中的所有值添加到ArrayList中，然后从ArrayList中删除DirHistoryArray中的所有值。最后，它将ArrayList中的值赋给DirFinalArray。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4145617|​|4145618|📷|atomic|offset|length|4145619|4145620|Sub+GetUniqueValuesFrom2Arrays()
++++Dim+DirCurrentArray+As+Variant,+DirHistoryArray+As+Variant,+DirFinalArray,+Key+As+Variant
++++Dim+list+As+Object
++++Set+list+=+CreateObject("System.Collections.ArrayList")

++++Dim+i+As+Long,+k+As+Variant,+DirNewArray+As+Variant

++++DirCurrentArray+=+Array("A",+"B",+"C",+1,+2,+3,+4,+5)
++++DirHistoryArray+=+Array("C",+"D",+1,+3,+5)

++++For+Each+Key+In+DirCurrentArray
++++++++list.Add+Key
++++Next

++++For+Each+Key+In+DirHistoryArray
++++++++If+list.Contains(Key)+Then+list.Remove+Key
++++Next

++++DirFinalArray+=+list.ToArray()

++++MsgBox+"DirCurrentArray:+"+&+Join(DirCurrentArray,+",")+&+vbNewLine+&+_
++++++++"DirCurrentArray:+"+&+Join(DirHistoryArray,+",")+&+vbNewLine+&+_
++++++++"DirFinalArray:+"+&+Join(DirFinalArray,+",")

End+Sub|code-block|syntax|javascript|4145621|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/c631887afbe97639beb9966eef6bc1ed.png|imageAlt^0|0|0|0|1|0|0|0|0^^$0|@$1|2|3|4|5|6|7|X|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|Y|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|Z|8|@]|9|@$G|10|H|11|1|12]]|A|$]]|$1|I|3|C|5|6|7|13|8|@]|9|@]|A|$]]|$1|J|3|K|5|L|7|14|8|@]|9|@]|A|$M|N]]|$1|O|3|-4|5|6|7|15|8|@]|9|@]|A|$]]]|P|$Q|$5|R|S|T|A|$U|V|W|-4]]]]

Collections are built to lookup unique values. My code first adds all the values in DirCurrentArray to an ArrayList and then removes all values in DirHistoryArray from the ArrayList. Finally, it assigns the values in the ArrayList to DirFinalArray.

<a href="https://i.stack.imgur.com/XXWAX.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/XXWAX.png" alt="enter image description here"></a>

<pre><code>Sub GetUniqueValuesFrom2Arrays()
 Dim DirCurrentArray As Variant, DirHistoryArray As Variant, DirFinalArray, Key As Variant
 Dim list As Object
 Set list = CreateObject("System.Collections.ArrayList")

 Dim i As Long, k As Variant, DirNewArray As Variant

 DirCurrentArray = Array("A", "B", "C", 1, 2, 3, 4, 5)
 DirHistoryArray = Array("C", "D", 1, 3, 5)

 For Each Key In DirCurrentArray
 list.Add Key
 Next

 For Each Key In DirHistoryArray
 If list.Contains(Key) Then list.Remove Key
 Next

 DirFinalArray = list.ToArray()

 MsgBox "DirCurrentArray: " &amp; Join(DirCurrentArray, ",") &amp; vbNewLine &amp; _
 "DirCurrentArray: " &amp; Join(DirHistoryArray, ",") &amp; vbNewLine &amp; _
 "DirFinalArray: " &amp; Join(DirFinalArray, ",")

End Sub
</code></pre>

blocks|key|4145640|text|我认为您可以根据自己的需求使用Dictionary来存储、比较和检索数组项。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|4145641|你可以试试这样的东西...|4145642|Dim+dict
Set+dict+=+CreateObject("Scripting.Dictionary")

'Load+DirCurrentArray+into+dictionary
For+i+=+LBound(DirCurrentArray)+To+UBound(DirCurrentArray)
++++dict.Item(DirCurrentArray(i))+=+""
Next+i

'Remove+from+dictionary+if+DirHistoryArray+elements+are+found+in+dictionary
For+i+=+LBound(DirHistoryArray)+To+UBound(DirHistoryArray)
++++If+dict.exists(DirHistoryArray(i))+Then+dict.Remove+(DirHistoryArray(i))
Next+i

'If+dictionary+is+not+empty+then+populate+the+DirCurrentArray+with+dictionary+keys
If+dict.Count+Then
++++DirCurrentArray+=+dict.keys
++++MsgBox+Join(DirCurrentArray,+",+")
Else
++++MsgBox+"DirCurrentArray+is+empty."
End+If|code-block|syntax|javascript|4145643|entityMap^0|F|A|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@$9|P|A|Q|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|R|8|@]|D|@]|E|$]]|$1|H|3|I|5|J|7|S|8|@]|D|@]|E|$K|L]]|$1|M|3|-4|5|6|7|T|8|@]|D|@]|E|$]]]|N|$]]

I think you can use <code>Dictionary</code> to store, compare and retrieve the array items as per your requirement. 

You may try something like this...

<pre><code>Dim dict
Set dict = CreateObject("Scripting.Dictionary")

'Load DirCurrentArray into dictionary
For i = LBound(DirCurrentArray) To UBound(DirCurrentArray)
 dict.Item(DirCurrentArray(i)) = ""
Next i

'Remove from dictionary if DirHistoryArray elements are found in dictionary
For i = LBound(DirHistoryArray) To UBound(DirHistoryArray)
 If dict.exists(DirHistoryArray(i)) Then dict.Remove (DirHistoryArray(i))
Next i

'If dictionary is not empty then populate the DirCurrentArray with dictionary keys
If dict.Count Then
 DirCurrentArray = dict.keys
 MsgBox Join(DirCurrentArray, ", ")
Else
 MsgBox "DirCurrentArray is empty."
End If
</code></pre>

blocks|key|4145662|text|看看这个|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4145663|Option+Base+1
Sub+test()

++++Dim+DirCurrentArray(5)+As+Integer
++++Dim+DirHistoryArray(5)+As+Integer
++++Dim+DirFinalArray()+As+Integer


++++DirCurrentArray(1)+=+1
++++DirCurrentArray(2)+=+4
++++DirCurrentArray(3)+=+5
++++DirCurrentArray(4)+=+1
++++DirCurrentArray(5)+=+7


++++DirHistoryArray(1)+=+1
++++DirHistoryArray(2)+=+2
++++DirHistoryArray(3)+=+1
++++DirHistoryArray(4)+=+4
++++DirHistoryArray(5)+=+1

++++Dim+blnExist+As+Boolean

++++For+Each+i+In+DirCurrentArray
++++++++For+Each+j+In+DirHistoryArray

++++++++++++If+i+=+j+Then
++++++++++++++++blnExist+=+True
++++++++++++++++Exit+For
++++++++++++End+If

++++++++Next

++++++++If+blnExist+=+False+Then
++++++++++++finalcount+=+finalcount+%2B+1
++++++++++++ReDim+Preserve+DirFinalArray(finalcount)
++++++++++++DirFinalArray(finalcount)+=+i
++++++++End+If

++++++++blnExist+=+False
++++Next


End+Sub|code-block|syntax|javascript|4145664|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Check this out

<pre><code>Option Base 1
Sub test()

 Dim DirCurrentArray(5) As Integer
 Dim DirHistoryArray(5) As Integer
 Dim DirFinalArray() As Integer


 DirCurrentArray(1) = 1
 DirCurrentArray(2) = 4
 DirCurrentArray(3) = 5
 DirCurrentArray(4) = 1
 DirCurrentArray(5) = 7


 DirHistoryArray(1) = 1
 DirHistoryArray(2) = 2
 DirHistoryArray(3) = 1
 DirHistoryArray(4) = 4
 DirHistoryArray(5) = 1

 Dim blnExist As Boolean

 For Each i In DirCurrentArray
 For Each j In DirHistoryArray

 If i = j Then
 blnExist = True
 Exit For
 End If

 Next

 If blnExist = False Then
 finalcount = finalcount + 1
 ReDim Preserve DirFinalArray(finalcount)
 DirFinalArray(finalcount) = i
 End If

 blnExist = False
 Next


End Sub
</code></pre>

I have 2 arrays: DirCurrentArray and DirHistoryArray but I can't seem to get the values in DirCurrentArray unique from DirHistoryArray

<pre><code>Dim DirCurrentArray As String
Dim DirHistoryArray As Variant

'Gets Filenames into Array
Do While xFile &lt;&gt; ""
 DirCurrentArray(fileCount) = xFile
 xFile = Dir$
 fileCount = fileCount + 1
Loop

For Each i In DirCurrentArray
 For Each j In DirHistoryArray
 If i = j Then
 finalCount = finalCount + 1
 DirFinalArray(finalCount) = i
 End If
 Next j
 Next i
</code></pre>

The result I want is the DirCurrentyArray with any values that are found in DirHistoryArray removed

Excel VBA Get Unique Values

我有两个数组: DirCurrentArray和DirHistoryArray，但似乎无法从DirHistoryArray获取DirCurrentArray中唯一的值Dim DirCurrentArray As StringDim DirHistoryArray As Variant'Gets Filenames in...

问Excel VBA获取唯一值
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Excel VBA获取唯一值EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Excel VBA获取唯一值
EN