excel vba点击按钮查询sheet2表中的数据，并显示在列表框控件中

可以使用以下代码实现：

Private Sub CommandButton1_Click()

Dim lastRow As Long
Dim i As Long

'清空列表框
ListBox1.Clear

'获取sheet2最后一行的行号
lastRow = Sheets("sheet2").Cells(Rows.Count, "A").End(xlUp).Row

'循环遍历sheet2中的数据，并添加到列表框中
For i = 2 To lastRow
ListBox1.AddItem Sheets("sheet2").Cells(i, 1).Value
Next i

End Sub

这段代码会在按钮被点击后，将sheet2中第一列的数据添加到列表框中。