Vba 将excel的一张表中输入的某些数据复制/保存到另一张表中，并将其存储为数据库

我有sheet1，它看起来像一个表单，数据是在特定的单元格中输入的，单击一个按钮，输入的数据必须转到一行中的sheet2。同样，当在表1中输入下一组数据并按下按钮时，数据应转到表2的下一个非空行。 请帮帮我

Sub Button5_Click() 
Worksheets("Sheet1").Range("a2").Value = Worksheets("Sheet2").Range("h9") 
Worksheets("Sheet1").Range("b2").Value = Worksheets("Sheet2").Range("h10") 
Worksheets("Sheet1").Range("c2").Value = Worksheets("Sheet2").Range("h11") 
Worksheets("Sheet1").Range("d2").Value = Worksheets("Sheet2").Range("h12") 
End Sub 

---

此代码一次又一次地替换特定的单元格，我应该怎么做才能让它自己获取位置并附加新的dat

请注意堆栈溢出不是一种代码编写服务。您需要显示您当前的尝试，并解释哪些不起作用，以及您已经做了哪些尝试来改进/修复它。子按钮5单击（）工作表（“Sheet1”）。范围（“a2”）。值=工作表（“Sheet2”）。范围（“h9”）工作表（“Sheet1”）。范围（“b2”）。值=工作表（“Sheet2”）。范围（“h10”）工作表（“Sheet1”）。范围（“c2”）.Value=工作表（“Sheet2”）.Range（“h11”）工作表（“Sheet1”）.Range（“d2”）.Value=工作表（“Sheet2”）.Range（“h12”）End Sub此代码反复替换特定单元格，我该怎么做才能让它自己占据位置并在下一行添加新数据您发布的代码与您所说的正好相反。子按钮5_Click（）Dim s1，s2 Dim emptyRow只要长集s1=工作表（“Sheet1”）Set s2=工作表（“Sheet2”）emptyRow=工作表函数CountA（范围（“A:A”））带s1.单元格的+1（行数，1）。结束（xlUp）。偏移量（1，0）。整行s1.单元格（空距，1）。值=s2.范围（“h9”）。值s1.单元格（空距，2）。值=s2.范围（“h10”）。值s1.单元格（空距，3）。值=s2.范围（“h11”）。值s1.单元格（空距，4）。值=s2.范围（“h12”）.Value End With End Sub谢谢您的回复，我对代码做了一些修改，但无法获得结果。我要求sheet1中的新数据转到下一行，但这组命令将替换现有数据。您的代码完全正常。。我发现了一些语法错误。。再次感谢你。

Sub Button5_Click() 
dim s1,s2

    Set s1 = Worksheets("Sheet1")
    Set s2 = Worksheets("Sheet2")

    with s1.cells(rows.count,1).end(xlup).offset(1,0).entirerow

        .cells(,"a").Value = s2.Range("h9").Value 
        .cells(,"b").Value = s2.Range("h10").Value  
        .cells(,"c").Value = s2.Range("h11").Value  
        .cells(,"d").Value = s2.Range("h12").Value  

    End with

End Sub