美女视频观看网址,内衣美女视频性感美女,姓感美女视频

使用VBA在數(shù)組之間轉(zhuǎn)移數(shù)據(jù)

2022.06.14 四川

excelperfect

標(biāo)簽：VBA，數(shù)組

本文展示如何將數(shù)據(jù)從一個(gè)數(shù)組移動(dòng)到另一個(gè)數(shù)組，并轉(zhuǎn)移后的數(shù)據(jù)輸入到另一個(gè)位置。也就是說，如何使用第二個(gè)數(shù)組將數(shù)據(jù)從Excel中移出，并存儲(chǔ)到內(nèi)存中，然后再移回單元格中。

示例過程的目標(biāo)不是移動(dòng)整個(gè)數(shù)組，而是移動(dòng)數(shù)組的一部分。在這個(gè)示例中，將移動(dòng)數(shù)組中的第2列、第8列和第19列，并且只有這些列的數(shù)據(jù)存儲(chǔ)在第二個(gè)數(shù)組中，從而以這種方式篩選掉第一個(gè)數(shù)組中大量不必要的數(shù)據(jù)。

下面的過程將數(shù)據(jù)從數(shù)組(ar)移到數(shù)組(var)。

Sub MoveArray()

Dim ar As Variant

Dim var As Variant

Dim arr As Variant

Dim i As Long

Dim j As Long

arr = [{2,8,19}]

ar = Sheet1.[A1].CurrentRegion

ReDim var(1 To UBound(ar), 1 To UBound(arr))

For i = 1 To UBound(ar)

For j = 1 To UBound(arr)