excel - 如何在 Excel VBA 中比较两个锯齿状数组

Question

我有两个锯齿状数组，其中包含一些我需要比较的实体的信息。

Dim MyArray1()
Dim MyArray2()

MyArray1(0) = Array("ID1", 2)
MyArray1(1) = Array("ID2", 7)
MyArray1(2) = Array("ID3", 5)
MyArray1(3) = Array("ID4", 3)

MyArray2(0) = Array("ID1", 5)
MyArray2(1) = Array("ID2", 8)
MyArray2(2) = Array("ID3", 6)
MyArray2(3) = Array("ID4", 9)

我正在寻找比较这些数组的最佳方法，在这种情况下，我需要同时获得它们之间的数量差异。所以 ID1 = 3、ID2 = 1 等。任何帮助将不胜感激!

Answer 1

如果两个数组始终具有相同的大小，那么使用字典可能会更容易。

Excel VBA Dictionary – A Complete Guide

Sub COMPARING_VALUES()
Dim Dict1 As Object
Dim Dict2 As Object

Set Dict1 = CreateObject("Scripting.Dictionary")
Set Dict2 = CreateObject("Scripting.Dictionary")

With Dict1
    .Add "ID1", 2
    .Add "ID2", 7
    .Add "ID3", 5
    .Add "ID4", 3
End With

With Dict2
    .Add "ID1", 5
    .Add "ID2", 8
    .Add "ID3", 6
    .Add "ID4", 9
End With

Dim key As Variant
For Each key In Dict1.Keys
    Debug.Print Dict2(key) - Dict1(key)
Next key


End Sub

在这种情况下，您可以使用字典，因为您将数据与 ID(这意味着键)相关联，而不仅仅是它们在数组中的位置，因此使用字典可能更容易。

执行此代码将在调试器中打印这些值:

 3 
 1 
 1 
 6

希望您可以根据自己的需要进行调整。