自己做一个宏
sub Save_File()
ActiveWorkbook.Save
sheets("XXX").[a1].value = sheets("XXX").[a1].value +1
end sub
XXX是你的工作表名,a1是单元格地址。需要根据实际情况修改。
然后在工具栏里拉一个图标与这个宏相链接,用这个按钮来存盘就行了。
可以。把你的文件给我,我给你做,然后再发给你
因为我不知道你到底怎样使用,是总在一个文件里添加数据,还是总是创建新的工作表或者总是创建新的工作簿?