阻止将空白行添加到多列ListBox中

Question

我有一个包含六列的列表框，当用户选择与我的工作表中的Range（“ A2”）相对应的访问＃时，我要添加这些列。数据会添加，但是每当有内容添加到列时，它也会添加空白行。这就是我所拥有的。我没有空白行和相应的编号，所以我不确定为什么要添加空白。检出图片以获取我的Excel数据。

Private Sub cboVisitNo_Click()
    Dim j As Integer, k As Integer, i As Integer

    Worksheets("Biopsy Log").Select
    Me.lstBNum.Clear
    i = 0
    For j = 1 To Range("A2", Range("A1").End(xlDown)).Rows.count 
        If Range("A2", Range("A2").End(xlDown)).Cells(j) = Me.cboVisitNo.Value Then
            With Me.lstBNum
                    For k = 0 To 5
                        .AddItem
                        .List(i, k) = Range("A" & j + 1).Offset(0, k)  
                    Next            
            End With
            i = i + 1  
        End If
    Next
End Sub

Answer 1

未经测试：

`implementation 'com.google.android.gms:play-services-maps:16.0.1'`