已解决

lizi1200

谢谢大家尤其是斑竹大人们么么哒！！！！

lizi1200

求版主大大帮忙！！

不知道为什么

lizi1200 发表于 2018-8-16 10:07
求版主大大帮忙！！

弱弱的问一句：必须是版主才能回答么？

liulang0808

1. Sub 按钮1_Click()
   
2.     arr = [a1].CurrentRegion
   
3.     Set sh = Sheets("个人信息")
   
4.     Application.ScreenUpdating = False
   
5.     For j = 2 To UBound(arr) Step 3
   
6.         sh.Copy after:=sh
   
7.         For i = 0 To 2
   
8.             If i + j <= UBound(arr) Then
   
9.                 Sheets(3).Cells(i * 12 + 2, 2) = arr(j + i, 2)
   
10.                 Sheets(3).Cells(i * 12 + 3, 2) = arr(j + i, 3)
    
11.                 Sheets(3).Cells(i * 12 + 4, 2) = arr(j + i, 1)
    
12.             End If
    
13.         Next i
    
14.     Next j
    
15.     Application.ScreenUpdating = True
    
16. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

alanlad

liulang0808 发表于 2018-8-16 10:21
附件内容供参考。。。。。。

如果将生成工作表改成，直接打印，代码如何又如何更改？谢谢

lizi1200

liulang0808 发表于 2018-8-16 10:21
附件内容供参考。。。。。。

谢谢
！！如果一个sheet页只要一个表，该如何修改代码啊？

lizi1200

谢谢
！！如果一个sheet页只要一个表，该如何修改代码啊？

liulang0808

一个学生一页并打印