最終行の空白セルに右上がり斜線を引く

質問

Ｂ列を検索して最終行を選び、C列～Ｇ列の中から空白セルを探して、右上がり斜線を引く。

Cells(Rows.Count, 2).End(xlUp).Offset(, 1).Resize(, 5). _
Borders(xlDiagonalUp).LineStyle = xlContinuous

データーの入っているセルにも、斜線が引かれてしまいます。

空白セル（変動します）にのみ、斜線を引くことができるようにしたいのです。
よろしくお願いします。

回答No.2

tom04 · ベストアンサー

こんばんは！
理由はすでにNo.1さんが回答されていらっしゃる通りなので
余計なお世話かもしれませんが・・・

Sub Sample1()
Dim endRow As Long, c As Range
endRow = Cells(Rows.Count, "B").End(xlUp).Row
For Each c In Range(Cells(endRow, "C"), Cells(endRow, "G"))
If c = "" Then
c.Borders(xlDiagonalUp).LineStyle = xlContinuous
End If
Next c
End Sub

こんな感じでもOKだと思います。m（_ _）m

お礼

tom04さんご回答いただきありがとうございました。
思い通りにできました。
今後もよろしくお願いします。

回答No.1

noname#203218

記載されてるマクロはB列の最終行を取得し、そのセルから５列までのセルに斜線を引く事になっています。
セルが空白であるか確認して斜線を引く一例です。ご参考まで。

Sub test()
Dim i As Long
Dim j As Integer

i = Cells(Rows.Count, 2).End(xlUp)

For j = 3 To 6
If Cells(i, j) = "" Then Cells(i, j).Borders(xlDiagonalUp).LineStyle = xlContinuous
Next

End Sub

お礼

pidumさんご回答いただきありがとうございました。
思い通りにできました。
今後もよろしくお願いします。