用下面代码，给你做一个示意：
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
建议你到我百度空间参考一下文章《打印并保存》，只要将其中的“打印”去掉，只保留“保存”功能即可。
/pic/c1hglfbcval.com
