ExcelVBA：セルの範囲を指定し、線を引く方法

質問

プログラムでセルの範囲を指定し、線を引きたいのですが、マクロでやった結果うまくいったのですが、自分でプログラムを作るとセルの範囲を選択するときに違った動作をしてしまいます。
下のコードはセルAの線、Bの線、……、と線を引くために範囲を選択しているのですが、この部分の選択範囲がおかしくなってしまいます。

Range("A:A,B:B,C:C,D:D,E:E,F:F,G:G,G:G").Select
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
End With

一回一回範囲を指定し、線を引く方法もありますが、どのように対処すればよいでしょうか？
回答よろしくお願いします。

回答No.1

s_saike · ベストアンサー

Range("A:G").Select
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
End With

これでどうでしょうか。

お礼

なるほど。
「A」から「G」を範囲指定して、内部の垂直方向に線を引いいてるわけですね。

大変参考になりました。
ありがとうございました。