Excel VBA条件による行の上下段へのコピー

質問

• Excel VBAを使用して、条件によって行を上下にコピーする方法について質問させていただきます。
• 表1には各商品のデータが6行ずつ表示されていますが、一部のフィールドにはデータが入っていないため、オートフィルターをかけると空白行が抽出されません。そのため、表1を表2のように全ての行にデータを入れることで、オートフィルターで正しく抽出できるようにしたいです。
• 具体的な条件としては、品名と区分は必ず入っており、品番は各商品データの2行目に、納品日から問屋名までは同一データの先頭行の2行目に入っています。表1にデータを入れるためのボタンを作成し、そのボタンを押すことで表2の緑色セルを埋めるような動作を実現したいです。

回答No.2

tom04 · ベストアンサー

こんにちは！
一例です。

Sub Sample1()
Dim i As Long, j As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next '←おまじない
For i = 2 To Cells(Rows.Count, "G").End(xlUp).Row Step 6
For j = 1 To 6
Cells(i, j).Resize(6, 1).Merge
If Cells(i, j) = "" Then
Cells(i, j) = Cells(i - 1, j)
End If
Cells(i, j).Resize(6, 1).UnMerge
Cells(i + 1, j).Resize(5, 1) = Cells(i, j)
Next j
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

こんなんではどうでしょうか？m（_ _）m

お礼

tom04さん、早速のご連絡ありがとうございます！
いつも本当にありがとうございます！！

ご教授いただきました方法で実現できました！!

何度も何度もお時間をさいていただきまして本当にありがとうございました。

これから少しづつでもご教授いｔだきました様なロジックが組めるように勉強していきたいと思います。

本当にありがとうございました！m（_ _）m