excel - 如果数据之间有空白单元格，如何使用 Rows.Count 函数

Question

我正在尝试编写一个代码，如果用户选择的项目等于 J 中的范围，则从我的 Excel 工作表中添加数据。如果 J 中的范围填充了所有数据，这将非常有效，但是如何如果中间有空白，我是否让该行仍然计数到最后一个填充的单元格？我附上一张图片来说明我的意思。

.

我想一直数到最后一个“Gold”。现在它只计算到第二个。

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) 并向上移动，直到找到第一个非空白单元格。