4

我要从 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
4

2 回答 2

4

尝试这个

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

于 2012-04-27T15:28:37.070 回答
0

试试下面的代码：

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
于 2013-03-24T07:08:23.580 回答