在EXCEL中如何用保存按钮通过单击将同一表格中的内容保存到另一表格的指定位置（用VAB编程）如图：
展开全部
用下面代码，给你做一个示意：
sub 保存
sheets("保存位置").select
x=range("a65536").end(xlup).row +1 '获取A列最后一行位置
with sheets("窗口")
cells(x,1)=.cells(4,3)'姓名
cells(x,2)=.cells(5,3)'性别
‘以下省略，可添加其它项目，当然与可用FOR循环
end with
end sub
建议你到我百度空间参考一下文章《打印并保存》，只要将其中的“打印”去掉，只保留“保存”功能即可。
http://hi.baidu.com/chaohua008/item/90e8a011345544e39913d6ea
sub 保存
sheets("保存位置").select
x=range("a65536").end(xlup).row +1 '获取A列最后一行位置
with sheets("窗口")
cells(x,1)=.cells(4,3)'姓名
cells(x,2)=.cells(5,3)'性别
‘以下省略，可添加其它项目，当然与可用FOR循环
end with
end sub
建议你到我百度空间参考一下文章《打印并保存》，只要将其中的“打印”去掉，只保留“保存”功能即可。
http://hi.baidu.com/chaohua008/item/90e8a011345544e39913d6ea
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
