ＥＸＣＥＬで色付き罫線などを自動的に施せますか？

質問

エクセルで名簿（約1000～3000名のものを数件）を作っています。紙出力をする時にグループ（1～10名）毎の境界に区切り線（色つき罫線など）を自動的に入れる方法はありますか？
名簿の1名分（1行）は10数個のデータ（セル）からできています。またグループの人数はランダムに1名から10名ぐらいに変化します。グループの境界を示す強調線として、罫線に色付け（または太い線）等を施したいと考えています。「セルの条件付き書式」を検討していますが、これでは1つのセル毎に条件を入れる必要があり今回の場合には適用できなさそうです。
現在は手作業でグループごとに、上下に強調するための区切り線（色つき罫線）を入れています。画像添付に事例を示しました。はじめに書式ーセル-罫線で1箇所に入れます。あとそれを「書式のコピー/貼り付け」で該当箇所に順々にコピーしています。この作業を何千回も繰り返すのは大変です。なおグループの先頭の人には項目を設けて「数値1」を入れてあります。
エクセルの初心者です。なにかプログラムを作る必要（マクロの作成？は全然経験がありません）がありそうですが、よろしくお願いします。

回答No.3

yy_kd · ベストアンサー

グループマークA列の１の上に中太の罫線を入れる
場合には下記マクロで宜しいのでは・・・
A列からG列の上部を中太線にしています。

Sub Macro1()
Selection.SpecialCells(xlCellTypeLastCell).Select
MXY = Selection.Row
y = 2
While y < MXY
If Cells(y, "A") = 1 Then
Range("A" & y & ":G" & y).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End If
y = y + 1
Wend
End Sub

お礼

ありがとうございます。うまくいきました。おどろきです。
マクロを自分で（？）入れて使ったのは初めてです。
ヘルプを見ながら操作しました。マクロ機能の威力をあらためて実感しています。
まだプログラムの内容も理解できません。少しずつ勉強していきたいと思っております。
どうもありがとうございました。

回答No.2

don9don9

添付画像がありませんが…

線を引きたい範囲すべてを選択した状態で、条件付き書式で
「セルの値が」→「数式が」に変更して「=$A2=1」
の場合、セルの上に罫線を引く、と設定すれば可能かと思います。

なお、上記はグループ先頭の人に1を入れている列がA列で
データの先頭行が2行目の場合です。
A2の部分は実際の表に合わせて適宜変更してください。

回答No.1

aokii

B列にグループ名を記入して、条件付書式に、以下の式を入れてみてください。
=B2<>B3　（書式は色つき罫線にする）