请教老师，数据在两个表格中，想一起计算，谢谢！

cartel

请教老师，数据在两个表格中，想一起计算，谢谢！.zip (28.59 KB, 下载次数: 20)

2023-12-31 20:13 上传

点击文件名下载附件

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2023.12.31
   
2.     Dim arr, brr
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     Set sh = ThisWorkbook.Sheets("Sheet2")
   
6.     With Sheet1
   
7.         r = .Cells(Rows.Count, 4).End(3).Row
   
8.         arr = .Range("D1:e" & r)
   
9.     End With
   
10.     For i = 1 To UBound(arr)
    
11.         d(CStr(arr(i, 2))) = arr(i, 1)
    
12.     Next i
    
13.     b = Split(Sheet2.[DG6], ",")
    
14.     ReDim brr(1 To UBound(b) + 1, 1 To 2)
    
15.     For i = 0 To UBound(b)
    
16.         m = m + 1
    
17.         brr(m, 1) = d(b(i))
    
18.         brr(m, 2) = b(i)
    
19.     Next i
    
20.     With sh
    
21.         .Columns("DL:DP").Clear
    
22.         .[DL1].Resize(UBound(brr), 2) = brr
    
23.     End With
    
24.     Set d = Nothing
    
25.     Application.ScreenUpdating = True
    
26.     Beep
    
27. End Sub
    
28. 
    

复制代码

ykcbf1100

附件供参考。。。

gwjkkkkk

参与一下。。。