Question

我要从2个相邻列中选择所有行，从标题下方的行开始（这是固定的），并以第一行前面的行结束，并带有一个空白单元格。

鉴于以下示例......

    A       B
1   Item    Amount
2   Item1   1
3   Item2   4
4           2
5

我想选择范围A2：B3。第一行始终是第2行，最后一行是第3行，因为它是第一行之前的行，并且有一个空白单元格。

我的目标是使用此选项在我完全填充当前最后一行下方的行后自动对行添加边框并添加边框。在这个例子中，我必须填写A4以使行成为选择的一部分并应用上述动作。

我希望有人可以帮助我..提前致谢！

修改

我基于chris neilsen的解决方案提出了一个解决方案：

Dim rng As Range
With Worksheets("YourSheet")
    Set rng1 = .Range(.Cells(2, 1), .Cells(2, 2).End(xlDown))
    Set rng2 = .Range(.Cells(2, 2), .Cells(2, 1).End(xlDown))
    Set r = Application.Intersect(rng1, rng2)

End With

Answer 1

试试这个

Dim rng as Range
With Worksheets("YourSheet")
    Set rng = .Range(.Cells(1,2), .Cells(1,2).End(xlDown)).Resize(,2)
End With

变量rng现在将设置为A2:B3

Answer 2

尝试以下代码：

Sub sample()
    Dim lastRow As Long
    lastRow = Range("A65000").End(xlUp).Row

    Dim rng As Range, newRng As Range

    Set rng = Range("A2:A" & lastRow)
    Set newRng = rng.Resize(, 2)

    If Not newRng Is Nothing Then
        newRng.Sort key1:=Range("A2")
    End If

    newRng.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic

End Sub

Excel：选择所有行直到空单元格

2 个答案: