在EXCEL中如何用保存按钮通过单击将同一表格中的内容保存到另一表格的指定位置（用VAB编程）如图：

Question

如题所述

Answer 1

用下面代码，给你做一个示意：
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