求大神帮忙写一下VBA代码。

dujiahu

kimmyyang 发表于 2019-3-14 11:11
因为你这个表格很简单，offset参照单元格

你的方法我试了，我如果清空了 前面的表 后面数据就没了，这样没有意义啊。

mhps159357

Sub cc()
i = Sheets("录入表单").Cells(Rows.Count, 2).End(3).Row
k = Sheets("图纸累计量").Cells(Rows.Count, 3).End(3).Row + 1
Sheets("录入表单").Range("a" & i & ":g" & i).Copy Sheets("图纸累计量").Cells(k, 1)
End Sub

dujiahu

mhps159357 发表于 2019-3-14 13:06
Sub cc()
i = Sheets("录入表单").Cells(Rows.Count, 2).End(3).Row
k = Sheets("图纸累计量").Cells(Row ...

谢谢 ，你的可以录进去 我的改改才行。

蓝桥玄霜

dujiahu 发表于 2019-3-14 11:48
版主大人，我VBA代码写进去了，也设置了按钮 但是还是无法实现数据保存到sheet3表

代码是放在表1的代码区里面的，不需要用按钮的，也不能放在模块里面。

dujiahu

蓝桥玄霜 发表于 2019-3-15 08:53
代码是放在表1的代码区里面的，不需要用按钮的，也不能放在模块里面。

好的 ，谢谢！ 我再试试。