EXCEL VBA 条件による行の自動挿入(2)

質問

お世話になります。

前回の質問と重なる部分がありますが、EXCEL VBAを使用して自動で行の挿入処理を実施したいと思っております。

やりたい事は添付図の表1を処理ボタンを押すと自動で表2のようにしたいのです。

表1では各商品に"定価"、"特売"という2つの売り区分が表示されます。
各商品の売り区分はブランクはなく、必ず下記の3パターンのうちのどれかが表示されます。
(1)"定価"だけ表示
(2)"特売"だけ表示
(3)"定価"と"特売"両方表示

この表1に対して処理ボタンを押すと・・

表2では各商品の売り区分に必ず"定価"と"特売"が上下に両方表示されるようにしたいのです。
(添付図の表2参照)。順番も"定価"が上、"特売"が下にしたいのです。

表2は別シートでも同じシートでも構いません。

どなたかお力添えいただけますでしょうか？
よろしくお願い致します。

環境
Windows XP SP3
Excel2003

回答No.1

tom04 · ベストアンサー

こんばんは！
B列は「定価」または「特売」のどちらかしかない訳ですよね？

Private Sub CommandButton1_Click()
Dim i As Long
Range("A:A").UnMerge
For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
If Cells(i, 2) = "特売" Then
If Cells(i - 1, 2) <> "定価" Then
Rows(i).Insert
Cells(i, 2) = "定価"
End If
Else
If Cells(i + 1, 2) <> "特売" Then
Rows(i + 1).Insert
Cells(i + 1, 2) = "特売"
End If
End If
Next i
Application.DisplayAlerts = False
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row Step 2
Cells(i, 1).Resize(2, 1).Merge
Next i
Application.DisplayAlerts = True
Cells(1, 1).CurrentRegion.Borders.LineStyle = xlContinuous
End Sub

こんな感じではどうでしょうか？m(_ _)m

お礼

tom04さん、早速のご連絡ありがとうございました!

ご教授いただきましたコードで出来ました!
すごいです！感動しました^^

この度は本当にありがとうございました!!