自分用メモ: 1～4までの連番をつけてくだけのマクロ

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).Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "2"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "3"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "4"
    ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
End Sub

実行すると，

A

1

1

1

A

1

1

1

が

A	1	1	1	A	1	1	1	1
A	1	1	1	A	1	1	1	2
A	1	1	1	A	1	1	1	3
A	1	1	1	A	1	1	1	4

になる。マクロ記録したやつを少し書き換えたらこうなった。ので，コードがあまり美しくない…orz
たぶん(-1,8)の数値を変えれば連番突っ込む列を変えられるはず…？