主表导入副表

宝玉66

老师，如果我在主表每一次录入完数据，想自动导入副表当中，代码该如何编写，详情请看附件，谢谢。

LMY123

同薄单表，标题行相同，数据自动复制

http://club.excelhome.net/thread-1366576-1-1.html

宝玉66

LMY123 发表于 2018-7-12 10:24
同薄单表，标题行相同，数据自动复制

http://club.excelhome.net/thread-1366576-1-1.html

老师，我想在一个表格内主表数据导入副表当中，不是多表格汇总，请帮忙在看一下，因为刚接触VBA有些东西还不懂，请多帮助，谢谢。

宝玉66

请求老师帮忙解决一下吧，谢谢。

LMY123

宝玉66 发表于 2018-7-12 13:01
请求老师帮忙解决一下吧，谢谢。

1. Sub lqxs()
   
2. Dim Arr, i&, Brr, Crr
   
3. Dim d, c%
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Sheet3.Activate
   
6. [a2:Ab5000] = ""
   
7. Arr = [a1].CurrentRegion
   
8. For i = 1 To UBound(Arr, 2)
   
9.     d(Arr(1, i)) = i
   
10. Next
    
11. Brr = Sheet2.[a1].CurrentRegion
    
12. Crr = Sheet2.[a2].Resize(UBound(Brr) - 1, UBound(Brr, 2))
    
13. For i = 1 To UBound(Brr, 2)
    
14.     If d.exists(Brr(1, i)) Then
    
15.         c = d(Brr(1, i))
    
16.         Cells(2, c).Resize(UBound(Crr), 1) = Application.Index(Crr, 0, i)
    
17.     End If
    
18. Next
    
19. End Sub

复制代码

宝玉66

LMY123 发表于 2018-7-12 16:10

老师，太感谢您了。