Excel で同じ数字が列内に並ぶ連番を作る。

この記事は自分用の覚書です。
（Windows 8.1 Pro 64ビット + Excel2013 Home & Business）

1 1 2 2 3 3 というように同じ数字が列内に並ぶ連番を作る。

■同じ数字が2個ずつ列内に並ぶ連番の作り方
A. 一番目になるセルに 1 を入れる。

B. 1 を入れた一番目のセルを参照する式を、二番目のセルに入れる。
3個以上並ぶ連番を作る場合は、B. を必要な回数繰り返す。

C. 三番目のセルに、一番目のセルに 1 を足す式を入れる。

D. C.のセルをドラッグ。

---

例： 1 1 2 2 3 3 と2個ずつ列内に並ぶ連番
セル A1 に 1 を入力。
セル A2 に =A1 を入力。
セル A3 に =A1+1 を入力。
セル A3 を選択して下へドラッグ。

例： 1 1 1 2 2 2 3 3 3 と3個ずつ列内に並ぶ連番
セル A1 に 1 を入力。
セル A2 に =A1 を入力。
セル A3 に =A1 を入力。
セル A4 に=A1+1 を入力。
セル A4 を選択して下へドラッグ。

---

■VBAで作る場合の例（2017/7/4追記）

Sub 連番sample1()
    Dim i As Long, j As Long, R As Long
    For i = 1 To 25
        For j = 1 To 2
            R = R + 1
            Cells(R, 1).Value = i
        Next j
    Next i
'
'
'For i = 1 To 25
'
'Next i
'1 から 25 までをセルの値として入れるための指定。
'最大の値を変える場合は、25 変える。たとえば、10 にすると、
'1 から 10 までがセルの値として入る。
'
'
'For j = 1 To 2
'
'Next j
'いくつずつ数字を入れるかを指定している。この場合、
'1
'1
'2
'2
'というように2つずつ入っていく。3つずつ入れる場合は、For j = 1 to 3 にする。
'
'
'■外側の繰り返しの1回目
'変数 i に 1 が入る。
    '■内側の繰り返しの1回目
        '変数 j に 1 が入る。
        '変数 R は発生した直後は 0 なので、
        'R = R + 1 で変数 R に 1 が入る。
        'Cells(R, 1).Value = i は、
        'Cells(1, 1).Value = 1 となって、
        'セルA1の値に 1 が入る。
        'もし、セルA2から値を入れるなら、
        'Cells(R, 1).Value = i の部分を、
        'Cells(R + 1, 1).Value = i にする。
'
    '■内側の繰り返しの2回目
        '変数 j に 2 が入る。
        '変数 R にはすでに 1 が入っているので、この回では、
        'R = R + 1 は、 R = 1 + 1 になって、変数 R には 2 が入る。
        'Cells(R, 1).Value = i は、
        'Cells(2, 1).Value = 1 となって、
        'セルA2の値に 1 が入る。
'
'
'■外側の繰り返しの2回目
'変数 i に 2 が入る。
    '■内側の繰り返しの1回目
        '変数 j に 1 が入る。
        'さきのときに変数 R には、2 が入ったままなので、ここでは
        'R = R + 1 は、 R = 2 + 1 になって、変数 R に 3 が入る。
        'Cells(R, 1).Value = i は、
        'Cells(3, 1).Value = 2 となって、
        'セルA3の値に 2 が入る。
'
    '■内側の繰り返しの2回目
        '変数 j に 2 が入る。
        '変数 R にすでに 3 が入っているので、この回では、
        'R = R + 1 は、R = 3 + 1 になって、変数 R に 4 が入る。
        'Cells(R, 1).Value = i は、
        'Cells(4, 1).Value = 2 となって、
        'セルA4の値に 2 が入る。
'
'
End Sub