求助EXCEL高手!!!!!!

我有一个这样的表格里面有sheet1和sheet2,
在sheet1中例如是这样的
1 2 3
1 张 18 男
2 李 20 女
3 赵 21 男
我想在sheet2中引用sheet1中的数据,例如:
1 2 3
1 张 18 男

然后我打印这些数据,再然后我想让sheet2中能顺序引用sheet2中的第二行,再打印,第三行,再打印,以此类推,不知道EXCEL能否实现?

建议你使用WORD的邮件合并,
温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-07-21

Sub 按钮1_单击()

Sheet2.PageSetup.PrintArea = "$A$1:$C$2" '设置sheet2打印区域

Dim i As Integer

For i = 2 To Sheet1.Range("a1").End(xlDown).Row 'i等于sheet1的第2行到最后一行有记录的行号

Sheet2.Range("a2:c2").Value = Sheet1.Range("a" & i & ":c" & i).Value 'sheet2的区域A2:C2 等于sheet1的区域a2:c2 a3:c3这样循环

Sheet2.PrintOut 'sheet2打印

Next i

End Sub

我做了个简单的你看看 右键菜单栏 控件工具箱 选 按钮 代码复制上面的 

我测了一下没问题就是打印我没测试 浪费纸 你自己试的时候也可以打印2张就好了

我邮箱[email protected]你看看还有问题就邮件我

附件是GIF录制的检测结果

第2个回答  2011-07-15
可以
在SHEET2的B1输入:
=VLOOKUP($A1,SHEET1!$A:$Z,COLUMN(),)
右拉填充
你只需在SHEET2的A1输入序号,后面的内容自动显示,然后你只管打印.
第3个回答  2011-07-16
当然可以啊,很简单的!我想你是应该要做个excel的模板吧,我在做excel帐的时候就这样搞,很方便的!
1:新建一个excel文件(做模板用的);
2:把数据粘贴在sheet1里面;
3:在sheet2里面找到对应的单元格(一定要对号入座哦!),用函数表示='所在数据页名称'!所在单元格;
  举个例子给看看:“赵”在sheet1中的A5单元格里面,你显示在sheet2里面的C1里面的话,就可以在sheet2的C1里面='sheet1'!A5  就行了;
4:你如果要提取sheet2数据的话就必须把sheet2里面的数据调出去,因为sheet2的数据是不可以直接使用的,sheet2带有公式的!,你可以把sheet2里面有用的数据复制到你所要用的excel文件里面,然后“选择性粘贴”,再选择“值”,就不会把公式也带过来了,一定要记得“选择性粘贴”哦
   这可是我工作中非常宝贵的经验哦!要给分啊!我可是一个字一个字的打上去的,不是转载的!!!实在还不懂的话就发邮件过来吧[email protected]
第4个回答  2011-07-27
您好,您需要的结果EXCEL可以实现,
而且是用最简单的公式=“”
1、建立两个工作表Sheet1和Sheet2
Sheet1为打印表,Sheet2为数据编辑表
2、花些时间将Sheet1表做成你想要的格式(注意必须为你打印1张的大小),然后将要变的数据等于Sheet2中数据,然后复制粘贴你要的数量个(比如你一般打印20份,就复制19份)从上往下依次等于。
3、打印时只需在正常的Sheet2中输入你想要的结果,然后切换到Sheet1中,也就是打印页,然后打印就好了(注意选择打印从第一页,到你打印的实际页数)

我就是这样用的,很好用
第5个回答  2011-07-15
能 这可不是在网上搜的 自己就做过呢 很简单 文件里面有一个打印区域设置打印区域就行了 要不帮你打印啊
相似回答