電子書籍の厳選無料作品が豊富!

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

「Excelのマクロを教えていただけないで」の質問画像

A 回答 (1件)

こんばんは



以下を仮定しました。
・最終行はA列で判断してよい
・操作対象はA列からF列までとする
・「集計と記入されいるセル」は最後の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
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!