VBA数组表示问题

simengzhixia

我是否可以数组表示两个单元或者别的方法:
eg1：
Sub 试验()
Dim arr
arr = [{Sheets("表1").Cells(6, 7); Sheets("表1").Cells(6, 8)}]
MsgBox arr
End Sub
（运行错误）
eg2：我还想表示另一个“表2”的cells(i,7) and cells(i,8)怎样表示？？？谢谢

laosanjie

simengzhixia 发表于 2011-7-5 16:57
我是否可以数组表示两个单元或者别的方法:
eg1：
Sub 试验()

Sub 实验()
    Dim arr
    arr = Sheet1.Range("F6:G6")
    MsgBox arr(1, 1) & arr(1, 2)
End Sub

Sub 实验2() '前提是Sheet2表的F6到G8这3行2列都有数据
    Dim arr, x As Byte, i As Byte
    x = 3
    arr = Sheet2.Range("F6:G8")
    For i = 1 To x
        MsgBox arr(i, 1) & arr(i, 2)
    Next i
End Sub

liuts

1. Sub 试验()
   
2. Dim arr
   
3. arr = Range(Sheets("表1").Cells(6, 7), Sheets("表1").Cells(6, 8))
   
4. Stop
   
5. ReDim arr(1 To 10, 1 To 2)
   
6. For i = 1 To 10
   
7.     arr(i, 1) = Sheets("表1").Cells(i, 7)
   
8.     arr(i, 2) = Sheets("表1").Cells(i, 8)
   
9. Next
   
10. Stop
    
11. 
    
12. End Sub
    

复制代码

simengzhixia

回复 liuts 的帖子

谢谢，但运行错误？

研究研究

arr = [{Sheets("表1").Cells(6, 7); Sheets("表1").Cells(6, 8)}]

arr = range（"g6:h6")


MsgBox arr

msgbox  不支持数组提示