vba动态二维数组问题

编程问答 2022-08-12

问题描述

我正在尝试创建一个动态的二维数组，如下所示：

i = 0 

ReDim rowdata(0,0)

Do Until ActiveCell = ""
    
    If ActiveCell = cmbTypes Then

        rowdata = Application.Transpose(rowdata)
        
        ReDim rowdata(i * 2 + 2,i + 1)
        rowdata = Application.Transpose(rowdata)

        If InStr(1,LCase(ActiveCell.Offset(0,1)),LCase(txtDescription)) Then

                rowdata(i,i*2+1) = ActiveCell.Offset(0,1)
                rowdata(i,i*2+2) = ActiveCell.Offset(0,4)
                                    
                i = i + 1
                
        End If

尝试加载数据时，我总是下标超出范围错误。有人可以向我解释原因吗？

谢谢

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

arraysarraysarraysdimensiondimensiondimensional