新人求助匹配VB怎么写

zzb8609

根据表运行结果-7.6中 物理地址/密码（先根据密码匹配。密码为空时根据物理地址匹配） 项去匹配文件中 明细的 开通时间，最后离线时间，最后离线时长，最后上线时间 4项
运行结果-7.6：

详细：

老骥705664849

Sub pipei()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ar = Sheet1.[a1].CurrentRegion
For i = 2 To UBound(ar)
    If Trim(ar(i, 5)) <> "" Then
        d(Trim(ar(i, 5))) = i
    ElseIf Trim(ar(i, 4)) <> "" And Trim(ar(i, 5)) = "" Then
        d(Trim(ar(i, 4))) = i
    End If
Next i
f = Dir(ThisWorkbook.Path & "\数据\明细.csv")
Set wb = Workbooks.Open(ThisWorkbook.Path & "\数据\" & f, 0)
br = wb.Worksheets(1).[a1].CurrentRegion
For i = 2 To UBound(br)
    If Trim(br(i, 8)) <> "" Then
        m = d(Trim(br(i, 8)))
    ElseIf Trim(br(i, 7)) <> "" And Trim(br(i, 8)) = "" Then
        m = d(Trim(br(i, 7)))
    End If
    If m <> "" Then
       ar(m, 11) = br(i, 10)
       ar(m, 12) = br(i, 12)
       ar(m, 13) = br(i, 13)
       ar(m, 14) = br(i, 14)
    End If
Next i
wb.Close False
Sheet1.[a1].CurrentRegion = ar
End Sub

老骥705664849

一个字典匹配的问题，无非就是增加一个判断而已了，自己测试看看呗

zzb8609

老骥705664849 发表于 2020-7-6 10:54
一个字典匹配的问题，无非就是增加一个判断而已了，自己测试看看呗

谢谢大哥赐教，可以实现，我研究下写法