段を挙げてそろえるマクロコード Sub ex() Dim i As Long Dim j As Long Application.ScreenUpdating = False If Cells(3, 3) <> "" Then Exit Sub For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1) <> "" Then For j = 3 To 4 Cells(i, j) …