vba如何将表中的值循环传到数组中(有加分)

来源：百度知道 编辑：UC知道 时间：2024/05/31 12:12:10
从F10开始一直到F50,如果单元格的值为空,则停止循环,否则将单元格的值传入A(1,1)相对应的D列(如F10对应D10)也传到数组中A(1,2).
F11和D11传到A(2,1),A(2,2)中
我只知道逻辑,不清楚语法,各位大侠请上!

Sub abc()

Dim a(10 To 50, 1 To 2) As Integer
Dim i As Integer

For i = 10 To 50
If trim(ActiveSheet.Cells(i, 6).Value) = "" Then
Exit For
Else

a(i, 1) = Cells(i, 6).Value
a(i, 2) = Cells(i, 4).Value

End If

'Debug.Print a(i, 1) & " " & a(i, 2)
Next i

End Sub