[已解决]批量引用其它工作表并固定格式批量打印

ch198110

兄弟姐妹些，我是个门外汉，求助一下，已有一个成绩名单，列包括姓名、年龄、成绩，每人一行。现在要在另一个工作表分别打印每人的情况，用固定排版。用个什么函数呢？帮我写上，并简单说明。对于大家来说很简单的事情，谢谢哈！

对于几名同学来说，用vlook函数引用几次，但要批量操作而且不能动排版，咋弄呢。

最佳答案

月排行榜 / 总排行榜

sry660

2016-1-15 19:37

1. Sub 批量打印()
   
2. Dim arr, i&
   
3. arr = Sheets(1).[a2].CurrentRegion
   
4. With Sheets(2)
   
5.     For i = 3 To UBound(arr)
   
6.         .[b2] = arr(i, 1)
   
7.         .[b3] = arr(i, 4)
   
8.         .[b5] = arr(i, 5)
   
9.         .[b6] = arr(i, 2)
   
10.         .[b7] = arr(i, 3)
    
11.         .[b8] = arr(i, 6)
    
12.         '.[a1:g9].PrintPreview
    
13.         .[a1:g9].PrintOut
    
14.     Next
    
15. End With
    
16. End Sub

复制代码

跳转到最佳答案楼层

sry660

1. Sub 批量打印()
   
2. Dim arr, i&
   
3. arr = Sheets(1).[a2].CurrentRegion
   
4. With Sheets(2)
   
5.     For i = 3 To UBound(arr)
   
6.         .[b2] = arr(i, 1)
   
7.         .[b3] = arr(i, 4)
   
8.         .[b5] = arr(i, 5)
   
9.         .[b6] = arr(i, 2)
   
10.         .[b7] = arr(i, 3)
    
11.         .[b8] = arr(i, 6)
    
12.         '.[a1:g9].PrintPreview
    
13.         .[a1:g9].PrintOut
    
14.     Next
    
15. End With
    
16. End Sub

复制代码

ch198110

谢谢sry660 ！