录入数据

zhouguangcai

当sheet1输入此表的数据完成时，点击按钮“存录”，数据自动填入到sheet2的对应空格内，
然后点击按钮“清除”后，此表数据被清除，而sheet2中数据仍然保留。再重新在此表中输入
数据后，点击按钮“存录”，数据自动填入到sheet2的对应下一行的空格内。如此可反复录入。

iwangyi

Sub bc()
n = Sheet2.[a65536].End(3).Row + 1
Range("a1").CurrentRegion.Offset(2).Copy Sheet2.Cells(n, 1)
End Sub

Sub CC()
Sheet1.UsedRange.Offset(2).Delete
End Sub

iwangyi

附件，请参考

bestqiaochu

iwangyi 发表于 2018-9-15 14:10
附件，请参考

大神能给个QQ号么

zhouguangcai

QQ号344395367

zhouguangcai

我以前在论坛中看到过，并且我也下载了，可现在找不到了，真的晕

xuminglei2003

Sub 按钮1_Click()
Dim arr, r%
arr = Sheet1.Range("a3:i3")
r = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheet2.Cells(r, 1).Resize(1, UBound(arr, 2)) = arr
End Sub

Sub 按钮2_Click()
Sheet1.Range("a3:i3").ClearContents
End Sub

zhouguangcai

设置的公式都没有了，怎么还保留其中的公式呢

zhouguangcai

下载了，是我需要，但公式没了，可我仍然要真诚的谢谢你，朋友

zhouguangcai

xuminglei2003 发表于 2018-9-15 17:09
Sub 按钮1_Click()
Dim arr, r%
arr = Sheet1.Range("a3:i3")

谢谢你，朋友，是我需要