2020-08-06から1日間の記事一覧
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…