Excel-Vba：根据下面的代码选择第一个没有值的单元格

Question

With the macro below, I managed to select all of the cells in column B with a value. But now I need to change that code so that it selects the cell just underneath the cells with a value.

Example: Let's say the macro below selects cells B8:B15, then it should select cell B16 with the new code. What should I add to this code to make this work?

Sheets("sheet1").Select

Dim LR2 As Long, cell2 As Range, rng2 As Range
With Sheets("sheet1")
    LR2 = .Range("B" & Rows.Count).End(xlUp).Row
    For Each cell2 In .Range("B8:B" & LR2)
        If cell2.Value <> "" Then
            If rng2 Is Nothing Then
                Set rng2 = cell2
            Else
                Set rng2 = Union(rng2, cell2)
            End If
        End If
    Next cell2
    rng2.Select
End With

Answer 1

The Offset method of the Range object should be what you are looking for.

On any range, you can do something like:

newRang=rng.offset(1,0)

see these resources to learn more:

• MSDN Library: Range Object (Excel)
• MSDN Library: Range.Offset property
• MSDN Library: Devlopers Guide to the Excel Range Object
• TechOnTheNet: Excel Range

Answer 2

I think this should work

Sheets("sheet1").Select


Dim LR2 As Long, cell2 As Range, rng2 As Range
With Sheets("sheet1")
    LR2 = .Range("B" & Rows.Count).End(xlUp).Row
    For Each cell2 In .Range("B8:B" & LR2)
        If cell2.Value <> "" Then
            If rng2 Is Nothing Then
                Set rng2 = Sheets("sheet1").cells(cell2.Row + 1, cell2.Column)
            Else
                Set rng2 = Union(rng2, cell2)
            End If
        End If
    Next cell2
    rng2.Select
End With