[已解决]vba程序急！！！！！！！！！！！！！！

3477

vba程序急！！！！！！！！！！！！！！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-9-23 16:57

表1表2数据引用.rar (22.84 KB, 下载次数: 15)

2012-9-23 16:57 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

1. Sub s1()
   
2.     Dim arr1, arr2
   
3.     Dim dicJHY As Object, dicBJ As Object
   
4.     Application.ScreenUpdating = False
   
5.     Set dicJHY = CreateObject("scripting.dictionary")
   
6.     Set dicBJ = CreateObject("scripting.dictionary")
   
7.     Worksheets("2").Select
   
8.     arr2 = Range("a2:c" & [a2].End(xlDown).Row).Value
   
9.     Set dic = CreateObject("scripting.dictionary")
   
10.     Worksheets("1").Activate
    
11.     arr1 = Range("A2:E" & [a2].End(xlDown).Row).Value
    
12. 
    
13.     For i = 1 To UBound(arr2)
    
14.         dicJHY.Add arr2(i, 1), arr2(i, 2)
    
15.         dicBJ.Add arr2(i, 1), arr2(i, 3)
    
16.     Next
    
17.    
    
18.     For i = 1 To UBound(arr1)
    
19.         arr1(i, 5) = dicBJ(arr1(i, 1))
    
20.         If arr1(i, 5) <> "" Then
    
21.             arr1(i, 4) = arr1(i, 5)
    
22.         End If
    
23.     Next
    
24.     Range("a2").Resize(UBound(arr1), UBound(arr1, 2)).Value = arr1
    
25. End Sub

复制代码

你的E列数据是不是自己算得有误啊。结果不一样嘛。

hwc2ycy

表1表2数据引用.rar (22.84 KB, 下载次数: 15)

2012-9-23 16:57 上传

点击文件名下载附件