菜鸟谈VBA最最基础入门《原创》

POIUYTREWQJ

对于我来说是很好的教材，谢谢！

POIUYTREWQJ

ggsmart

1、将单元格区域的值直接赋给数组，数据类型要设为Variant型。
2、将单元格区域赋给数组后，索引号的下标默认为1。实际上我觉得在当中的那句ReDim是没有起什么作用的（这只是个人猜测）。比如：

1. 
   
2. Sub test()
   
3.   Dim arr
   
4.   ReDim arr(1 To 3, 1 To 2) As String
   
5.   arr = [A1:B3]
   
6.   MsgBox TypeName(arr(1, 1))
   
7. End Sub
   

复制代码

尽管Rdim数组数据类型为String型了，可是实际上数组里的数据类型只是和相应的单元格里的类型一致。

mydream1899

非常感谢，嗯嗯

POIUYTREWQJ

我是我妈的宝贝

回复楼主   第1835楼问题

非常感谢楼主的回复，您的无私奉献是我们前进的动力！
我将楼主的代码做了适当修改，进行了多方尝试！请见附件！
虽然还没有完全想明白，但有点新的领悟，就是不知道对不对，共享出来供大家参详！
下面这句话是帮助系统的原话：
Variant 是一种特殊的数据类型，除了定长 String 数据及用户定义类型外，可以包含任何种类的数据。
类似于[A1:B3]的引用，实际上是Range对象，而Variant变量也能包含Range对象，所以下面代码是成立的
   arr = [A1:B3]    '将range对象赋给Variant变量
但又有了新的疑问，为何下标起始变为了1呢，redim改变下标也不起作用？
我理解如下：arr = [A1:B3] 这就像给某个单元格区域命名，看下面的代码
Sub test4()
  MsgBox Range("test").Cells(1, 1).Value   '引用区域test中的第一个单元格
End Sub
arr(1,1)  与Range("test").Cells(1, 1)类似的，直接表示某个单元格区域的第一个单元格，但用起来更简洁，。。。

可能理解不准确，见笑~~~

谢蕊HWJ

谢谢，真的受用呀

ggsmart

首先，我认为，一个已经定义了数据类型，或已经定义元素个数的数组变量是不能同时对其进行赋值的，必须要用循环的方式才行。
如：

1. 
   
2. Sub test1()
   
3. Dim arr(0 To 2)     '定义一个三个元素的一维数组
   
4. arr = Array("A", "B", "C")
   
5. End Sub
   

复制代码

这样是不行的。

我知道你会问：为什么这样就行了？

1. 
   
2. Sub test1()
   
3. Dim arr  '或者Dim arr()
   
4. arr = Array("A", "B", "C")
   
5. End Sub
   

复制代码

是的，这样行了。
但你要注意两个声明变量的语句的差别。

1. 
   
2. Dim arr    '或Dim arr()，它们都没有声明元素的个数或数据类型。
   

复制代码

所以，我的认为是：如果要把一个数组或单元格区域赋给一个数组，接受数据的数组必须是Variant型，且元素个数不定。


第二，我不认为arr = [A1:B3] 这是某个单元格区域命名。但是：
Range("A1:B3")会被VBA当作是一个Range对象，也可能被当作了Range("A1:B3").Value（因为Value有时候可以省略，这个大家都知道）。前者是对象，后者是数值。这个大家也都知道。

1. 
   
2. Sub test1()
   
3.   Dim arr()
   
4.   arr = [A1:B3].Value           '必须加.value才能正确运行
   
5. End Sub
   

复制代码

因为 [A1:B3]可能会被看成把这个对象，所以这里不加.Value会出错。

PS：这只是个人观点，并不代表权威，供参考！

[ 本帖最后由 ggsmart 于 2010-7-13 18:45 编辑 ]

我是我妈的宝贝

回复楼主   第1840楼问题

可能是我没表达清楚，嘿嘿！
我并没说arr = [A1:B3] 就是对某个单元格区域命名，而是说这样直接将某个区域赋值给数组，对数组的引用和单元格区域命名的引用极为相似！看了一些其他的帖子，同时自己实践得出的，将“直接将某个区域赋值给数组”的各种情况汇总。
请看下面的这几段代码（附件中已经有）：

'赋给数组的区域为多行多列，变量定义为arr()
Sub test1()
  Dim arr()
  arr = [A1:B3].Value    '必须加.value才能正确运行,且arr默认为二维数组，，起始标号均为1
  MsgBox arr(2, 1)       '分别为arr(1, 1)，arr(1, 2)，arr(1, 3)，arr(2, 1)，arr(2, 2)，arr(2, 3)六个元素
End Sub

'赋给数组的区域为一行，变量定义为arr()
Sub test2()
  Dim arr()
  arr = [A1:C1].Value    '必须加.value才能正确运行，且arr默认为二维数组，起始标号均为1
  MsgBox arr(1, 1)        '分别为arr(1, 1)，arr(1, 2)，arr(1, 2)三个元素
End Sub

'赋给数组的区域为一列，变量定义为arr()
Sub test3()
  Dim arr()
  arr = [A1:A3].Value    '必须加.value才能正确运行，且arr默认为二维数组，起始标号均为1
  MsgBox arr(3, 1)       '分别为arr(1, 1)，arr(2, 1)，arr(3, 1)三个元素
End Sub

'赋给数组的区域为多行多列，变量定义为arr
Sub test4()
  Dim arr
  arr = [A1:B3]     '加不加.value都能正确运行，且arr默认为二维数组，起始标号均为1
  MsgBox arr(2, 1)
End Sub

'赋给数组的区域为一行，变量定义为arr
Sub test5()
  Dim arr
  arr = [A1:C1]        '加不加.value都能正确运行，且arr默认为二维数组，起始标号均为1
  MsgBox arr(1, 1)        '分别为arr(1, 1)，arr(1, 2)，arr(1, 3)三个元素
End Sub
'赋给数组的区域为一列，变量定义为arr
Sub test6()
  Dim arr
  arr = [A1:A3]         '加不加.value都能正确运行，且arr默认为二维数组，起始标号均为1
  MsgBox arr(3, 1)       '分别为arr(1, 1)，arr(2, 1)，arr(3, 1)三个元素
End Sub
'赋给数组的区域为一行，变量定义为arr
Sub test7()
  Dim arr
  arr = [A1:C1&""]        'arr为一维数组，起始标号为1
  MsgBox arr(2)        '分别为arr(1)，arr(2)，arr(3)三个元素
End Sub
'赋给数组的区域为一列，变量定义为arr
Sub test8()
  Dim arr
  arr = Application.WorksheetFunction.Transpose([A1:A3])   'arr为一维数组，起始标号为1
  MsgBox arr(3)        '分别为arr(1)，arr(2)，arr(3)三个元素
End Sub

大家仔细对比就会发现“直接将某个区域赋值给数组”的不同方式：
1、变量定义有两种：dim arr 或者 dim arr()，建议采用dim arr 的定义，省事且不易出错；
2、区域直接赋值给数组时，若采用如下类似形式：
  arr = [A1:A3]  （单列）或arr = [A1:C1]   （单行）或 arr = [A1:B3]  （多行多列）
   则数组为二维数组，引用时采用二维数组arr(i,j)的形式既可，但一定要注意起始标号为1，同时，数组有多少元素与赋给的单元格数目一致。这时就“对数组的引用和单元格区域命名的引用极为相似！”
3、若将一行或一列区域赋值给一维数组，
  一行的形式为：arr = [A1:C1&""] ，一列的形式为：arr = Application.WorksheetFunction.Transpose([A1:A3])  
引用时采用一维数组arr(i)的形式既可，但一定要注意起始标号为1，同时，数组有多少元素与赋给的单元格数目一致。

其中情况二，区域不做任何处理赋给数组，数组就是二维数组，是我无意中试出来的，嘿嘿！

jiannanchun

辛苦了!!!!