请教各位老师，按照日期来对应填入数据

chenhong0973

请教：如何把sheet2 表中的电量、天燃气、水量按照日期（两个表中的日期格式不一样，这个怎么转换？）对应填入到sheet1表中的电消耗量（总）、天然气消耗量（总）、水消耗量（总）中。


如sheet1 表，填入到每天的第一条记录就可以了。，请教各位老师，能否实现这样的功能?

chxw68

两张表的的日期年份不一致，一个是2023年，一个是2024年，这个需要楼主调整一下。

yynrzwh

你sheet2是2023年的数据，sheet1是2024年的，怎么匹配？

ooluckydog

yanglinzi

请测试。。

yanglinzi

1. Sub 匹配()
   
2. Dim arr, brr, i, j, r, d, d1
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Set d1 = CreateObject("scripting.dictionary")
   
5. With Sheet1
   
6.     r = .Cells(Rows.Count, 1).End(xlUp).Row
   
7.     arr = .Range("a1:h" & r)
   
8. End With
   
9. brr = Sheet2.Range("a1").CurrentRegion
   
10. For j = 2 To UBound(brr)
    
11.     d1(brr(j, 1)) = j
    
12. Next
    
13. For i = 3 To UBound(arr)
    
14.     rq = CDate(Split(arr(i, 1), " ")(0))
    
15.     If Not d.exists(rq) Then
    
16.         d(rq) = i
    
17.     End If
    
18. Next
    
19. With Sheet1
    
20.     For Each k In d.keys
    
21.         .Cells(d(k), "f") = brr(d1(k), 5)
    
22.         .Cells(d(k), "g") = brr(d1(k), 6)
    
23.         .Cells(d(k), "h") = brr(d1(k), 7)
    
24.     Next
    
25. End With
    
26. End Sub
    

复制代码