[已解决]我要在查找G列和H列中和C列相同的值，然后将H列返回到D列，请问有什么办法可以实现尽

water458k

我要在查找G列和H列中和C列相同的值，然后将H列返回到D列，请问有什么办法可以实现尽量详细哦？？？

最佳答案

月排行榜 / 总排行榜

happym8888

2012-1-18 15:50

查找G列和H列中和C列相同的值，然后将H列返回到D列.rar (9.69 KB, 下载次数: 10)

2012-1-18 15:49 上传

点击文件名下载附件
看看这样是不是满足你的要求。代码如下：

1. 
   
2. Private Sub CommandButton1_Click()
   
3. arr1 = Range("C1").Resize(Range("C65536").End(xlUp).Row, 2)
   
4. arr2 = Range(Range("g1"), Range("h65536").End(xlUp))
   
5. For i = 1 To Range("c65536").End(xlUp).Row
   
6. For j = 1 To Range("h65536").End(xlUp).Row
   
7. If arr1(i, 1) = arr2(j, 1) Or arr1(i, 1) = arr2(j, 2) Then arr1(i, 2) = arr2(j, 2)
   
8. Next j, i
   
9. Range("C1").Resize(Range("C65536").End(xlUp).Row, 2) = arr1
   
10. End Sub
    
11. 
    
12. 
    

复制代码

跳转到最佳答案楼层

雄鹰

先设置一个单元格，然后再用格式刷刷一下即可。单元格的设置如下：

happym8888

查找G列和H列中和C列相同的值，然后将H列返回到D列.rar (9.69 KB, 下载次数: 10)

2012-1-18 15:49 上传

点击文件名下载附件
看看这样是不是满足你的要求。代码如下：

1. 
   
2. Private Sub CommandButton1_Click()
   
3. arr1 = Range("C1").Resize(Range("C65536").End(xlUp).Row, 2)
   
4. arr2 = Range(Range("g1"), Range("h65536").End(xlUp))
   
5. For i = 1 To Range("c65536").End(xlUp).Row
   
6. For j = 1 To Range("h65536").End(xlUp).Row
   
7. If arr1(i, 1) = arr2(j, 1) Or arr1(i, 1) = arr2(j, 2) Then arr1(i, 2) = arr2(j, 2)
   
8. Next j, i
   
9. Range("C1").Resize(Range("C65536").End(xlUp).Row, 2) = arr1
   
10. End Sub
    
11. 
    
12. 
    

复制代码

hytsky

看帖回帖是一种美德，虽然不懂也要顶个···{:101:}