[已解决]对比A列和B列，如相同则在C列=E列

star181149

小弟刚接触VBA想解决如下问题
如果（1,1）=（1,2），则（1,3）+（1,4） 或则（1,1）=(1+i,2）则（1,3）=（1+i，4）
循环对比，求解决！
求大神指导！

最佳答案

月排行榜 / 总排行榜

hoogle

2013-4-27 16:22

1. Sub hoogle()
   
2. Sheets("zjd").Select
   
3. Dim i, j
   
4. For i = 1 To Range("b65536").End(3).Row
   
5.     For j = 1 To Range("c65536").End(3).Row
   
6.         If Cells(i, "b") = Cells(j, "c") Then
   
7.             Cells(i, "d") = Cells(j, "g")
   
8.             Exit For
   
9.         End If
   
10.     Next
    
11. Next
    
12. End Sub

复制代码

这个代码运行时间长点。

跳转到最佳答案楼层

hoogle

给你举个小例子,自己试下
sub hoogle()
if cells(1,1)=cells(1,2) then
    cells(1,3)=cells(1,4)
endif
end sub

star181149

hoogle 发表于 2013-4-27 11:22
给你举个小例子,自己试下
sub hoogle()
if cells(1,1)=cells(1,2) then

Private Sub workbook_open()
  Worksheets("zjd").Activate
  Dim i As Integer
  Dim j As Integer
  i = 1
  j = 1
    Do While i < 2000
      Do While j < 2000
       If Cells(i, 2) = Cells(i, 3) Then
           Cells(i, 4) = Cells(i, 7)
       ElseIf Cells(i, 2) = Cells(i + j, 3) Then
       Cells(i, 4) = Cells(i + j, 7)
       Else: Cells(i, 4).Value = "不匹配"
       End If
       i = i
       j = j + 1
       Loop
     i = i + 1
    Loop
End Sub


求指导！

hoogle

上传数据附件看看              

star181149

hoogle 发表于 2013-4-27 11:35
上传数据附件看看

                                               
请多指教！

hoogle

代码没报错，你想做成什么结果？

star181149

hoogle 发表于 2013-4-27 13:46
代码没报错，你想做成什么结果？

B列和C列中有大部分都是相同的，我需要在D列中返回G列与B列对应的值
如：
   cells(1,B)=蒲秀华   celld(258,c）=蒲秀华 then cells(1,d)=cells(258,G）

hoogle

1. Sub hoogle()
   
2. Sheets("zjd").Select
   
3. Dim i, j
   
4. For i = 1 To Range("b65536").End(3).Row
   
5.     For j = 1 To Range("c65536").End(3).Row
   
6.         If Cells(i, "b") = Cells(j, "c") Then
   
7.             Cells(i, "d") = Cells(j, "g")
   
8.             Exit For
   
9.         End If
   
10.     Next
    
11. Next
    
12. End Sub

复制代码

这个代码运行时间长点。

star181149

hoogle 发表于 2013-4-27 16:22
这个代码运行时间长点。

不胜感激！
谢谢！！！！