Sub A列からEG列の情報をEG列に寄せる() ' ' A列からEG列の情報をEG列に寄せる ' 使用方法：本SubをThisWorkbookに貼り付けて実行する。 ' Dim fromCol As Integer Dim toCol As Integer Dim row As Long '各シートでループ For Each sht In Sheets sht.Acti…

Sub Macro1() With Worksheets("Sheet1") For i = 1 To 5 .Cells(i * 2, 1).Select Selection.Cut .Cells(i * 2 - 1, 2).Select ActiveSheet.Paste Next i End With End Sub （実行前） A B ---- 1 2 3 4 5 6 7 8 9 10 （実行後） A B ---- 1 2 3 4 5 6 7 8 9…