Question

Excel VBA数组赋值出错(Type Mismatch)求教！！！

Debug了很久也没看出是啥问题，集中在这一段中，我抽出来给大家看看！

------------------------------------------以下为出错代码段------------------------------------------------
Sub Macro1()
Dim Height(), Width(), ColumnOffset(), SourceRowOffset(), TargetRowOffset() As Integer
SourceRowOffset = Array(0, 13, 13, 17)
MsgBox SourceRowOffset(0)
End Sub
----------------------------换了个数组名就没事了，以下这段没出错------------------------------------
Sub Macro1()
Dim Height(), Width(), ColumnOffset(), SourceRowOffset(), TargetRowOffset() As Integer
SourceRowOffset = Array(0, 13, 13, 17)
MsgBox SourceRowOffset(0)
End Sub
究竟是为什么呀？求大神指教！！！！
**********************************************************************************
噢！不好意思！出错代码段写错了！以上当我在废话吧！！！！！！
然后我又试了一下其他名字，发现也不行，请问我这样写的有什么问题啊？
Sub Macro1()
Dim a() As Integer
a = Array(1, 13, 13, 17)
MsgBox a(0)
End Sub

Run-Time Error 13
Type Mismatch!

--------------------------------------------------------------------
然后我又试了一下把定义数组类型(As Integer)去掉了，发现就可以了
Sub Macro1()
Dim a()
a = Array(1, 13, 13, 17)
MsgBox a(0)
End Sub

难道 a = Array(1, 13, 13, 17)这样赋值就不是赋的Integer型的数组？
求教大神啊！

Answer 1

系统默认你的Array(1, 13, 13, 17)里面的数是文本。。你定义的是整形，肯定就不对了。

追问

啊？默认为文本？！怎么会这样的？完全不懂哈哈哈。。。
那我该如何定义或者如何赋值才能使这个数组为整形啊？？？
谢谢大神指教~~~

啊？默认为文本？！怎么会这样的？完全不懂哈哈哈。。。
那我该如何定义或者如何赋值才能使这个数组为整形啊？？？
谢谢大神指教~~~

追答

如果数据有规律用用for循环赋值
不规律可以用
a(0)=1
a(1)=13
a(2)=13
a(3)=17

在或者用一个中间数组。
b=split("1, 13, 13, 17",",")

Dim a(0 To 3) As Integer

b = Split("1, 13, 13, 17", ",")
For i = 0 To 3
a(i) = CInt(b(i))
Next

如果数据有规律用用for循环赋值
不规律可以用
a(0)=1
a(1)=13
a(2)=13
a(3)=17

在或者用一个中间数组。
b=split("1, 13, 13, 17",",")

Dim a(0 To 3) As Integer

b = Split("1, 13, 13, 17", ",")
For i = 0 To 3
a(i) = CInt(b(i))
Next

Answer 2

使用Array给数组赋值，数组必须为Variant类型（vb默认数据类型）

追问

啊？！原来这回事啊？！谢谢哈！有木有相关个Array语法解释的参考网站送我看看呀？！完全不懂呢～～～谢谢啊~~~

追答

http://www.360doc.com/content/11/0324/13/6633159_104164673.shtml