Ｅｘｃｅｌのマクロを教えていただけないでしょうか？

添付しています、画像のように集計と記入されいるセルの下に１行挿入（通常だと、罫線が入ってしまいますが、縦の罫線なしで挿入）したいのです。データは下に続いていますが、店ごとに集計という文字は入っています。データは日によって行数がかわります。商品数も変動があります。画像ではA２セルの店舗には３商品ですが、日がかわれば増えたり減ったりします。マクロで自動的に集計の下に１行、追加できないでしょうか？ご教授いただければ幸いです。説明がうまくできなくてすみません。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2023/07/06 22:49

こんばんは

以下を仮定しました。
・最終行はＡ列で判断してよい
・操作対象はＡ列からＦ列までとする
・「集計と記入されいるセル」は最後の2文字が必ず「集計」となっている

Sub test()
Dim rw As Long, b
Dim rng As Range

For rw = Cells(Rows.Count, 1).End(xlUp).Row - 1 To 1 Step -1
If Right(Cells(rw, 1).Text, 2) = "集計" Then
Set rng = Cells(rw, 1).Resize(, 6)
rng.Offset(1).Insert Shift:=xlDown
For Each b In Array(xlEdgeLeft, xlEdgeRight, xlInsideVertical)
rng.Offset(1).Borders(b).LineStyle = xlNone
Next b
End If
Next rw
End Sub

この回答へのお礼

回答、ありがとうございます。
なかなかうまくできなくて、困っていたのですごく助かりました。
ありがとうございます。感謝です。

お礼日時：2023/07/07 01:54