[已解决]如何给数组逐个赋值

cxloen

请问如下赋值为什么会出错，正确的应该怎么写

Sub test()
   Dim arr(1 To 15, 1 To 2) As Range
    Dim i, j, k, x

    For i = 1 To 5 Step 2
        For j = 1 To 5
        x = x + 1

        arr(x, 1) = Range(Cells(j, i)).Value
          arr(x, 2) = Range(Cells(j, i + 1)).Value
        Next j
        Next i

End Sub

最佳答案

月排行榜 / 总排行榜

xdragon

2013-9-21 13:48

问题1，变量设置为range。。。赋值的是单元格的值。。。
问题2，range和cells重复使用了。。。
Sub test()
   Dim arr(1 To 15, 1 To 2)
    Dim i, j, k, x
    For i = 1 To 5 Step 2
        For j = 1 To 5
        x = x + 1

        arr(x, 1) = Cells(j, i).Value
          arr(x, 2) = Cells(j, i + 1).Value
        Next j
        Next i

End Sub
这样就可以了。。

跳转到最佳答案楼层

我心飞翔410

dim arr
arr=range("a1:f6")

美斯特邦威

1. Sub abc()
   
2. Dim pp(1 To 15, 1 To 2)
   
3. kk = Range("a1:f5").Value
   
4. For j = 2 To UBound(kk, 2) Step 2
   
5. For i = 1 To UBound(kk)
   
6. pp(x + 1, 1) = kk(i, j - 1)
   
7. pp(x + 1, 2) = kk(i, j)
   
8. x = x + 1
   
9. Next i, j
   
10. End Sub
    

复制代码

楼主意思是要排成两列的

xdragon

问题1，变量设置为range。。。赋值的是单元格的值。。。
问题2，range和cells重复使用了。。。
Sub test()
   Dim arr(1 To 15, 1 To 2)
    Dim i, j, k, x
    For i = 1 To 5 Step 2
        For j = 1 To 5
        x = x + 1

        arr(x, 1) = Cells(j, i).Value
          arr(x, 2) = Cells(j, i + 1).Value
        Next j
        Next i

End Sub
这样就可以了。。