EXCEL VBA 点击按钮，将sheet2表格内所有的数据明细显示在这个窗体中

以下是一个简单的示例代码，当单击按钮时，将显示Sheet2中的所有数据明细。

首先，需要创建一个UserForm窗体，将其命名为“ShowDataForm”。在窗体上添加一个多行文本框控件，将其命名为“txtData”。然后，在代码模块中添加以下代码：

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet2")
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Dim data As String
For i = 1 To lastRow
data = data & ws.Cells(i, 1) & vbTab & ws.Cells(i, 2) & vbTab & ws.Cells(i, 3) & vbCrLf
Next i
txtData.Value = data
ShowDataForm.Show
End Sub

在此代码中，我们首先定义了一个名为ws的工作表对象，它代表Sheet2工作表。然后，我们使用End(xlUp)方法获取最后一行的行号，并使用循环遍历所有行。在循环中，我们将每行的数据连接成一个字符串，并使用tab和换行符分隔。最后，我们将该字符串设置为文本框的值，并显示UserForm窗体。

当单击按钮时，将显示一个包含Sheet2中所有数据的窗体。您可以根据需要调整此代码以满足特定需求。