这里给你个例子,希望能帮你.
Dim itmx As ListItem
Set itmx = Listview1.FindItem("要查找的字符串", 1, , 0) '判断是否有重复,如果没有,插入listview
If itmx Is Nothing Then
Listview1.ListItems.Add , , Listview1.ListItems.Count + 1 '序号
Listview1.ListItems(Listview1.ListItems.Count).SubItems(1) = "要查找的字符串"
Listview1.ListItems(Listview1.ListItems.Count).SubItems(2) = "其他字符串"
...
End If
这里给你个例子,希望能帮你.
Dim itmx As ListItem
Set itmx = SearchUserLV.FindItem("要查找的字符串", 1, , 0) '判断是否有重复,如果没有,插入listview
If itmx Is Nothing Then
Listview1.ListItems.Add , , Listview1.ListItems.Count + 1 '序号
Listview1.ListItems(Listview1.ListItems.Count).SubItems(1) = "要查找的字符串"
Listview1.ListItems(Listview1.ListItems.Count).SubItems(2) = "其他字符串"
...
End If
Dim RngR As Range
Set rng = Selection.SpecialCells(xlCellTypeConstants, 1)
Set DicTmp = CreateObject("Scripting.Dictionary")
For Each RngR In rng
If Not DicTmp.exists(RngR.Value) Then
DicTmp.Add RngR.Value, Empty
End If
Next RngR
Me.ListBox1.List = DicTmp.Keys
Set rng = Nothing
Set DicTmp = Nothing