[已解决]表1图片批量导入到表2中

yjr3032570

如何将表1图片按相同款号批量导入到表2中，请高手指教，谢谢

最佳答案

月排行榜 / 总排行榜

dsmch

2016-4-9 12:31

1. Sub Macro1()
   
2. Dim arr, brr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Sheet2.Activate
   
5. ActiveSheet.DrawingObjects.Delete
   
6. arr = Sheet1.Range("a1").CurrentRegion
   
7. brr = Range("a1").CurrentRegion
   
8. For i = 2 To UBound(arr)
   
9.     d(arr(i, 1)) = i
   
10. Next
    
11. For i = 2 To UBound(brr)
    
12.    Sheet1.Cells(d(brr(i, 1)), 2).Copy Cells(i, 2)
    
13. Next
    
14. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Sheet2.Activate
   
5. ActiveSheet.DrawingObjects.Delete
   
6. arr = Sheet1.Range("a1").CurrentRegion
   
7. brr = Range("a1").CurrentRegion
   
8. For i = 2 To UBound(arr)
   
9.     d(arr(i, 1)) = i
   
10. Next
    
11. For i = 2 To UBound(brr)
    
12.    Sheet1.Cells(d(brr(i, 1)), 2).Copy Cells(i, 2)
    
13. Next
    
14. End Sub

复制代码

yjr3032570

dsmch 发表于 2016-4-9 12:31

不错，高手，谢谢