|
こんにちは。かみちゃん です。
>この例では2万個のセルの読み込みと、2万個のセルへの書き込み
>があります。メモリ演算だけならなんでもないのですがCells関数
>を使うと膨大な処理時間を要します。
一例ですので、これで処理速度が向上するかどうかは定かではありませんが、
以下のような感じだとどうでしょうか?
私は、このようなことしか思いつきません。
Sub Test1()
Dim Xdat As Variant
Dim Ydat(2000,10) As Variant
Dim N As Long
Dim j As Long
Dim NV As Integer
Dim i As Integer
N = 2000
NV = 10
Xdat = Sheets("Sheet1").Range("A1").Resize(N, NV)
For i = 1 To NV
For j = 1 To 1
Debug.Print Xdat(j, i)
Next
Next
'Xdatを入力としてYdatを計算して求めます
'書き込み処理
Sheets("Sheet2").Range("A1").Resize(UBound(Ydat, 1), UBound(Ydat, 2)).Value = Ydat
End Sub
|
|