我试图使用Variant数据类型来存储字符串数组.这是我正在使用的代码的示例.
Sub Selecto() Dim numRows As Integer Dim Badger As Variant numRows = InputBox("How many rows?","Rows",0) Badger = Range("C21:C"& 21 -1 + numRows).Value For i = 1 To UBound(Badger) MsgBox (Badger(i,1)) Next End Sub
我的目标是使Badger成为一个数组,其长度可以由通过InputBox运行宏的用户定义.代码工作得很好,除非输入的numRows的值为1,否则会发出“类型不匹配错误”.
该错误导致线i For 1 = UBound(Badger)被突出显示,错误消息框显示存在“类型不匹配”.
我猜测对于一个1乘1的数组,数据只是存储为字符串而不是数组,而数组函数如Ubound()和数组索引语法如Badger(i,1)不起作用.是这样的吗？有没有办法强制它将变量识别为数组？
如果只从该范围读取一个值,则变量不会创建数组,这就是为什么在尝试索引时会出现类型不匹配的原因.尝试检查Badger是否是带有IsArray(Badger)的数组.我使用它时,下面的代码工作：
Sub Selecto()
Dim numRows As Integer
Dim Badger As Variant
numRows = InputBox("How many rows?",0)
Badger = Range("C21:C" & 21 - 1 + numRows).Value
If IsArray(Badger) Then
For i = 1 To UBound(Badger)
MsgBox (Badger(i,1))
Next
Else
MsgBox Badger
End If
End Sub