エクセルの罫線挿入について

質問

エクセルについてお聞きします。
１０００行ほどのリストを作成しています。１行目はタイトル行、２行目から実際のデータが入力されています。

たとえばデータ行２０行毎に罫線（見やすくする意味で区切りとして横線）を入れたいのですが、普通に罫線を引いていくと時間がかかり大変です。そこで行数を指定してやると指定行数毎に罫線を入れてくれる…そんな方法はあるのでしょうか。

ご存じの方は宜しくお願いします。

回答No.2

esprei · ベストアンサー

たとえば2行目から21行目までを選択します。
そしてセルの書式設定の罫線のタブから、下の部分に任意の罫線を設定してOKします。
次に選択した状態でコピー。
そして22行目から最後の行まで選択して、メニューの編集から形式を選択して貼り付けを選びます。
そして書式にチェックをしてOKします。
これで20行毎に罫線が引かれます。

お礼

ありがとうございます。
試してみます。

回答No.5

jmh

セルＡ１を選択した状態で、
[Ctrl]＋[Ａ]ですべて選択し、
書式 → 条件付書式で
　「数式が」「=MOD(ROW(A1)-1,20)=0」
　書式: 罫線（下）
などとするとできるかもしれないです。

お礼

回答ありがとうございます。
また、回答を寄せて下さいました皆様にも感謝です。この場をお借りしてお礼申し上げます。
本日いろいろ試してみて、結果＃２の方の方法で無事解決しました。
本当にありがとうございました。

回答No.4

imogasi

＃１と似てますがプログラムを短く出来ます。中間の罫線は、簡単に（Ａ－Ｈ列を対象に）
Sub test01()
For i = 2 To 1002 Step 20
With Range(Cells(i, "A"), Cells(i, "H")).Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
Next i
End Sub
を実行すれば引けます。
Ａ１：Ｈ１０００の外枠に罫線を引くのは手作業のほうが
早い。
Ａ１を指定する。
左上の名前ボックスにＨ１０００と入れる。
Ｓｈｉｆｔキーを押しつつＥｎｔｅｒキー。
書式－セル－罫線－□外枠をクリック。線の太さを選んでおく。

お礼

相手は年輩の方なんですが、ＰＣもエクセルも本当に基本的なことしか解りません。ましてやＶＢＡなどは全くです。そんなわけでＶＢＡで行う方法ではなくエクセルの一般的な編集方法で出来ないかと思ったのです。
ありがとうございました。

回答No.3

makotsu

罫線の入った10行ごとの空行をコピーコピーで新しいシートに作りましょう。そこへ元のリストすべてをコピーして右クリックし、形式を選択して貼り付けで罫線を除くすべてを選びましょう。これが一番近道と思います。

お礼

ありがとうございます。
試してみます。

回答No.1

edomin

ＶＢＡを使えば出来ます。

---ここから---
Sub MyBorders()
Dim MyTop As Integer
Dim rw As Range

On Error Resume Next
Application.ScreenUpdating = False

'横線を破線に、ただし20行おきに実線
If Selection.Rows.Count > 1 Then
MyTop = Selection.Row
For Each rw In Selection.Rows
If (rw.Row - MyTop + 1) Mod 20 = 0 Then
With rw.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
Else:
With rw.Borders(xlEdgeBottom)
.LineStyle = xlDot
.Weight = xlThin
End With
End If
Next rw
End If
'外枠を太線に
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
'縦線を実線に
If Selection.Columns.Count > 1 Then
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
End If
End Sub
---ここまで---
このマクロは私が作ったものではありません。
ネット上で見付けることが出来ます。
探してみて下さい。

お礼

ありがとうございます。
罫線を引きたい人が年輩の方なのです。私自身もＶＢＡは解らないので、残念ですがこの方法は無理かと…。せっかく教えていただいたのに申し訳ありませんでした。