No.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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの外枠太罫線を2~3倍さ...
-
Excelの条件付き書式設定の太い...
-
excel2003 罫線だけを保護したい
-
罫線の色を薄くしたい
-
エクセルで文字を入力すると罫...
-
【エクセル】謎の枠線の消し方
-
EXCELで、下線の太さを変...
-
エクセルのアンダーラインについて
-
エクセル 入力されていない線...
-
エクセルで罫線も一緒に並び替...
-
パワーポイントで、表の一部を...
-
Excel:罫線を固定で残しておく...
-
勝手に背景に色が付いて困っ...
-
EXCELのオートフィルタで罫線が...
-
エクセル 4行ごとに線を引きたい
-
Wordで表のセル幅を超えたら次...
-
エクセル
-
OpenOfficeのCalcで罫線の削除...
-
決まった罫線のなかで、文章入...
-
エクセル表の罫線(縦)が消せ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの条件付き書式設定の太い...
-
Excelの外枠太罫線を2~3倍さ...
-
excel2003 罫線だけを保護したい
-
罫線の色を薄くしたい
-
EXCELで、下線の太さを変...
-
エクセルで罫線も一緒に並び替...
-
【エクセル】謎の枠線の消し方
-
エクセルで文字を入力すると罫...
-
パワーポイントで、表の一部を...
-
エクセルのアンダーラインについて
-
エクセル
-
エクセル 入力されていない線...
-
罫線が引かれているセルの個数...
-
決まった罫線のなかで、文章入...
-
EXCELのオートフィルタで罫線が...
-
エクセル の縦線
-
エクセル表の罫線(縦)が消せ...
-
条件付き書式で自動で斜線の罫...
-
エクセルExcel 「/」セルの斜...
-
Excelでアンダーラインに文字が...
おすすめ情報