[已解决]引用数据至指定单元格

心灵有约

引用数据至指定单元格.zip (7.28 KB, 下载次数: 19)

2016-3-19 11:08 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2016-3-19 11:55

1. Sub Macro1()
   
2. Dim arr, i&
   
3. arr = Sheet2.Range("a1").CurrentRegion
   
4. Sheet1.Activate
   
5. Range("A1:B12").Interior.ColorIndex = xlNone
   
6. For i = 2 To UBound(arr)
   
7.     Set rng = [a:a].Find(arr(i, 1), lookat:=xlWhole)
   
8.     If Not rng Is Nothing Then
   
9.         rng.Offset(, 1) = arr(i, 2)
   
10.         rng.Resize(1, 2).Interior.ColorIndex = 6
    
11.    End If
    
12. Next
    
13. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, i&
   
3. arr = Sheet2.Range("a1").CurrentRegion
   
4. Sheet1.Activate
   
5. Range("A1:B12").Interior.ColorIndex = xlNone
   
6. For i = 2 To UBound(arr)
   
7.     Set rng = [a:a].Find(arr(i, 1), lookat:=xlWhole)
   
8.     If Not rng Is Nothing Then
   
9.         rng.Offset(, 1) = arr(i, 2)
   
10.         rng.Resize(1, 2).Interior.ColorIndex = 6
    
11.    End If
    
12. Next
    
13. End Sub

复制代码

雪舞子

1. Sub test()
   
2.     Dim d As Object, arr, i&, s$
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("待引用表").Range("a1").CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         d(arr(i, 1)) = Array(arr(i, 2), 1)
   
7.     Next
   
8.     For i = 2 To [a1].End(4).Row
   
9.         s = Cells(i, 1)
   
10.         If d.exists(s) And d(s)(1) Then
    
11.             Range(Cells(i, 1), Cells(i, 2)).Interior.ColorIndex = 6
    
12.             Cells(i, 2) = d(s)(0)
    
13.             d(s) = Array(d(s)(0), 0)
    
14.         End If
    
15.     Next
    
16. End Sub

复制代码

引用数据至指定单元格.rar (17.24 KB, 下载次数: 11)

2016-3-19 12:18 上传

点击文件名下载附件