核对2表并提取指定列数据

AFree123

核对2表并提取指定列数据

将表“sheet1” C列与 表“2018” B列的数据进行比较。

相同，则提取 表“2018” A列的数据到与 表“2018” I列对应行的单元格内。

不同，无需操作。

表“sheet1”有效数据从第2行开始。

表“2018”有效数据从第11行开始。  

两表数据很多，本例仅为部分示例。

菜鸟刚学vba，已有代码。

Sub 核对DM()
    Dim d1, arr
    t = Timer
    Set d1 = CreateObject("Scripting.Dictionary")
    arr = Sheet5.Range("A11").CurrentRegion
   
    For i = 11 To UBound(arr)
        d1("" & arr(i, 2)) = arr(i, 1)  
    Next

    With Sheet1
        For i = 3 To .[C65536].End(3).Row
            If d1.exists(.Cells(i, 3).Value) Then
                .Cells(i, 9) = d1("" & .Cells(i, 3).Value)
            Else
                .Cells(i, 9) = ""
            End If
        Next
    End With
MsgBox "一共用时：" & Format(Timer - t, "#0.0000") & " 秒", , "ABC提示您!!"
End Sub

请教大师：为何我的代码不能正确获得结果。

在比对时会遗失表“2018”有效数据的前3行数据。

该如何修改？使之能有正确的答案。

或者重新写个代码也可以。

谢谢！

microyip

1. arr = Sheet5.Range("A11").CurrentRegion

复制代码

表示与Sheet5的A11相连续的单元格数据区域，亦即A5:G82，而不是A1:G82，所以数组有效数据计算行是8而不是11，下面的循环起始就变成错的啦

1. For i = 11 To UBound(arr)

复制代码

AFree123

microyip 发表于 2018-8-29 08:08
表示与Sheet5的A11相连续的单元格数据区域，亦即A5:G82，而不是A1:G82，所以数组有效数据计算行是8而不是 ...

谢谢老师！
理解这些有些费劲
除此之外，还有没有其他的表达方式进行数组定义
或者说更直观、更好理解的数组定义

microyip

1. arr=Sheet5.UsedRange.Value

复制代码

Sheet5所有被使用过的单元格的区域，这样你的循环就不用改了

AFree123

microyip 发表于 2018-8-29 08:26
Sheet5所有被使用过的单元格的区域，这样你的循环就不用改了

谢谢老师的帮助！