Excel：select所有行直到空单元格

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

鉴于下面的例子…

AB 1 Item Amount 2 Item1 1 3 Item2 4 4 2 5 

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

我的目标是使用这个select来自动sorting和添加边界到行之后，我已经完全填写当前行最下面的行。 在这个例子中，我必须填入A4来使行的一部分，并应用上述行动。

我希望任何人都可以帮助我..在此先感谢！

编辑

基于chris neilsen的解决scheme，我提出了一个解决scheme：

 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 

variablesrng现在将被设置为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 

Answer 3

 Set rlast = Columns("A").Find(What:="", After:=Range("A1"), LookIn:=xlValues, SearchDirection:=xlDown) MsgBox rlast.Address 

msgbox返回第一个单元格为空。 你可以稍后select它