從一個數組傳遞奇數值到另一個數組時獲取類型不匹配錯誤

Question

我想從數組中提取奇數元素並將其分配給另一個數組。

Dim Array2 As Variant 

n = 1 

For i To Array1 
    If n Mod 2 = 0 Then 
     Array2(i) = Array1(i) 
    End If 
    n = n + 1 
Next i 

請有人建議。

Answer 1

這裏是過濾到一個新的數組存在於奇數索引的值的示例的大小：

Dim Array1(), Array2(), i As Long 

Array1 = Array(1, 2, 3, 4, 5, 6) 

ReDim Array2(LBound(Array1) To UBound(Array1) \ 2) 

For i = LBound(Array1) To UBound(Array1) Step 2 
    Array2(i \ 2) = Array1(i) 
Next i 

Answer 2

您的for循環應該從Lbound（Array1）到Ubound（Array1）。還需要聲明陣列2

Dim Array2 As Variant 
Redim Array2 (lbound(Array1) to (Ubound(Array1)/2) + 1) 
n = 1 

For i = lbound(Array1) to Ubound(Array1) 
    If n Mod 2 = 0 Then 
     Array2((i/2)-.5) = Array1(i) 
    End If 
n = n + 1 
Next i