|
▼ブーチー さん:
おはようございます
これは、ちょっとやっかいでしょうね。
調べたい列の下から丹念にセルの罫線有無をチェックします。
でも、エクセルの本当の最終行から調べますと、膨大な数の行になりますので
せめてということで、そのシートで使われている実際の最大行の下のセルから調べましょう。
Sub Sample()
Dim r As Range
Dim i As Long
Dim flag As Boolean
Dim z As Long
With ActiveSheet.UsedRange
z = .Rows.Count + .Row - 1 'シート上の使用領域の一番下の行番号
End With
Set r = Selection(1).EntireColumn.Resize(z)
For i = r.Cells.Count + 1 To 1 Step -1
If r.Cells(i).Borders(xlEdgeTop).LineStyle <> xlNone Then
flag = True
MsgBox i & "行目のセルの上の罫線がもっとも下にある罫線です。"
Exit For
End If
Next
If Not flag Then MsgBox "指定の列には罫線はありません"
End Sub
|
|