数组 – VB：类型不匹配错误,数组维度1×1

发布时间：2020-12-17 00:05:51 所属栏目：大数据来源：网络整理

导读：我试图使用Variant数据类型来存储字符串数组.这是我正在使用的代码的示例. Sub Selecto()Dim numRows As Integer Dim Badger As VariantnumRows = InputBox("How many rows?","Rows",0)Badger = Range("C21:C" 21 -1 + numRows).Value For i = 1 To UBound(B

我试图使用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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!