Excel VBA是否找到范围内的最后一行?

Excel VBA是否找到范围内的最后一行?,excel,range,vba,Excel,Range,Vba,我想找到数据在某个范围内的最后一行。例如,我想查找范围(“A15:A42”)中的最后一个空行。它不应该超过A42。任何帮助 lRow = Range("C15:C42").End(xlDown).Row ....it goes beyond C42.. 从评论中复制的IMP信息 是的..我将从C43获得一些其他数据用户2703472 3小时前 这就是你想要的吗?我假设C15有数据 Option Explicit Sub sample() Dim ws As Worksheet

我想找到数据在某个范围内的最后一行。例如,我想查找范围(“A15:A42”)中的最后一个空行。它不应该超过A42。任何帮助

lRow = Range("C15:C42").End(xlDown).Row   ....it goes beyond C42..
从评论中复制的IMP信息


是的..我将从C43获得一些其他数据用户2703472 3小时前


这就是你想要的吗?我假设
C15
有数据

Option Explicit

Sub sample()
    Dim ws As Worksheet
    Dim rng As Range
    Dim LRow As Long

    '~~> Change this to the relevant sheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        Set rng = .Range("C15:C42")

        LRow = .Range(Split(.Cells(, rng.Column).Address, "$")(1) & _
               (rng.Row + rng.Rows.Count)).End(xlUp).Row

        Debug.Print LRow
    End With
End Sub
屏幕截图


这就是你要尝试的吗?我假设
C15
有数据

Option Explicit

Sub sample()
    Dim ws As Worksheet
    Dim rng As Range
    Dim LRow As Long

    '~~> Change this to the relevant sheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        Set rng = .Range("C15:C42")

        LRow = .Range(Split(.Cells(, rng.Column).Address, "$")(1) & _
               (rng.Row + rng.Rows.Count)).End(xlUp).Row

        Debug.Print LRow
    End With
End Sub
屏幕截图


可能已经完成了,但您必须先检查数据,是否确定C列第42行下没有值?同时检查您是否在正确的表格中引用了值?您发布的代码的结果因选择的工作表而异。是..我将从C43获得一些其他数据…是的,我尝试使用Activesheet.Range。但它超出了c42,给了我一行nr,比如1026,可能已经完成了,但您必须首先检查数据,您确定C列第42行下没有值吗?还要检查您是否在正确的表中引用了?您发布的代码的结果因选择的工作表而异。是..我将从C43获得一些其他数据…是的,我尝试使用Activesheet.Range。但它超越了c42,给了我一行nr,比如1026