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

Question

如题所述

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版