EXCEL 窗体中有5个文本框，点击按钮将文本框中内容储存到sheet2中

以下是实现此功能的 VBA 代码：

Private Sub CommandButton1_Click()
    '将文本框中内容储存到sheet2中
    
    '定义变量
    Dim ws As Worksheet
    Dim i As Integer
    
    '设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet2")
    
    '将文本框中的内容存入数组
    Dim arr(1 To 5) As String
    For i = 1 To 5
        arr(i) = Controls("TextBox" & i).Value
    Next i
    
    '将数组中的内容写入工作表
    ws.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 5).Value = arr
    
    '清空文本框
    For i = 1 To 5
        Controls("TextBox" & i).Value = ""
    Next i
    
End Sub

此代码中，我们首先定义了一个名为 `ws` 的变量，用于存储我们要写入数据的工作表，这里我们选择了 `Sheet2`。然后，我们使用一个名为 `arr` 的数组来存储文本框中的内容。我们使用一个循环遍历窗体中的所有文本框，将其内容存入数组中。最后，我们将数组中的内容写入到工作表中，并清空文本框中的内容。