假设录入表为sheet1录入行为第一行,另存表为sheet31
'在sheet1插入一个按钮,按钮名称改为“另存”,指定宏:saveCon
sub saveCon()
dim lr%
lr=sheet31.range("A65536").end(xlup).row
sheet31.range(lr+1 & ":" & lr+1)=sheet1.range("1:1").value
end sub
'在sheet1再插入一个按钮,按钮名称改为“清除”,指定宏:delCon
sub delCon()
sheet1.range("A1").EntireRow.ClearContents
end sub
朋友 你这个很好弄的 留个联系方式
我可以帮你做个
联系方式?
发个模板给你试试
用beforesave试试,其实很简单的