Как использовать функцию Rows.Count, если между данными есть пустые ячейки

Question

Я пытаюсь написать код, который добавляет данные из моего листа Excel, если элемент, который выбирает пользователь, равен диапазону в J. Это прекрасно работает, если диапазон в J заполнен всеми данными, но какполучить строку для подсчета до конца последней заполненной ячейки, если между ними есть пробелы?Я приложил картинку, чтобы показать, что я имею в виду.

.

Я бы хотел посчитать строки до последнего «Золота».Прямо сейчас это только для второго.

Private Sub cboName_Click() 'only get values that are assigned
    Dim j As Integer, k As Integer, i As Integer
    Me.lstProvider.Clear
    i = 0
    Worksheets("Biopsy Log").Select
    For j = 1 To Range("J2", Range("J1").End(xlDown)).Rows.count 
        If Range("J2", Range("J2").End(xlDown)).Cells(j) = Me.cboName.Value Then 
            If Range("C2", Range("C2").End(xlDown)).Cells(j) = "Assigned" Then 
            With Me.lstProvider
                .AddItem
                For k = 0 To 5
                    .List(i, k) = Range("A" & j + 1).Offset(0, k) 
                Next
            End With
            i = i + 1 
            End If
        End If
    Next
End Sub

Answer 1

Вместо For j = 1 To Range("J2", Range("J1").End(xlDown)).Rows.count используйте Range("J" & Rows.Count).End(xlUp).Row (при условии, что GOLD находится в столбце J). Код противоположен xlDown. Он опускается до последнего ряда листа (Rows.count) и перемещается вверх, пока не найдет первую непустую ячейку.

Answer 2

Вместо использования xlDown, попробуйте использовать xlUp снизу, чтобы получить последний ряд для правильного диапазона:

Dim sht As Worksheet
Set sht = Worksheets("Biopsy Log")

For j = 1 To sht.Range("J" & sht.Rows.Count).End(xlUp).Row
    If sht.Range(...)

Квалификация Range вызовов с явным объектом Worksheet делает ваш код более устойчивым.