質問者が納得やっぱりマクロになります^^Sub try3()Dim i As Long, n As Longn = 0n = Range("a1").End(xlDown).RowFor i = n To 1 Step -1 Rows(i + 1).Resize(3).Insert shift:=xlShiftDown Cells(i, 1).Copy Cells(i, 1).Resize(3).Offset(1)NextEnd Sub上記を標準モジュールにコピペします。Alt+F11 & ...
5523日前view35