列表框显示唯一编号，如果特定列具有零(0)值vba excel，则不会列出

Sub PopulateListBox()
    Dim dataRange As Range
    Dim listBox As Object
    Dim options As Collection
    Dim cell As Range
    
    ' 设置数据范围，假设数据在Sheet1的A列和B列中
    Set dataRange = Sheet1.Range("A1:B10")
    
    ' 创建列表框控件
    Set listBox = Sheet1.OLEObjects.Add(ClassType:="Forms.ListBox", Link:=False, _
        DisplayAsIcon:=False, Left:=10, Top:=10, Width:=100, Height:=100).Object
    
    ' 创建集合用于存储选项
    Set options = New Collection
    
    ' 遍历数据源
    For Each cell In dataRange.Columns(2).Cells
        ' 判断特定列的值是否为零
        If cell.Value <> 0 Then
            ' 将选项及其编号添加到集合中
            options.Add cell.Value, cell.Offset(0, -1).Value
        End If
    Next cell
    
    ' 将选项绑定到列表框
    For Each option In options
        listBox.AddItem option
    Next option
End Sub