エクセルのマクロ(行を挿入し連番を振る)

質問

ボタンを押すと以下のことを実行するマクロを作成することはできますか？

A列2行目から
書類a
書類b
書類c
書類d
書類e
C列2行目から
5
3
2
4
3
と入っています。C列は各書類の枚数です。
ボタンを押すと書類aと書類bの間に4行空白行が挿入され、A列とC列は増やした4行にそれぞれ書類a、5がコピーされ、B列には2列目から6列目まで1.2.3.4.5と連番が振られる。
というマクロです。
B列C列で1/5 2/5 3/5 4/5 5/5 であるという表現がしたいのです。(／は入りません)
書類が1枚の場合はB列C列共に空白で1/1とは入りません。
C列に入る書類の枚数により行が挿入されその書類の枚数分の連番が振られるようなマクロが作りたいです。

毎日何百行も手作業で挿入しコピーし連番を振る作業をしています。

決まった行数を増やすとか上の行をコピーするマクロならわかるのですが、C列の値を見て挿入する行数を判断するようなマクロができるのかわかりません。
どなたか教えて頂けないでしょうか。

回答No.1

ushi2015 · ベストアンサー

こんばんは
Sub test()
　　Dim c As Long
　　Dim i As Long

　　c = Range("A" & Rows.Count).End(xlUp).Row
　　Application.ScreenUpdating = False
　　For i = c To 2 Step -1
　　　　If Cells(i, 3) > 1 Then
　　　　　　Rows(i + 1).Resize(Cells(i, 3) - 1).Insert
　　　　　　Cells(i + 1, 1).Resize(Cells(i, 3) - 1) = Cells(i, 1)
　　　　　　Cells(i + 1, 3).Resize(Cells(i, 3) - 1) = Cells(i, 3)
　　　　　　Cells(i, 2) = 1
　　　　　　Cells(i, 2).AutoFill Cells(i, 2).Resize(Cells(i, 3)), xlFillSeries
　　　　End If
　　Next
　　Application.ScreenUpdating = True
End Sub
で。

お礼

素早い回答ほんとうにありがとございました。

思ってたとおりの結果でとても助かりました。
教えていただいたマクロを自分の表に合わせて加工していて
またわからないところがあったらもう一度教えていただこうかと
思っていたらお礼が遅くなってしまいました。
なんとか自力で加工できとても作業時間の短縮になりそうです。
ほんとうにありがとうございました。

回答No.2

Prome_Lin

申し訳ございません。

私には、行挿入が難しかったので、変なプログラムになってしまいましたが、お望みの結果は、ちゃんと出ています。

「行挿入」と考えずに、「書類」（Ａ列）と「枚数」（Ｃ列）をすべて、配列変数に放り込んで、「枚数」分、繰り返す、という処理です。

従って、元のエクセルの表に上書きをしているだけですが、走らせて、確実に結果は得られています。

Option Explicit
Sub Test()
Dim a() As String
Dim c() As Integer
Dim b, d, e, i, j As Integer
b = -1
For i = 2 To Range("A1").End(xlDown).Row
b = b + 1
ReDim Preserve a(b)
ReDim Preserve c(b)
a(b) = Cells(i, 1).Value
c(b) = Cells(i, 3).Value
Next i
d = 1
For i = 0 To b
e = 0
For j = 1 To c(i)
d = d + 1
Cells(d, 1).Value = a(i)
e = e + 1
Cells(d, 2).Value = e
Cells(d, 3).Value = c(i)
Next j
Next i
End Sub

お礼

回答ありがとうございました。

なるほどなるほど。
同じ結果を得るためのマクロもいろいろあるのですね。
とても参考になりました。
今作っている表の他の作業のところでとても参考になりました。
回答をいただいたお二人のお蔭でいままで何時間もかけていたものが
劇的に早くなりました。