ExcelシートへのVBA配列の高速出力

Question

Excelを出力するための高速バージョンメソッドはありますか？

私は現在、3つのアレイoutput_dt, output_s1, output_s2に格納されたデータを持っています。

フォーマットのサンプル：

15/12/2017 2165 2170 
15/12/2017 2165 2175 
15/12/2017 2165 2180 
15/12/2017 2165 2185 
15/12/2017 2165 2190 
15/12/2017 2165 2195 
15/12/2017 2165 2200 
15/12/2017 2165 2205 
15/12/2017 2165 2210 

私の現在の作業ソリューションはこれです：

Application.ScreenUpdating = False 
Worksheets("Strategies").Columns(4).ClearContents 
Worksheets("Strategies").Columns(5).ClearContents 
Worksheets("Strategies").Columns(6).ClearContents 
[d1].Resize(UBound(output_dt)) = Application.Transpose(output_dt) 
[e1].Resize(UBound(output_s1)) = Application.Transpose(output_s1) 
[f1].Resize(UBound(output_s2)) = Application.Transpose(output_s2) 
Application.ScreenUpdating = True 

しかし、これだけでも150行ため、痛々しいほど遅いです。

これをスピードアップする方法はありますか？

Answer 1

ループは日付と2つの数字のリストをループして新しいデータセットを作成し、3倍の1次元配列を3つ作成します。

For i = LBound(data) To UBound(data) 
     For j = LBound(data) To UBound(data) 
      If data(i, 1) = data(j, 1) Then 
       If data(i, 2) < data(j, 2) Then 
        x = x + 1 
        'MsgBox data(i, 2) & "-" & data(j, 2) 
        ReDim Preserve output_dt(0 To x + 1) 
        ReDim Preserve output_s1(0 To x + 1) 
        ReDim Preserve output_s2(0 To x + 1) 
        output_dt(x) = data(i, 1) 
        output_s1(x) = data(i, 2) 
        output_s2(x) = data(j, 2) 
       End If 
      End If 
     Next j 
    Next i