EXCEL VBA シート間コピーを速く 

2次元テーブルで転記が格段に速くなる


Sub 転記()

Dim Wtb(10, 2)
For i = 0 To 10
For j = 0 To 2
Wtb(i, j) = ""
Next j
Next i

Sheets("Sheet1").Select
For i = 0 To 10
For j = 0 To 2
Wtb(i, j) = Cells(i + 1, j + 1)
Next j
Next i

Sheets("Sheet2").Select
Range(Cells(1, 1), Cells(11, 3)) = Wtb '一括転記

End Sub


Sheets("Sheet2").Cells(i, j) = Sheets("Sheet1").Cells(i, j)
と比べると転記速度の違いに驚きます



 




← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)