vba listbox，我要往listbox1中添加项目，如果当前添加的项目已经存在与listb

Question

x1中则不添加，怎么写

Answer 1

With ListBox1
    Dim i%
    For i = 0 To .ListCount - 1
        If .List(i, 0) = TextBox1.Text Then
            Exit Sub
        End If
    Next
    .AddItem TextBox1.Text
End With

本回答被网友采纳