[[20050226203801]]　『最終行を求めてから罫線を引きたいんですが』（まこ）　ページの最後に飛ぶ

『最終行を求めてから罫線を引きたいんですが』（まこ）

マクロで抽出した結果のセルに罫線を引きたいんです。

抽出したデータの列をＡ列からＣ列に１行毎に表示させたあと、５行ある場合はその行を見やすく（印刷）するために５行罫線を引き、

１０行ある場合は１０行罫線を引くみたいに。Ａ列には必ずデータがあるので、

Range("A65536").End(xlUp).Offset(0).Selectでアクティブなセルを選んだ後、

そのあと、そのセルから、例えば１０行データがある場合は

Ａ10：Ｃ1（←アクティブなセルがＡ10になるんでここを起点に範囲してする

イメージなので逆ですが）、に罫線をひくようにするには？

おそらく、Ａ1から順番にみて行き、データがある限り罫線を引くみたいな事が

普通なのでしょうけど・・・いずれにしてもわかりません。

どなたか教えて頂けませんでしょうか？

 Range("A1:c" & Range("A65536").End(xlUp)).Select
 これでA列の行数分の A～C 範囲が選択されます。違うかな～？
 マクロとは別に条件付き書式で、数式が =$A1<>"" で、罫線を設定すれば、
 A列にデータのある行のみ罫線を引けます。これも違うかな～？
 （純丸）

 こんな感じでしょうか？
Option Explicit
Sub てすと()
Dim MyRow As Long
Dim MyRng As Range
MyRow = Range("A65536").End(xlUp).Row
Set MyRng = Range("A1:C" & MyRow)
MyRng.Borders.LineStyle = xlNone
With MyRng.SpecialCells(2, 23).Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
End With
Set MyRng = Nothing
End Sub
（SoulMan）

純丸様、SoulMan様
ありがとうございました。うまくいきました！ありがとうございました。また教えて下さいね。

コメント返信：

[ 一覧(最新更新順) ]

[[20050226203801]] 『最終行を求めてから罫線を引きたいんですが』（まこ） ページの最後に飛ぶ

[[20050226203801]]　『最終行を求めてから罫線を引きたいんですが』（まこ）　ページの最後に飛ぶ