範囲が広い場合にはセルを一つずつ操作するよりも、一旦配列にコピーして操作したほうが速い（らしい）。 Sub sample() Dim r As Range, ra As Range Dim a As Variant Dim i As Long, col As Long, row As Long Set ra = Range("A1:D3") ' 初期値書き込み i…