[求助][VBA]DO While两重如何操作？

zyl_10

大家好，我是Excel VBA的初学者，我根据自己的工作需求准备编写一个小程序改善工作效率，但是遇到一个问题，不知道怎么解决了，具体如下
● 背景
- 我有两个格式差不多的工作表，需要核对两个工作表的差异
- 核对的条件: 通过两个工作表中A和B列判断是否一样，然后把工作表1中C列的结果写入工作表2的C列
● 程序
Sub SJHE()      
    Dim sht_1, sht_2 As Worksheet         
    Set sht_1 = bok.Worksheets("工作表1")         
    Set sht_2 = bok.Worksheets("工作表2")     
    Dim a, b As Integer         
    a = 3         
    b = 3         
    Dim rng1_1, rng1_2, rng1_3 As Range            
    Set rng1_1 = sht_1.Cells(a, "A")            
    Set rng1_2 = sht_1.Cells(a, "B")            
    Set rng1_3 = sht_1.Cells(a, "C")   
    Dim rng2_1, rng2_2, rng2_3 As Range            
    Set rng5_1 = sht_2.Cells(b, "A")               
    Set rng5_2 = sht_2.Cells(b, "B")            
    Set rng5_3 = sht_2.Cells(b, "C")            
    Do While sht_2.Cells(b, "A") <> ""            
        Do While sht_1.Cells(a, "A") <> ""                        
            If rng1_1 = rng2_1 And rng1_2 = rng5 2_2 Then                        
                rng1_3 = rng2_3                     
            End If                 
            a = a + 1            
        Loop                  
        b = b + 1         
    Loop
End Sub
请各位大神帮忙看一下需要怎么改正？我自己实在是没看出来要怎么修正，谢谢！

lss001

Sub SJHE()      
    x= Cells(Rows.Count, 1).End.(xlUP).Row'把第a列最后一个单元格地址赋给x
    ReDim cr(1To x - 2,1 To 1)'声明数组cr
    ar = Sheet1.range("a3:c" & x)'把Sheet1表格a列第3行至c列第x行赋给数组ar
    br = Sheet2.range("a3:c" & x)'把Sheet2表格a列第3行至c列第x行赋给数组br
    For i = 1 To x - 2'建立循环
           If ar(i ,1) = br(i , 1) And ar(i , 2) = br(i , 2) Then cr(i , 1) = ar(i , 3)'循环判断数组ar与br是否相同,如果相同把ar(i, 3)赋给数组cr(i , 1)
     Next'结束循环
     Sheet2.[c3].Resize(x-2, 1)= cr'把数组cr写入Sheet2以c3开始的单元格
End Sub

zyl_10

lss001 发表于 2017-5-20 18:43
Sub SJHE()      
    x= [a1].End.Row
    ReDim cr(1To x - 2,1 To 1)

这个代码没接触过，能详细的解释说明吗？我刚才试了试这段代码提示问题挺多的

lss001

zyl_10 发表于 2017-5-22 13:18
这个代码没接触过，能详细的解释说明吗？我刚才试了试这段代码提示问题挺多的

上楼每行代码做了简要说明

zyl_10

lss001 发表于 2017-5-22 14:20
上楼每行代码做了简要说明

谢谢，还没开始学习数组，所以理解起来有困难～我参照你给我的程序，操作试了试，提示
"运行错误'9':下标越界"，点击调试后光标定位在cr(i,1) = ar(i,3),这个是什么原因造成的呢？

lss001

zyl_10 发表于 2017-5-22 15:37
谢谢，还没开始学习数组，所以理解起来有困难～我参照你给我的程序，操作试了试，提示
"运行错误'9':下 ...

ar = Sheet1.range("a3:b" & x)把此句改为
ar = Sheet1.range("a3:c" & x)即把b改为c