VBA二维数组追加数据-Toy模板网

这篇具有很好参考价值的文章主要介绍了VBA二维数组追加数据。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

redim对二维数组扩展时会丢失数据，即使使用Preserve参数，也不行。

如果使用了 Preserve 关键字，就只能重定义数组最末维的大小，且根本不能改变维数的数目。

本例试图解决这样一个问题：从EBS报表中导出Accout弹性域的值，其中文本格式的，有许多题头类的脏数据，必须过滤；我试着在读取文本的时候将line读取的行字符串装入数组ary1（一维），再将ary1数组装入数组ary2(二维)，最后以ary2直接赋值给range对表，快速将Account List主要信息提取到指定工作表上。

问题来了，起初写代码的将ary1装入ary2时，总是这样哪样错误，不能重定义啊、下界超标啊，最终是实现了需求，但代码不简洁。

晚上有空，写个数组相加的函数解决上面的难点，例子如下：

vba数组添加数据,算法

将上图中的数据装入数组，再将数组复制给b，最后将b数据接合到a数据的后面，生成一个将数组；

Sub main()

Dim d() '声明动态数组

a = [A1:C4]

b = a   '直接复制数组

d = b

Debug.Print d(4, 2), "Redim前"
ReDim d(8, 3)        '只有增加最后一维数组的大小时，不会丢失数据
Debug.Print b(4, 2)
Debug.Print d(4, 2), "Redim后"

c = addArr(a, b)

Debug.Print b(4, 2)
Debug.Print c(8, 2), "addArr后"

End Sub



Function addArr(a, b)
'mayc2023-03-02 17:26:19追加一个数组到另一个数组

Dim aAdd()

'ReDim addArr(8, 3)     '不能对函数名代表的数组进行动态声明，仅在其第一次被赋值时可以指定其数组的维度和大小

ReDim aAdd(1 To (UBound(a) + UBound(b)), 1 To UBound(a, 2))

For i = 1 To UBound(a)

    For j = 1 To WorksheetFunction.Max(UBound(a, 2), UBound(b, 2))
'        这里只假设了a,b都是二维数组，第二维度可能不一样；
'        但并没有处理不一样时的数组对齐问题，这是不是一个矩阵问题？mayc2023-03-02 19:54:33
            aAdd(i, j) = a(i, j)
        
    Next
    
Next

For i = 1 To UBound(b)

    For j = 1 To WorksheetFunction.Max(UBound(a, 2), UBound(b, 2))
        
            aAdd(i + UBound(a), j) = b(i, j)
        
    Next
    
Next

addArr = aAdd

End Function

就在写这个文章的时候，想到上面的代码还是可以进一步优化的，比如定义个类，和类属性，完成a.add b，结果就是a追加了b的数据在尾部：）文章来源地址https://www.toymoban.com/news/detail-598293.html

到了这里，关于VBA二维数组追加数据的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！