1、Dimarr(1to3)asstring如此定义，但是不能直接给数组赋值如果想直接给数组直接赋值，需要如下操作：Dimarr()asVariantarr=Array("a","b","c")2、DimAAsVariantA=Array(10,20,30)B=...

ReDimarr(1Toxcount)'重新定义数组大小，元素共有xcount个

在模块中动态数组可以定义声明为公共数组，并且在一个过程中给重新定义维数赋值后，在另一个过程中，能有效！

VBA中动态定义一个二维数组，案例代码如下：//定义动态数组ttSubtt()Dima()AsIntegerReDima(1To2,1To1)AsIntegera(1,1)=10i=10ReDimPreservea(1To2,1Toi)AsIntegerMsgBox...

定义数组dimarr()asstring'此处定义一个0索引的字符串数组redimarr(1to100)'对数组进行重定义长度为100（常量100也可以是已经初始化的变量）排序有很多方法，冒泡法、插入法、选择法之类的，这要看...

加preserve可以不清空数组，保持原有数据。动态数组是指在声明时没有确定数组大小的数组，即忽略圆括号中的下标；当要用它时，可随时用ReDim语句重新指出数组的大小。使用动态数组的优点是可以根据用户需要，有效利用存储空间...

Dimxx(1To100)AsIntegerFori=1To100xx(i)=200+int(100*Rnd)Next

可以用数组变量通过工作表函数index取二维数组中的一行或一列，但无法直接取其中的多行多列。要取多行多列，需要用循环方法赋值。

"Scripting.Dictionary")Setdict(1)=CreateObject("Scripting.Dictionary")dict(0).Add"test","www.baidu.com"dict(1).Add"test2","vb"MsgBoxdict(0)(

先用dimunion()定义一个空数组确定里面内容多少后再用redimunion(**,**)指定