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

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