excel - 查找特定列中最后使用的单元格以及范围周围的边框

Question

我有这个 Excel，其值从 K3 开始(用户将其值从该单元格开始，所以我不知道第 3 行有多长)我想从 K3 到该行中的最后一个值 (Row3) 以及从 Row10 到 < 中使用的最后一个值strong>Row3(抱歉我真的不知道怎么说，我举个例子让你更好地理解)

这是一张图片

我发现的唯一代码是这个，但它仅适用于静态范围。

Sub Sample()
    Dim rng As Range

    Set rng = Range("K3:P10")

    With rng.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
End Sub

Answer 1

只是动态输入的一个示例(可以改进):

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

Dim rng1 As Range, rng2 As Range
Dim lc As Long

If Not Intersect(Range("3:3"), Target) Is Nothing Then
    lc = Range("K3").CurrentRegion.Columns.Count 'No xlToLeft just in case far to the right there might be other cells
    Set rng1 = Range(Cells(3, 11), Cells(10, 11 + lc))
    Set rng2 = Range(Cells(3, 11), Cells(10, 11 + lc - 1))
    rng1.Borders.LineStyle = xlNone
    rng2.BorderAround ColorIndex:=1
End If

Application.EnableEvents = True

End Sub

到目前为止，这仅在添加/删除每列时才有效...如前所述，它可以改进;)