将多行数据批量生成一户一表，谢谢。

zgyn

    如何将多行数据批量输出到一户一表上，请大神帮忙，谢谢。具体见附件。

    用INDEX数组公式能只能查询后生成一户打印一户，无法批量生成，请大神帮忙解答，谢谢。

cjc209

这个以前都发过 又来了 什么意思?

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("sheet1")
   
7.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.         arr = .Range("a2:h" & r)
   
9.         For i = 1 To UBound(arr)
   
10.             If Not d.exists(arr(i, 3)) Then
    
11.                 Set d(arr(i, 3)) = CreateObject("scripting.dictionary")
    
12.             End If
    
13.             d(arr(i, 3))(i) = Empty
    
14.         Next
    
15.     End With
    
16.     With Worksheets("模板")
    
17.         For Each aa In d.Keys
    
18.             .Range("b2,d2,b4:f5") = Empty
    
19.             ReDim brr(1 To 5, 1 To 6)
    
20.             m = 0
    
21.             For Each bb In d(aa).Keys
    
22.                 m = m + 1
    
23.                 If m = 1 Then
    
24.                     xz = arr(bb, 2)
    
25.                     hz = arr(bb, 3)
    
26.                 End If
    
27.                 brr(m, 1) = m
    
28.                 For j = 4 To 8
    
29.                     brr(m, j - 2) = arr(bb, j)
    
30.                 Next
    
31.             Next
    
32.             .Range("b2") = xz
    
33.             .Range("d2") = hz
    
34.             .Range("a4").Resize(UBound(brr), UBound(brr, 2)) = brr
    
35.             On Error Resume Next
    
36.             Worksheets(hz).Delete
    
37.             On Error GoTo 0
    
38.             .Copy after:=Worksheets(Worksheets.Count)
    
39.             ActiveSheet.Name = hz
    
40.             
    
41.         Next
    
42.     End With
    
43. End Sub
    

复制代码

chxw68

详见附件。

zgyn

cjc209 发表于 2023-4-12 17:53
这个以前都发过 又来了 什么意思?

原来那个是希望导出文本，实在实现不了，希望能导出表格，估计这个要更容易点。

zgyn

chxw68 发表于 2023-4-12 17:56
详见附件。

感谢老师又帮我解答，

zgyn

chxw68 发表于 2023-4-12 17:56
详见附件。

老师，能不能让它生成一户一个文档？

gwjkkkkk

zgyn 发表于 2023-4-12 21:55
老师，能不能让它生成一户一个文档？

请参考。。。

不规则结构

做到了一户一表。众所周知的原因，没有自动扩展，没有美化。。。  。

不规则结构

这是最终效果。但因为众所周知的原因（坊间传说，eh已沦为白嫖圣地），某些地方特意忽略