将不同工作表中的sheet数据对应V到另一个表中的指定位置

潇潇525222

各位大神，我是负责日常部门报表的汇总输出的，每次都要等到其他人把日报给我之后我进行vlookup一一填写到对应位置，并进行累计，目前想通过VBA实现以上功能。附件是经过简化的，实际需填写的指标有30个以上，每天重复工作，很浪费时间。                                                                希望大神们帮忙，小妹不胜感激！
数据源： ，其中AC表对应揽收达成，BB表对应妥投达成。
最终要实现的结果；

需注意的问题：
1、如果有的数据没有，比如服务达成暂无对应表，仍能确保程序正常进行；2、数据对应日，月，年，周，需要对应填写。

liulang0808

欢迎新朋友
在楼主用于匹配的关键字没有重复的条件下，可以考虑使用字典
http://club.excelhome.net/thread-1385473-1-1.html 字典的一些案例，楼主可以参考的

日报文件的四张表，其中关键字部分如果顺序一致，建议考虑将这部分添加到字典里

潇潇525222

liulang0808 发表于 2019-12-19 18:25
欢迎新朋友
在楼主用于匹配的关键字没有重复的条件下，可以考虑使用字典
http://club.excelhome.net/thre ...

大神，小白一只，能不能给写个代码

EXCELLMY

潇潇525222 发表于 2019-12-19 19:12
大神，小白一只，能不能给写个代码

的确是小白，只有一天的数据，要合并汇总周，月，年的

liulang0808

1. Sub 按钮1_Click()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Application.ScreenUpdating = False
   
4.     arr = ActiveSheet.UsedRange
   
5.     For j = 2 To UBound(arr)
   
6.         d(arr(j, 3)) = j
   
7.     Next j
   
8.     If Dir(ThisWorkbook.Path & "\BB.xlsx") <> "" Then
   
9.         With Workbooks.Open(ThisWorkbook.Path & "\BB.xlsx")
   
10.             brr = .Sheets(1).UsedRange
    
11.             For j = 3 To UBound(brr)
    
12.                 If d.exists(brr(j, 1)) Then
    
13.                     r = d(brr(j, 1))
    
14.                     For i = 1 To 4
    
15.                         ThisWorkbook.Sheets(i).Cells(r, 6) = brr(j, i + 1)
    
16.                     Next i
    
17.                 End If
    
18.             Next j
    
19.             .Close False
    
20.         End With
    
21.     End If
    
22.     Application.ScreenUpdating = True
    
23. End Sub
    

复制代码

liulang0808

模拟了一个，数据逻辑对应关系，楼主检查下吧

潇潇525222

liulang0808 发表于 2019-12-20 07:51
模拟了一个，数据逻辑对应关系，楼主检查下吧

感谢大神，数据逻辑没问题，我好好研究研究