我有 2 个数组。
- Array1 是一个包含 3 列的列表。
- Array2 是包含 2 列的列表。
- 两个数组的第 1 列和第 2 列具有相同的信息。
我需要弄清楚如何创建第三个数组,该数组包含 Array1 中的 3 列,并且仅包含属于 Array2 的项目。
非常感谢任何帮助。
最佳答案
类似这样的事情:
假设您的数组位于 A1:C10
和 E1:F10
中,请进行更改以适应。
Sub Arid()
Dim X
Dim Y
Dim Z
Dim lngCnt As Long
Dim lngCnt2 As Long
Dim lngCnt3 As Long
X = Range([a1], [c10]).Value2
Y = Range([E1], [F10]).Value2
ReDim Z(1 To UBound(X), 1 To 3)
For lngCnt = 1 To UBound(X, 1)
For lngCnt2 = 1 To UBound(Y, 1)
If X(lngCnt, 1) = Y(lngCnt2, 1) Then
If X(lngCnt, 2) = Y(lngCnt2, 2) Then
lngCnt3 = lngCnt3 + 1
Z(lngCnt3, 1) = X(lngCnt, 1)
Z(lngCnt3, 2) = X(lngCnt, 2)
Z(lngCnt3, 3) = X(lngCnt, 3)
Exit For
End If
End If
Next
Next
End Sub
关于excel - VBA 使用另一个数组查找一个数组中的值,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/43579645/