ExcelVBA
Sub 連番() ' ' 連番 Macro ' ' Keyboard Shortcut: Ctrl+r ' ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Select Selection.Copy ActiveCell.Offset(1, 0).Rows("1:3").EntireRow.Select Selection.insert Shift:=xlDown ActiveCell.Offset(-1, 8).Rang…
Sub 連番() ' ' 連番 Macro ' ' Keyboard Shortcut: Ctrl+r ' ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Select Selection.Copy ActiveCell.Offset(1, 0).Rows("1:3").EntireRow.Select Selection.insert Shift:=xlDown ActiveCell.Offset(-1, 8).Rang…