Подсчитайте количество клеток, которые полны

Question

Как подсчитать количество ячеек, которые полностью и получить номер возврата

Например: Range («A4»), а затем подсчитать количество ячеек, которые находятся под которые имеют текст и возвращают счет. Должен остановиться, когда попадает в ячейку без текста.

L = CountA("A4").End(xlDown) 

Answer 1

EDIT: В соответствии с комментариями, это правильный код:

Простой End(xlDown) подход

Sub GetCellCount() 
    With ThisWorkbook.Sheets("Sheet1") 'Modify as necessary. 
     Set HeadC = .Range("A4") 
     CellCt = HeadC.End(xlDown).Row - HeadC.Row 
     MsgBox CellCt 
    End With 
End Sub 

Результат:

Дайте нам знать, если го это помогает.

EDIT2: Не устраивает вышеуказанное, поскольку простой подход End(xlDown) может представлять потенциальные проблемы в будущем. Другие подходы ниже.

Проверка пустых ячеек приближается

Sub GetCellCountv2() 
    With ThisWorkbook.Sheets("Sheet1") 'Modify as necessary. 
     CellCt = 0 
     Set HeadC = .Range("A4") 'Modify as necessary. 
     For Iter = HeadC.Row + 1 To .Rows.Count 
      If Not IsEmpty(.Cells(Iter, HeadC.Column)) Then 
       CellCt = CellCt + 1 
      Else 
       Exit For 
      End If 
     Next Iter 
     MsgBox CellCt 
    End With 
End Sub 

длиной Проверки струнного подхода

Sub GetCellCountv3() 
    With ThisWorkbook.Sheets("Sheet1") 'Modify as necessary. 
     CellCt = 0 
     Set HeadC = .Range("A4") 'Modify as necessary. 
     For Iter = HeadC.Row + 1 To .Rows.Count 
      If Len(.Cells(Iter, HeadC.Column).Value) > 0 Then 
       CellCt = CellCt + 1 
      Else 
       Exit For 
      End If 
     Next Iter 
     MsgBox CellCt 
    End With 
End Sub 

Надеется, что это может решить несколько потенциальных проблемы с просьбой.