之前向大家展示過(guò)利用靜態(tài)數(shù)組提取特定行內(nèi)容的例子，現(xiàn)例舉利用動(dòng)態(tài)數(shù)組進(jìn)行提取特定行的例子，但該方法相對(duì)較難理解，大家感興趣可以看看。
例如上圖，現(xiàn)需要提取A列中內(nèi)容為“d”的整行內(nèi)容，代碼如下：
Sub 動(dòng)態(tài)數(shù)組示例()
Dim arr, arr1() ‘此處還不確定arr1中數(shù)組的大小，在后面確定之后會(huì)重新定義
arr = Range(“a2:d10”)
For x = 1 To UBound(arr)
If arr(x, 1) = “d” Then
k = k + 1
ReDim arr1(1 To 4, 1 To k) ‘注意此處“redim”只能在列方向定義動(dòng)態(tài)變量，所以arr中數(shù)組是橫向的，arr1中數(shù)組是縱向的，最后要將行列轉(zhuǎn)置一下
arr1(1, k) = arr(x, 1)
arr1(2, k) = arr(x, 2)
arr1(3, k) = arr(x, 3)
arr1(4, k) = arr(x, 4)
End If
Next x
Range(“e1”).Resize(k, 4) = Application.Transpose(arr1) ‘此處就是將行列轉(zhuǎn)置的代碼
End Sub
上述代碼標(biāo)紅字段表示將arr數(shù)組中的內(nèi)容重新賦值給新的數(shù)組arr1，但會(huì)發(fā)現(xiàn)，arr數(shù)組和arr1中數(shù)組內(nèi)容是行列顛倒的，那是因?yàn)椤皃reserve”只能定義列方向的動(dòng)態(tài)變量。
arr中符合條件的內(nèi)容如下，是一個(gè)三行四列的數(shù)組：
然后紅色代碼將arr中的數(shù)組內(nèi)容賦值給arr1，其內(nèi)容如下：
很清楚地看到兩個(gè)數(shù)組是行列顛倒的，所以最后需要將arr1中的行列再轉(zhuǎn)換回來(lái)，就需要用到“transpose”,如上述代碼黃色代碼所示。最后代碼運(yùn)行結(jié)果如下：
該方法用來(lái)提取特定行有點(diǎn)兒難以理解，但可以提高大家的VBA中對(duì)動(dòng)態(tài)數(shù)組的概念及使用方法，大家可以看看喔
