エクセル 行挿入のマクロについて

質問

こんばんは、エクセルのマクロについてお伺いします。

現在
Ａ１：支店名 Ｂ１：連番 Ｃ１：在庫数 全部で１０００行位入力があります。
・Ａ列には支店名
・Ｂ列には連番は１・２・３～と１０００件位
・ｃ列には在個数にはそれぞれ１桁から２桁の数字

【質問】
在庫数の数だけその連番の行を増やしたい。
例えば、
Ａ２：東京支店 Ｂ２連番：１ Ｃ２在庫数：３
だとすると２行目のあとに２行挿入し在庫数が３なので下記のように３行にしたい。

Ａ２ 東京支店 Ｂ２連番 １ Ｃ２ 在庫数 １
Ａ３ 東京支店 Ｂ３連番 １ Ｃ３ 在庫数 空欄
Ａ４ 東京支店 Ｂ４連番 １ Ｃ４ 在庫数 空欄

何せ数が多いのでマクロをお教え頂ければ助かります。
※その際、支店名と連番は同じ物がはいるとありがたいです。
※在庫数は空欄で構いません。
マクロでなくても方法があればお教え下さい。

よろしくお願い致します。

回答No.1

tom04 · ベストアンサー

こんばんは！
C列の在庫数だけA・B列を表示して、C列には必ず「1」が連続する最初の行のみ表示すれば良いわけですかね？

一応そういうことだとしての一例です。
データは2行目からあるとしています。

Sub test()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 3) > 1 Then
Rows(i + 1 & ":" & i + Cells(i, 3) - 1).Insert
End If
Next i
i = Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 3) > 1 Then
i = i + Cells(i, 3) - 1
End If
For i = 2 To i
If Cells(i, 3) <> "" Then
Cells(i, 3) = 1
End If
If Cells(i, 2) = "" Then
Cells(i, 1) = Cells(i - 1, 1)
Cells(i, 2) = Cells(i - 1, 2)
End If
Next i
End Sub

こんな感じではどうでしょうか？
尚、一旦マクロを実行すると元に戻せませんので、別Sheetにコピー＆ペーストしてマクロを試してみてください。

参考になれば良いのですが・・・m(__)m

お礼

tom04 様

早速のご回答ありがとうございます。
只今試してみましたが完璧でした。
ありがとうございます。

１つ追加でうかがいたいのですが、
実際のデータは職場にあり、
見出しのタイトルが今回質問した(支店名・連番・在庫数)と若干相違します。

１行目がタイトルでＡＢＣの並びはこの通りです。
お教えいただいたマクロで問題ないでしょうか？

よろしくお願い致します。

補足

tom04 様

早速のご回答ありがとうございます。
只今試してみましたが完璧でした。
ありがとうございます。

１つ追加でうかがいたいのですが、
実際のデータは職場にあり、
見出しのタイトルが今回質問した(支店名・連番・在庫数)と若干相違します。

１行目がタイトルでＡＢＣの並びはこの通りです。
お教えいただいたマクロで問題ないでしょうか？

よろしくお願い致します。

回答No.2

tom04

No.1です！
続けてお邪魔します。
補足を読ませていただきました。

前回のコードは2行目以降を操作するようにしていますので、
1行目はどんなタイトルでも（タイトルがあってもなくても）構いません。

まずデータの最終行から上の行に向かってC列の数値より1行少ない行をを挿入しています。
次に2行目以降下に向かってC列にデータがあれば「1」を表示させ
B列（本来はA列でも良かった）が空白であれば1行上のデータを表示させるようにしていますので、
データがA～C列（C列は数値）の2行目以降にありさえすれば同じような動きになるはずです。

お役に立てば良いのですが。m(__)m

お礼

tom04 様

追加に気づいて下さりありがとうございます。
お礼にも同じ文面を記載してしまいました、すみません。

マクロの意味までお教えいただきありがとうございます。
明日までの仕事でしたので、本当に助かりました。

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