質問: エクセルでA1~D4のデータをA10~D13に、F1~I6をA14~D19に、L1~O3をA20~D23に並べる方法を教えてください。 1列毎のデータ並び変えはネットにありますが、複数列データを並び変えるのが見つかりません。 よろしくお願いします。
回答: 現在の位置で行の範囲が可変だとしたら (A-DはA10より上にある) Sub Example() Dim i As Long Application.ScreenUpdating = False For i = Columns("A").Column To Columns("K").Column Step 5 Range(Cells(1, i), Cells(1, i + 3).End(xlDown)).Copy If Cells(10, "A").Value = "" Then Cells(10, "A").PasteSpecial Else Cells(10, "A").End(xlDown).Offset(1, 0).PasteSpecial End If Next Application.ScreenUpdating = True End Sub