![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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を探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの外枠太罫線を2~3倍さ...
-
Excelの条件付き書式設定の太い...
-
EXCELで、下線の太さを変...
-
罫線の色を薄くしたい
-
EXCELのオートフィルタで罫線が...
-
エクセルで文字を入力すると罫...
-
パワーポイントで、表の一部を...
-
罫線が引かれているセルの個数...
-
【エクセル】謎の枠線の消し方
-
エクセルで罫線も一緒に並び替...
-
エクセルのアンダーラインについて
-
エクセル
-
excel2003 罫線だけを保護したい
-
決まった罫線のなかで、文章入...
-
罫線の色をまとめて変更する
-
WORDで点線が実線に変換されて...
-
勝手に背景に色が付いて困っ...
-
Excel : 罫線の設定パターン
-
エクセル 入力されていない線...
-
エクセル フォントや罫線の色...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの条件付き書式設定の太い...
-
Excelの外枠太罫線を2~3倍さ...
-
excel2003 罫線だけを保護したい
-
【エクセル】謎の枠線の消し方
-
EXCELで、下線の太さを変...
-
パワーポイントで、表の一部を...
-
エクセルで罫線も一緒に並び替...
-
罫線の色を薄くしたい
-
エクセル
-
EXCELのオートフィルタで罫線が...
-
エクセルのアンダーラインについて
-
決まった罫線のなかで、文章入...
-
エクセル 入力されていない線...
-
エクセルで文字を入力すると罫...
-
勝手に背景に色が付いて困っ...
-
罫線が引かれているセルの個数...
-
エクセル表の罫線(縦)が消せ...
-
セルの数を求めたい
-
Wordで表のセル幅を超えたら次...
-
エクセルでデータがある部分だ...
おすすめ情報