使用EXCEL VBA创建一个1000行的工作表，第一列为CommandButton按钮，后续字段包括有序号、查证日期、提报方、提报方客户名称、提报方式、数量、窜货方、窜货方客户名称、是否结案、备注。点击对应行的按钮单独弹出窗体显示本行内对应字段的所有信息

以下是代码示例：

首先，在VBA编辑器中打开“这台电脑”→“Microsoft Excel对象”→“工作簿”→右键点击“插入”→“用户窗体”来创建一个新的窗体，可以命名为“信息窗口”。

在“信息窗口”的设计视图中，可以添加对应的标签和文本框，用于显示每个字段的信息。每个文本框都需要设置为“多行”并且具有足够的高度以容纳多行文本。

接下来，在工作表中添加一个名为“表格”的活动区域，并在该区域中添加1000行和10列的表格。第一列（A列）需要添加1000个命令按钮，每个按钮都需要命名为“Button1”、“Button2”、“Button3”等等，以此类推。每个按钮的Click事件可以使用以下代码：

Private Sub Button1_Click()
'获取所点击按钮所在行的行号
Dim rowNumber As Long
rowNumber = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row

'获取该行的所有信息
Dim rowData As Range
Set rowData = Range("B" & rowNumber & ":J" & rowNumber)

'将信息传递给信息窗口
For i = 1 To 9
Me.Controls("TextBox" & i).Value = rowData.Cells(1, i).Value
Next i

'显示信息窗口
Me.Show
End Sub

这段代码会获取所点击按钮所在行的行号，并将该行的所有信息传递给“信息窗口”的文本框中。最后，它会显示“信息窗口”。

在“信息窗口”的代码模块中，需要添加一个“关闭”按钮的Click事件，用于关闭窗口：

Private Sub CommandButton1_Click()
Me.Hide
End Sub

这段代码会将窗口隐藏。

最后，需要在工作表中添加一个按钮，用于向表格中添加新行。该按钮的Click事件可以使用以下代码：

Private Sub CommandButton2_Click()
'获取当前表格的行数
Dim currentRowCount As Long
currentRowCount = Range("A" & Rows.Count).End(xlUp).Row

'向表格中添加新行
Range("A" & currentRowCount + 1).Value = "Button" & currentRowCount + 1
Range("B" & currentRowCount + 1 & ":J" & currentRowCount + 1).ClearContents
End Sub

这段代码会获取当前表格的行数，并向表格中添加新行。新行的命令按钮命名为“ButtonX”，其中“X”为当前行数加1。新行的其他字段将被清空。

现在，当单击表格中的命令按钮时，将显示一个窗口，显示该按钮所在行的所有字段。单击“关闭”按钮将关闭窗口。单击“添加新行”按钮将在表格中添加新行。