如何使用VBA将Excel表单中的记录存储到不同的行？

使用VBA将Excel表单中的记录存储到不同的行，可以通过以下步骤实现：

首先，打开Excel文件并进入VBA编辑器。可以通过按下Alt + F11快捷键或从开发工具栏中选择“Visual Basic”选项来打开VBA编辑器。
在VBA编辑器中，找到并双击要操作的工作表的名称。这将打开一个代码窗口。
在代码窗口中，输入以下VBA代码：

Sub StoreRecords()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 将记录存储到不同的行
    ws.Cells(lastRow, "A").Value = Range("A1").Value ' 将"A1"替换为实际的单元格地址
    ws.Cells(lastRow, "B").Value = Range("B1").Value ' 将"B1"替换为实际的单元格地址
    ' 继续根据需要复制其他单元格的值
    
    ' 清空原始记录
    Range("A1:B1").ClearContents ' 将"A1:B1"替换为实际的单元格范围
    
    ' 提示保存并关闭Excel文件
    MsgBox "记录已存储到第 " & lastRow & " 行。请保存并关闭文件。"
End Sub

修改代码中的工作表名称和单元格地址，以适应实际的情况。例如，将"Sheet1"替换为要操作的工作表名称，将"A1"和"B1"替换为要存储的记录的单元格地址。
运行代码。可以通过按下F5键或在VBA编辑器中点击运行按钮来运行代码。
运行代码后，记录将被复制到工作表的下一个空行，并清空原始记录。弹出消息框提示记录已存储到哪一行。

这样，你就可以使用VBA将Excel表单中的记录存储到不同的行了。

请注意，以上代码仅适用于将记录从一个固定的单元格范围复制到目标工作表的下一个空行。如果要处理多个记录或动态范围，请根据实际需求进行修改。