Excel文档中多个工作表怎样实现双面打印
答案:2 悬赏:40 手机版
解决时间 2021-12-21 01:32
- 提问者网友：蓝莓格格巫
- 2021-12-20 06:33
Excel文档中多个工作表怎样实现双面打印
最佳答案
- 五星知识达人网友：妄饮晩冬酒
- 2021-12-20 07:43
能否将各工作表中的内容合并到一张工作表中呢？
假设打印预览时，每20行一页。
下面的vba将各表的内容合并到sheet1中。
代码使用方法：按住ALT依次按F11,I,M；粘贴代码后按F5运行。
PS：如果每页有N行，则将代码中所有的20改为N
Sub 复制粘贴()
r = 1
For Each s In ThisWorkbook.Worksheets
With s
If .Name Sheet1 Then
r = r + 20
.Range(1:20).Copy Sheets(Sheet1).Cells(r, 1)
End If
End With
Next s
End Sub
假设打印预览时，每20行一页。
下面的vba将各表的内容合并到sheet1中。
代码使用方法：按住ALT依次按F11,I,M；粘贴代码后按F5运行。
PS：如果每页有N行，则将代码中所有的20改为N
Sub 复制粘贴()
r = 1
For Each s In ThisWorkbook.Worksheets
With s
If .Name Sheet1 Then
r = r + 20
.Range(1:20).Copy Sheets(Sheet1).Cells(r, 1)
End If
End With
Next s
End Sub
全部回答
- 1楼网友：夜余生
- 2021-12-20 08:33
你的回答很对
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯