在listbox VBA中搜索并显示多列数据的多个条目

Private Sub UserForm_Initialize()
    ' 设置Listbox的列数
    ListBox1.ColumnCount = 3
    
    ' 添加列标题
    ListBox1.ColumnHeads = True
    ListBox1.List(0, 0) = "列1标题"
    ListBox1.List(0, 1) = "列2标题"
    ListBox1.List(0, 2) = "列3标题"
    
    ' 添加数据
    ListBox1.AddItem "数据1"
    ListBox1.List(1, 0) = "数据1列2"
    ListBox1.List(1, 1) = "数据1列3"
    
    ListBox1.AddItem "数据2"
    ListBox1.List(2, 0) = "数据2列2"
    ListBox1.List(2, 1) = "数据2列3"
    
    ' 其他数据...
End Sub

Private Sub TextBox1_Change()
    Dim searchStr As String
    Dim i As Integer
    
    ' 获取搜索关键字
    searchStr = TextBox1.Text
    
    ' 清空Listbox
    ListBox1.Clear
    
    ' 搜索并显示匹配的数据
    For i = 1 To ListBox1.ListCount - 1
        If InStr(1, ListBox1.List(i, 0), searchStr, vbTextCompare) > 0 Then
            ListBox1.AddItem ListBox1.List(i, 0)
            ListBox1.List(ListBox1.ListCount - 1, 1) = ListBox1.List(i, 1)
            ListBox1.List(ListBox1.ListCount - 1, 2) = ListBox1.List(i, 2)
        End If
    Next i
End Sub