I have three 2d arrays and I used 1d array to store those 2d arrays like that
Code: Select all
arrResults = Array(w1, w2, w3)
Code: Select all
For Each e In arrResults
Code: Select all
Application.Match(e, arrResults, 0)
Code: Select all
arrResults = Array(w1, w2, w3)
Code: Select all
For Each e In arrResults
Code: Select all
Application.Match(e, arrResults, 0)
Code: Select all
arrResults = Array(w1, w2, w3)
arrCols = Array(0, 1, 4)
For i = LBound(arrResults) To UBound(arrResults)
.Cells(2, iCol + arrCols(i)).Resize(UBound(arrResults(i), 1), UBound(arrResults(i), 2)).Value = arrResults(i)
Next i