Получить количество следующих пустых строк

Question

Я хочу, чтобы получить количество следующих пустых строк, вычисленный из объявленной ячейки: Как вы можете видеть, что это проблема:

я это сделать, но я дон «т получить правильный ответ:

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 дает границу области вашей клетка находится в

Причины вы сделали не получить правильный результат с вашим кодом, так это то, что вы выбрали последнюю строку на листе и затем поднялись, что дало вам 11 или когда вниз (то есть вы остались на последнем строка), которая дала вам другое значение.