EXCEL中如何实现要打印的数据自动连续记录下来就是我在EXCEL表中几个 单元格中输入了数据，并打印， 这时

Question

EXCEL中如何实现要打印的数据自动连续记录下来就是我在EXCEL表中几个
单元格中输入了数据，并打印，
这时我想把刚输入的数据记录下来（放在其它单元格中，最好入在另一个表
中：Sheet2)，紧接着我打印第二张，同样将第二张的数据按顺序记录在
另一个表中，第三张，第四张，这样延续也就是最终我想查询
今天打印了哪些数据，并实现统计，像超市收银统计一样，感谢高手指点。
要求在EXCEL中打印，并将每次修改并打印的数据保存下来。 是在表一中的
固定格中输入数据 然后就打印，打印时想把数备份到表2，然后还在表一的
原来格中输入，再打印时把这个内容按顺序备份到表2。
固定这几格
在我做的表中分别为B12(显示另一格的关联信息），E7(手动输入），
I12（手动输入），M7(显示另一格的关联信息）E5(手动输入），
Q16（手动输入），N16（手动输入），U10（手动输入）
就是这8个单元格要输入。
sheet2中要保存的格分别为 B4列(sheet2)=E5(sheet1)信息; D4列=B12信息；
E4列=I12信息； F4列=E7信息 I4列=M7信息; L4列=Q16信息；
M4列=N16信息； N4列=U10信息
shtte1 确定打印后 shtte2 开始保存

Answer 1

Sub MK888()
’
‘
Sheets("表1").Select
Dim s2 As Variant
s2 = [COUNTA(表2!B:B,0)]
Sheets("表2").Cells(s2, 2) = Cells(5, 5)
Sheets("表2").Cells(s2, 4) = Cells(12, 2)
Sheets("表2").Cells(s2, 5) = Cells(12, 9)
Sheets("表2").Cells(s2, 6) = Cells(7, 5)
Sheets("表2").Cells(s2, 9) = Cells(7, 13)
Sheets("表2").Cells(s2, 10) = Cells(16, 17)
Sheets("表2").Cells(s2, 13) = Cells(16, 14)
Sheets("表2").Cells(s2, 14) = Cells(10, 21)
End Sub
只能做到这步。具体怎样点击打印的同时执行以上语句，再看看别的高手帮你吧。
这个是按你要求把需要记录的内容记录在表2里。注意表2保存的记录之间不能有空行。
把以上语句复制到工作表模块里，点击执行MK888宏即可完成你的需求。
2003版追问

2007版的 试了不行啊

追答

 

有什么提示？

要把工作表重新命名为“表1”“表2”。这样程序才能找到。

Answer 2

选中多张表格同时操作就行啊，当你打开excel时，左下角有sheel1 sheel2 shee3,你按住ctrl键，单击鼠标左键同时选中这3个表格，那么你在sheel中进行操作时，sheel2,sheel3中会自动进行你在sheel1中的操作，如果表格不够，你可以再创建sheel4,sheel5,、、、、

Answer 3

题目太长，没耐心看。囧

Answer 4

自己百度吧，问题太难