vbaの配列の特定の列にデータの列全体を割り当てる

Question

私は大量のデータを処理しているExcelブックを持っています。この時点では、およそ5000列と1000行ですが、これは大きくなります。私は定義されていると、私は次のようにforループを二重を使用する場合は、次のように配列には

ReDim arr(1 To numRows, 1 To lastcol3) 

私は配列全体を読み込むことができ、それが動作します：

WS1は、ワークシート内にある

For r = 1 To lastcol3 
    For i = 1 To numRows 
    arr(i, r) = ws1.Cells(i, 11) 
    Next 
Next 

質問11はデータを取得したいデータの列です（rのすべての値が変更されます）。このメソッドは機能しますが、データの各行をループする必要があるため、膨大な時間がかかります。

rのすべての値に対して、配列内の対応する列 "r"に列11を割り当てる方法があるのだろうかと思っていました。これにより、コードがrだけループする必要があります。

私はオンラインでたくさんの検索をしましたが、配列内の特定の列を定義してデータの範囲と同じにする方法が見つからないようです。

コードの詳細やコピーが必要な場合は、教えてください。

Answer 1

ループを使わずに範囲から直接配列を割り当てることができます。配列の型はvariantでなければなりません。

dim myArr() as Variant 
dim myRng as Range 

Set myRng = Worksheets("Sheet1").Range("A1:Z100") 
myArr = myRng.Value 
'... do stuff with myArr 

Set myRng = Worksheets("Sheet2").Range("A1:Z100") 
myRng.Value = myArr 

Chip Pearsonには、便利な配列処理ルーチンが多数あります。

Answer 2

私にとっては、あなたは値を求めているだけです。ただし、ワークシートとのすべての対話は、変数間の対話よりもはるかに遅いです。それをあなたの方法を行うためにヘルパー変数を使用するか：

Dim xxx As Variant 
xxx = ws1.Cells(i, 11).Resize(numRows, 1).Value 
For r = 1 To lastcol3 
    For i = 1 To numRows 
    arr(i, r) = xxx(i, 1) 
    Next 
Next 

またはこのような()()オプションで行くより速くなるように：

ReDim arr(1 To lastcol3) 
Dim xxx As Variant 
xxx = Application.Transpose(ws1.Cells(i, 11).Resize(numRows, 1).Value) 
For r = 1 To lastcol3 
    arr(r) = xxx 
Next 

が、値を取得するために、あなたは次のようにそれに対処する必要がありますarr(r)(i)これは最初は混乱するかもしれません。しかし、それはまたあなたが後で何をしようとしているかによっても異なります。