セルの値を参照して各列にセルを挿入したいです。

Question

ExcelのVBAを使って画像のような処理をしたいです。
上の図のA12からG12までに表示されている値を参照してその列にセルを挿入したいです。
画像でいえば、A12の値が1→A列にセルを1つ挿入、F12の値が5→F列にセルを5つ挿入のように各列同様の作業を行いたいです。

初歩的な質問で恐縮ですが、ご回答していただけると幸いです

Answer 1

こんな感じでどうでしょうか。

Sub sample()
    Dim ws As Worksheet, arr, i
    Set ws = ActiveSheet
    arr = ws.Range("A12:G12").Value
    For i = LBound(arr, 2) To UBound(arr, 2)
        ws.Cells(1, i).Resize(arr(1, i)).Insert xlShiftDown
    Next
End Sub

Comments

[npngktnk]

ご回答ありがとうございます！！！

大変恐縮なんですが、追加でお聞きしたいことがあります。
例えば、A12の値が０の時はセルを挿入しないという処理をするにはどのようにすればよいでしょうか。
重ねて失礼いたします。

[jinoji]

If arr(1, i) > 0 Then ws.Cells(1, i).Resize(arr(1, i)).Insert xlShiftDown
とかでいいと思います。

[npngktnk]

ご回答ありがとうございます！！
大変助かりました！