在EXCEL VBA中使用一个textbox控件一个commandbutton控件一个listview控件，完成查询关键字显示关键字所在表格中所在行的所有内容在listview控件中，需添加表头

这是一个技术问题，我可以回答。你可以使用以下代码来实现：

Private Sub CommandButton1_Click()

Dim keyword As String

keyword = TextBox1.Value

Dim found As Boolean

found = False

Dim i As Long

Dim j As Long

For i = 1 To Sheets.Count

For j = 1 To Sheets(i).UsedRange.Rows.Count

If InStr(Sheets(i).Cells(j, 1).Value, keyword) > 0 Then

found = True

ListView1.ListItems.Add , , Sheets(i).Name

ListView1.ListItems(ListView1.ListItems.Count).SubItems(1) = Sheets(i).Cells(j, 1).Value

ListView1.ListItems(ListView1.ListItems.Count).SubItems(2) = Sheets(i).Cells(j, 2).Value

ListView1.ListItems(ListView1.ListItems.Count).SubItems(3) = Sheets(i).Cells(j, 3).Value

End If

Next j

Next i

If Not found Then

MsgBox "No matching record found."

End If

End Sub

当然，你还需要在代码中添加添加表头的部分。