kimbal

sub 123()
    Dim L%
    For Each c In Range(Range("A9"), Range("A9").End(xlToRight))
        If c.Borders.LineStyle <> xlNone Then
            L% = c
        End If
    Next
end sub

¤U­±ªº½ÆÂø¤@¨Ç¦ý·|§Ö¤Ö³\
Sub test()
    Dim L%
    Dim i
    With Range(Range("A9"), Range("A9").End(xlToRight))
        For i = .Cells.Count To 1 Step -1
            If .Cells(i).Borders.LineStyle <> xlNone Then
                L% = .Cells(i)
                Exit For
            End If
        Next
    End With
End Sub