■ 複数セルに同時に値をセットする
Excel マクロで以外に処理時間がかかるのがシートへの値のセットです
セルへの値のセットは必ず必要になる処理であるため省略することはできませんが、複数セルに同時に値をセットすることで、処理時間を大幅に短縮できる可能性があります
Dim o_sheet As WorkSheet
Set o_sheet = ThisWorkbook.Worksheets(1)
o_sheet.Cells(1, 1).Resize(, 3).Value = Array(1, 2, 3)
Set o_sheet = Nothing
Array 関数で作成した配列をそのまま使用すると横方向に横方向にセットすることになりますが、作成した配列を Application.Transpose 関数で変換すると、縦方向にセットすることもできます
o_sheet.Cells(1, 1).Resize(3).Value = Application.Transpose(Array(1, 2, 3))
配列変数も同様にセット
Dim o_sheet As WorkSheet
Dim i_arr(2) As Long
i_arr(0) = 1
i_arr(1) = 2
i_arr(2) = 3
Set o_sheet = ThisWorkbook.Worksheets(1)
o_sheet.Cells(1, 1).Resize(, 3).Value = i_arr
Set o_sheet = Nothing