数据一一对应

朱付安

以文件夹里的库存结转价文档的A列为基准，使的原料测算表格B列的原料名称整个行一一对应，并将H列和K列的内容一一复制到库存结转价表格里，如何实现谢谢老师，希望的效果见图片

lsc900707

了解字典+数组的用法！

朱付安

lsc900707 发表于 2024-8-21 05:44
了解字典+数组的用法！

老师，没有用过字典

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=b73ad3d6
可以参考下相关案例

ykcbf1100

看楼主发了这么多求助帖，没见楼主送过花呢。

朱付安

ykcbf1100 发表于 2024-8-21 09:55
看楼主发了这么多求助帖，没见楼主送过花呢。

鲜花已经送达，谢谢老师

ykcbf1100

朱付安 发表于 2024-8-21 14:27
鲜花已经送达，谢谢老师

你送给帮助你的人就行了。
人么，要心怀感恩之心，这样，以后帮助你的人才会多起来。

ykcbf1100

朱付安 发表于 2024-8-21 14:27
鲜花已经送达，谢谢老师

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.21
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Application.FileDialog(msoFileDialogFilePicker)
   
5.         .InitialFileName = ThisWorkbook.Path & ""
   
6.         .Title = "请选择对应Excel文件"
   
7.         .AllowMultiSelect = False
   
8.         .Filters.Clear
   
9.         .Filters.Add "Excel文件", "*.xls*"
   
10.         If .Show Then f = .SelectedItems(1) Else Exit Sub
    
11.     End With
    
12.     Set wb = Workbooks.Open(f, 0)
    
13.     arr = wb.Sheets("原料测算分析表").UsedRange.Value
    
14.     wb.Close 0
    
15.     For i = 6 To UBound(arr)
    
16.         s = arr(i, 2)
    
17.         If s <> Empty Then
    
18.             d(s) = Array(arr(i, 8), arr(i, 11))
    
19.         End If
    
20.     Next
    
21.     With Sheets("库存结转价")
    
22.         r = .Cells(Rows.Count, 1).End(3).Row
    
23.         arr = .[a1].Resize(r, 7)
    
24.         For i = 2 To UBound(arr)
    
25.             s = arr(i, 1)
    
26.             If d.exists(s) Then
    
27.                 arr(i, 6) = d(s)(0)
    
28.                 arr(i, 7) = d(s)(1)
    
29.             End If
    
30.         Next
    
31.         .[a1].Resize(r, 7) = arr
    
32.         .[a1].Resize(r, 7).Borders.LineStyle = 1
    
33.     End With
    
34.     Set d = Nothing
    
35.     Application.ScreenUpdating = True
    
36.     MsgBox "OK！"
    
37. End Sub
    
38. 
    

复制代码

朱付安

ykcbf1100 发表于 2024-8-21 14:46
附件供参考。。。

谢了老师，在工作中使用了VBA，确实节省了不少时间