• ベストアンサー

エクセルに関しての質問になります。

エクセルに関しての質問になります。 以下の表があった場合に その数字分の行の追加を自動で行わせるには マクロを組むしかないでしょうか? また、できましたら、そのマクロも教えください。 A社  製品A 6 B社  製品B 4 C社  製品C 2 という表を A社  製品A 6 A社  製品A 6 A社  製品A 6 A社  製品A 6 A社  製品A 6 A社  製品A 6 B社  製品B 4 B社  製品B 4 B社  製品B 4 B社  製品B 4 C社  製品C 2 C社  製品C 2 という感じにしたいのです。 どうかよろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7941)
回答No.1

ABC列にそのようにデータがあるとして。 sub macro1()  dim r as long  dim i as long  for r = range("A65536").end(xlup).row to 1 step -1   for i = 1 to val(cells(r, "C").value) - 1    cells(r, "A").entirerow.copy    cells(r + 1, "A").entirerow.insert shift:=xlshiftdown   next i  next r  application.cutcopymode = false end sub とかなんとか。

Ungratz
質問者

お礼

さっそくのお答えありがとうございます。 テストしてみたところ、うまくできました。

関連するQ&A

専門家に質問してみよう