Question

我有sheet1，它看起来像一个表格，数据输入特定单元格。点击一个按钮，输入的数据必须连续转到sheet2。再次当在sheet1中输入下一组数据并按下按钮时，数据应该转到表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

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

Answer 1

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

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

1 个答案: