各位大神，帮帮我怎么自动生成数据表

哦滴个神啊

各位大神，帮帮我怎么自动生成数据表，要求在附件表里写了，谢谢大家了

鄂龙蒙

自动生成什么数据表？？？

哦滴个神啊

根据开票信息表，自动生成发票基本信息表和发票明细信息表

哦滴个神啊

鄂龙蒙 发表于 2024-12-18 15:29
自动生成什么数据表？？？

根据表1数据生成表2和表3数据

sj15627581616

表1与表2 表3 标题数量有差异，表2 表3一些标题 在表1里面不存在，是怎么来的？要么就是空着

哦滴个神啊

sj15627581616 发表于 2024-12-18 15:52
表1与表2 表3 标题数量有差异，表2 表3一些标题 在表1里面不存在，是怎么来的？要么就是空着

表2和表3数据是我没有列出来了，我只是在表2和表3做数据展示结果

sj15627581616

哦滴个神啊 发表于 2024-12-18 15:57
表2和表3数据是我没有列出来了，我只是在表2和表3做数据展示结果

问题是你展示的一些内容 不存在于表1

yanglinzi

没看明白。。。

哦滴个神啊

sj15627581616 发表于 2024-12-18 16:18
问题是你展示的一些内容 不存在于表1

表2和表3已展示的数据，就是想要得到的结果，其他空着的可以不用理会

chxw68

1. Sub test1()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("开票信息")
   
7.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.         arr = .Range("a2:h" & r)
   
9.     End With
   
10.     For i = 1 To UBound(arr)
    
11.         If Not d.exists(arr(i, 1)) Then
    
12.             Set d(arr(i, 1)) = CreateObject("scripting.dictionary")
    
13.         End If
    
14.         d(arr(i, 1))(i) = Empty
    
15.     Next
    
16.     ReDim brr(1 To d.Count, 1 To 29)
    
17.     m = 0
    
18.     For Each aa In d.keys
    
19.         m = m + 1
    
20.         n = d(aa).keys()(0)
    
21.         brr(m, 1) = m
    
22.         brr(m, 2) = "普通发票"
    
23.         brr(m, 4) = "是"
    
24.         
    
25.         brr(m, 6) = arr(n, 3)
    
26.         s = 0
    
27.         For Each bb In d(aa).keys
    
28.             s = s + arr(bb, 6)
    
29.         Next
    
30.         brr(m, 16) = "贸易方式：一般贸易" & vbLf & "币别：美元" & vbLf & "原币金额：" & s & vbLf & "汇率：" & arr(n, 7) & vbLf & "报关编号：" & arr(n, 2) & vbLf & "订单编号：" & arr(n, 1)
    
31.     Next
    
32.     With Worksheets("发票基本信息")
    
33.         .Range("a4").Resize(UBound(brr), UBound(brr, 2)) = brr
    
34.     End With
    
35.         
    
36. End Sub
    

复制代码