redim對(duì)二維數(shù)組擴(kuò)展時(shí)會(huì)丟失數(shù)據(jù)，即使使用Preserve參數(shù)，也不行。
如果使用了 Preserve 關(guān)鍵字，就只能重定義數(shù)組最末維的大小，且根本不能改變維數(shù)的數(shù)目。
本例試圖解決這樣一個(gè)問(wèn)題：從EBS報(bào)表中導(dǎo)出Accout彈性域的值，其中文本格式的，有許多題頭類(lèi)的臟數(shù)據(jù)，必須過(guò)濾；我試著在讀取文本的時(shí)候?qū)ine讀取的行字符串裝入數(shù)組ary1（一維），再將ary1數(shù)組裝入數(shù)組ary2(二維)，最后以ary2直接賦值給range對(duì)表，快速將Account List主要信息提取到指定工作表上。
問(wèn)題來(lái)了，起初寫(xiě)代碼的將ary1裝入ary2時(shí)，總是這樣哪樣錯(cuò)誤，不能重定義啊、下界超標(biāo)啊，最終是實(shí)現(xiàn)了需求，但代碼不簡(jiǎn)潔。
晚上有空，寫(xiě)個(gè)數(shù)組相加的函數(shù)解決上面的難點(diǎn)，例子如下：
將上圖中的數(shù)據(jù)裝入數(shù)組，再將數(shù)組復(fù)制給b，最后將b數(shù)據(jù)接合到a數(shù)據(jù)的后面，生成一個(gè)將數(shù)組；文章來(lái)源：http://www.zghlxwxcb.cn/news/detail-598293.html
Sub main()
Dim d() '聲明動(dòng)態(tài)數(shù)組
a = [A1:C4]
b = a '直接復(fù)制數(shù)組
d = b
Debug.Print d(4, 2), "Redim前"
ReDim d(8, 3) '只有增加最后一維數(shù)組的大小時(shí)，不會(huì)丟失數(shù)據(jù)
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追加一個(gè)數(shù)組到另一個(gè)數(shù)組
Dim aAdd()
'ReDim addArr(8, 3) '不能對(duì)函數(shù)名代表的數(shù)組進(jìn)行動(dòng)態(tài)聲明，僅在其第一次被賦值時(shí)可以指定其數(shù)組的維度和大小
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))
' 這里只假設(shè)了a,b都是二維數(shù)組，第二維度可能不一樣；
' 但并沒(méi)有處理不一樣時(shí)的數(shù)組對(duì)齊問(wèn)題，這是不是一個(gè)矩陣問(wèn)題？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
就在寫(xiě)這個(gè)文章的時(shí)候，想到上面的代碼還是可以進(jìn)一步優(yōu)化的，比如定義個(gè)類(lèi)，和類(lèi)屬性，完成a.add b，結(jié)果就是a追加了b的數(shù)據(jù)在尾部：）文章來(lái)源地址http://www.zghlxwxcb.cn/news/detail-598293.html
到了這里，關(guān)于VBA二維數(shù)組追加數(shù)據(jù)的文章就介紹完了。如果您還想了解更多內(nèi)容，請(qǐng)?jiān)谟疑辖撬阉鱐OY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章，希望大家以后多多支持TOY模板網(wǎng)！
