Первое появление Non Blank Cell VBA

Question

Я пытаюсь написать код VBA, который работает на моем листе Excel.

Range ("A65536"). End (xlUp). Строка дает мне номер строки последней непустой ячейки. Точно так же я пытаюсь получить номер строки первой непустой ячейки в этом конкретном столбце. Заранее спасибо. мадх

Answer 1

Вы можете использовать ту же функцию, просто проверьте, не пуста ли первая строка.

Dim firstRow as Integer

If ActiveSheet.Range("A1").value = "" Then
    firstRow = ActiveSheet.Range("A1").End(xlDown).Row
Else
    firstRow = 1
End If

Если первая строка не пуста и вы используете вызов End(xlDown), вы не получите первую непустую ячейку, вы получите последнюю непустую ячейку перед первой пустой ячейкой.

Answer 2

Вы также можете использовать функцию IsEmpty (ячейка), которая возвращает логическое значение true / false.