Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) ListView1.ListItems.Clear Call 添加标题行 Call saixuan(ComboBox1.Text) For x = 1 To UBound(arr1, 2) If arr1(2, x) Like "*" & TextBox1.Text & "*" Or arr1(1, x) Like "*" & TextBox1.Text & "*" Or arr1(3, x) Like "*" & TextBox1.Text & "*" Or arr1(4, x) Like "*" & TextBox1.Text & "*" Then Set ITM = ListView1.ListItems.Add() ITM.Text = arr1(1, x) ITM.SubItems(1) = arr1(2, x) ITM.SubItems(2) = arr1(3, x) ITM.SubItems(3) = arr1(4, x) End If Next x