求助，用VBA宏

无声地拥抱

用VBA在数据源表，求出结果表里的黄色区域内容，在结果表的核算项目名称，找到数据源表的核算名称，找单据类型是“收款单”，列出“单据日期”及“已收”的金额

笑着...两年过去

上个附件吧

lsc900707

发了一百多个主题帖了，不会不知道规矩吧？

无声地拥抱

这是附件，忘记了

无声地拥抱

lsc900707 发表于 2018-9-20 15:30
发了一百多个主题帖了，不会不知道规矩吧？

当时，你解决我很多的问题，麻烦，再帮看下。请转到这个链接，题有改了http://club.excelhome.net/thread-1437034-1-1.html

lsc900707

无声地拥抱 发表于 2018-9-22 08:32
当时，你解决我很多的问题，麻烦，再帮看下。请转到这个链接，题有改了http://club.excelhome.net/thread ...

链接出现错误提示，到时看看吧。

无声地拥抱

这是想要的结果表

无声地拥抱

lsc900707 发表于 2018-9-22 08:41
链接出现错误提示，到时看看吧。

想要的结果，我发出来，

无声地拥抱

1. Sub test5()
   
2. Sheet3.Activate
   
3. Sheet4.[d:z].Clear
   
4. 
   
5. Dim arr, brr, d As Object
   
6. Set d = CreateObject("scripting.dictionary")
   
7. 
   
8. arr = [a1].CurrentRegion
   
9. brr = Sheet4.Range("a1:z65536")
   
10.     For i = 2 To UBound(arr)
    
11.         For j = 4 To UBound(arr, 2)
    
12.             If arr(i, 2) = brr(i, 2) And arr(i, j) <> "" Then
    
13.                 m = m + 1
    
14.                 brr(i, m) = arr(1, j)
    
15.               
    
16.               
    
17.                
    
18. 
    
19.             End If
    
20.         Next
    
21.     Next
    
22. Sheet4.[d1].Resize(100, 100) = brr
    
23. Sheet4.Activate
    
24.             
    
25.             
    
26. End Sub

复制代码

无声地拥抱

求关注，求解决