获取下一个空行的数量

我想获得下一个空行的数量，从一个声明的单元格计算：正如你可以看到这是问题：

我这样做，但我没有得到正确的答复：

Sub sup_rapp1() '*variables Dim CELDEB As Range, LIGNEFIN As Long, COLONEFIN As Long, WS As Worksheet 'set objet : affecter les objets Set WS = Sheets("TAB1") Set CELDEB = Range("A4") 'derniere ligne at colonne of data LIGNEFIN = WS.Cells(WS.Rows.Count, CELDEB.Column).End(xlUp).Row MsgBox LIGNEFIN 

 Sub sup_rapp1() '*variables Dim CELDEB As Range, LIGNEFIN As Long, COLONEFIN As Long, WS As Worksheet 'set objet : affecter les objets Set WS = Sheets("TAB1") Set CELDEB = Range("A4") 'derniere ligne at colonne of data LIGNEFIN = WS.Cells(WS.Rows.Count, CELDEB.Column).End(xlDown).Row MsgBox LIGNEFIN 

Answer 1

我认为这是你正在寻找的：

 Set WS = Sheets("TAB1") Set CELDEB = WS.Range("A4") LIGNEFIN = CELDEB.CurrentRegion.Row + CELDEB.CurrentRegion.Rows.Count MsgBox CStr(LIGNEFIN) 

CurrentRegion给你你的细胞所处区域的边界。

你没有得到正确的结果与你的代码的原因是，你select了工作表的最后一行，然后上去，这给了你11或当下来（这是你留在最后一行），给了你另一个值。