VBAでの行挿入について

質問

Excel VBAの条件に合った場合、行挿入＆挿入した行のセルに特定の値を入力

VBA初心者です。Excel2007、XPを使用しています。

A列からCK列、平均100行程度の顧客データがあります。
このデータは列数は変わりませんが、行数は毎回異なり、
1行1顧客ではなく、同じ顧客で数行で入ることがあります。
しかしA列の顧客番号で判別できるようにはなっています。

目標は下記の点です。

「BC列」に値がある場合、
1行下へ空白行を挿入（できればA～X、Z～AA、AD～CKは1行上と同じ）。
但し挿入する位置は、顧客情報の一番下(1行の場合は2行目、2行の場合は3行目と)です。
挿入した行のY列に「ポイント利用」と入力。
挿入した行のAC列に「BC列の値」を入力。
挿入した行のAB列に「1」を入力。

「BJ列」に値がある場合、
1行下へ空白行を挿入（できればA～X、Z～AA、AD～CKは1行上と同じ）。
但し挿入する位置は、顧客情報の一番下(1行の場合は2行目、2行の場合は3行目と)です。
挿入した行のY列に「送料」と入力。
挿入した行のAC列に「BJ列の値」を入力。
挿入した行のAB列に「1」を入力。

以降に必要な処理はマクロで作成できたのですが、
その後に上記項目を手作業で処理しているのも限度があるので、
最初に挿入処理できればと思ってます。

分かりづらい説明だとは思いますが、
何卒ご教授頂きたくお願い致します。

回答No.2

keithin · ベストアンサー

おっとうっかり。失礼しました。
ところで。各グループ毎「最終行」のＢＪ列セル、ＢＣ列セルのみチェック対象ということでいいのですね。

sub macro1r1()
　dim r as long
　for r = range("A65536").end(xlup).row to 2 step -1
　if cells(r, "A") <> cells(r+1, "A") then
　　if cells(r, "BJ") <> "" then
　　　rows(r).copy
　　　rows(r+1).insert
　　　cells(r+1, "Y") = "送料"
　　　cells(r+1, "AC") = cells(r+1, "BJ").value
　　　cells(r+1, "AB") = 1
　　end if

　　if cells(r, "BC") <> "" then
　　　rows(r).copy
　　　rows(r+1).insert
　　　cells(r+1, "Y") = "ポイント利用"
　　　cells(r+1, "AC") = cells(r+1, "BC").value
　　　cells(r+1, "AB") = 1
　　end if
　end if
　next r
　application.cutcopymode = false
end sub

お礼

完璧です！

理想の処理になりました！
本当に助かりました。素晴らしいご回答ありがとうございます！！

回答No.1

keithin

ＢＣとＢＪの共に値がある場合の処理がチョイと不明瞭ですが，適宜応用してください。

sub macro1()
　dim r as long
　for r = range("A65536").end(xlup).row to 2 step -1

　　if cells(r, "BJ") <> "" then
　　　rows(r).copy
　　　rows(r+1).insert
　　　cells(r+1, "Y") = "送料"
　　　cells(r+1, "AC") = cells(r+1, "BJ").value
　　　cells(r+1, "AB") = 1
　　end if

　　if cells(r, "BC") <> "" then
　　　rows(r).copy
　　　rows(r+1).insert
　　　cells(r+1, "Y") = "ポイント利用"
　　　cells(r+1, "AC") = cells(r+1, "BC").value
　　　cells(r+1, "AB") = 1
　　end if

　next r
　application.cutcopymode = false
end sub

補足

ありがとうございます！

ほぼうまくいきそうなのですが、
1つだけ訂正をお願い致します。

>但し挿入する位置は、顧客情報の一番下(1行の場合は2行目、2行の場合は3行目と)です。

こちらの部分は、A列の顧客番号でくくったとして、その番号の次の行という意味です。

例）
A　　　　　　　　　　　　　　　　　　　　　　　　　　BC
1111　→ああああ　　　　　　　　　　　　　　　　100　
1111　→ああああ　　　　　　　　　　　　　　　　100
＜この間に挿入が理想です。
1112
1113

申し訳ございませんが、ご教授お願い致します。