vba 循環遍歷數組，將值存儲到 arrayi

Question

我有一些數據，存儲在數組中

Dim arrA, arrB, arrC, arrAi, arrBi
Dim i as integer, x as integer

for i = 1 to 100

    if cells(i,1).value = "criteria" then ' just add value to array when it meets some criteria
        x = x + 1
        arrA(x) = cells(i,1).value
        arrB(x) = cells(i,2).value
        arrC(x) = cells(i,3).value
    end if

next i

redim preserve arrA(1 to x)
redim preserve arrB(1 to x)
redim preserve arrC(1 to x)

數據看起來像

arrA：26.1 40.2 80.3 26.0 41.3 78.7 25.8 40.8 80.0

arrB: 10 11 10 66 67 64 32 32 33

arrC: 1 2 3 1 2 3 1 2 3

由於 arrA 26.1、26.0、25.8（位置 1、4、7）中的值屬於第 1 組（參考 arrC 中相同位置的值），我想將 26.1 26.0 25.8 存儲到 arrAi 和 10 66 32 到 arrBi后續計算。

如上所述，如何遍歷 3 個數組並將值存儲到另一個數組？

提前致謝。

Answer 1

請嘗試下一種方法：

Sub handleArraysFromArrays()
 'your existing code...
 'but you fistly must declare
  Dim arrA(1 To 100), arrB(1 To 100), arrC(1 To 100)
 '....
 'your existing code
 '...
 Dim k As Long, kk As Long
 
 ReDim arrAi(1 To UBound(arrA))
 ReDim arrBi(1 To UBound(arrA))
 For i = 1 To UBound(arrC)
    If arrC(i, 1) = 1 Then k = k + 1: arrAi(k, 1) = arrA(i, 1)
    If arrC(i, 1) = 2 Then kk = kk + 1: arrBi(kk, 1) = arrA(i, 1)
 Next i
 ReDim Preserve arrAi(1 To k): ReDim Preserve arrBi(1 To kk)
 Debug.Print UBound(arrAi), UBound(arrBi)
End Sub