Question

VBA里应该怎么定义一个动态的二维数组?

我是这么声明的
Public arr As Variant
在一个过程里赋值
Sub test()
arr = {"饮料","2101","2501"; "食品","2102","2601" ; "蔬菜","2103","2701"}
End Sub
然后,就 直报错,哪里不对吗?

我想让这个二维数组成这个样子(三行两列):
"饮料" "2101","2501"
"食品" "2102","2601"
"蔬菜" "2103","2701"
应该怎么声明和赋值啊?
字符串里的引号也要保留.

Answer 1

VBA中动态定义一个二维数组，案例代码如下：

//定义动态数组tt
Sub tt()
Dim a() As Integer
ReDim a(1 To 2, 1 To 1) As Integer
a(1, 1) = 10
i = 10
ReDim Preserve a(1 To 2, 1 To i) As Integer
MsgBox a(1, 1)
End Sub

Answer 2

这样写：
arr = [{"饮料", "2101", "2501"; "食品", "2102", "2601"; "蔬菜", "2103", "2701"}]

追问

好像不行啊.

追答

如何报错的？最好贴个图。我专门试了一下，是对的。数组赋值，两端加方括号。

下图为测试结果：

追问

我想要的结果是这样的,都带有引号,是个三行二列的数组.
arr(1)
arr(1,1)"饮料"
arr(1,2)"2101","2501"

arr(2)
arr(2,1)"食品"
arr(2,2)"2102","2601"

arr(3)
arr(3,1)"蔬菜"
arr(3,2)"2103","2701"

追答

亲，看一下是这个意思不：

arr = [{"""饮料""", """2101"", ""2501""";"""食品""", """2102"", ""2601"""; """蔬菜""", """2103"", ""2701"""}]

 

Answer 3

你对ubound函数的理解没错。问题在于数组a的结构只是你自己主观想象。
你在vba编辑器中，选择视图→本地窗口，然后按f8逐行测试代码，自然可以在本地窗口中看到数组a的结构。这样不就一目了然了，知道问题在哪儿了吗。

Answer 4

试一试： 把 {"饮料","2101 。。。} 用 [ ] 围起来。
arr = [ {"饮料","2101","2501"; "食品","2102","2601" ; "蔬菜","2103","2701"} ]