求助求助！如果往下新增若干联，填好信息的表格

砂野天弥

事例

有一个固定格式的表格，每一组信息生成一个表格，并将表格一联一联的往下排。每次填写信息的组织不一定，且生成的表格接在上次生成表格的下面，以此类推。关键是求助，1，有多少组数据生成多少张表格，2，新的表格接在旧的表格下面。 test.rar (10.38 KB, 下载次数: 8)

2020-3-9 19:08 上传

点击文件名下载附件
test

719404338

1. Sub t()
   
2. Dim i
   
3. For i = 4 To Sheet1.[a65536].End(3).Row
   
4. For j = 2 To 5
   
5. Sheet1.Cells(i, j) = Sheet1.Range("a" & i) & Sheet1.Cells(3, j)
   
6. Next j, i
   
7. 
   
8. r = 1
   
9. For i = 4 To Sheet1.[a65536].End(3).Row
   
10. Sheet2.Range("a" & r) = "通知书"
    
11. For j = 2 To 6
    
12. Sheet2.Range("a" & r + 1) = Sheet1.Cells(i, j)
    
13. r = r + 1
    
14. Next j, i
    
15. End Sub

复制代码

砂野天弥

719404338 发表于 2020-3-9 20:12

谢谢你的回复，但是我试了 没有实现我的要求

砂野天弥

恳请大家帮帮忙

zzj198237

1. Sub 行转列()
   
2.     Dim row1 As Long
   
3.     row1 = [a3].End(xlDown).Row
   
4.     J = 4
   
5.     For i = 4 To row1
   
6.         n = Range("B" & i).End(xlToRight).Column '可自定义
   
7.         Range("M" & J) = "通知书"
   
8.         Range("M" & J + 1).Resize(n - 1, 1) = WorksheetFunction.Transpose(Range(Cells(i, 2), Cells(i, n)))
   
9.         J = J + n
   
10.     Next
    
11. End Sub

复制代码

砂野天弥

zzj198237 发表于 2020-3-9 22:28

不是，是要元素变成表格 几组元素变成几张表格，然后表格在sheet2中一张一张往下接

renkangjizhen

你想建档案，还是为了打印通知书？如果是前者，那就一人一表格，但是，如果是后者，一表足以！方法如下：1、在sheet2的指定区域中（如：A1:A5），设置好行高列宽比例,设置好打印区域、字体字号，将该区域设置为一页高一页宽。2、插入模块，设置代码 3、运行代码，打印通知书。
代码如下

renkangjizhen

代码在附件中，请根据实际情况调整

zmj9151

看这模拟的数据就头疼,不好猜