arr = .Cells(4, 5).Resize(.Cells(.Rows.Count, 5).End(3).Row - 3) '匹配查找值
For n = 1 To UBound(arr)
If d.exists(arr(n, 1)) And Len(arr(n, 1)) > 0 Then arr(n, 1) = d(arr(n, 1)) Else arr(n, 1) = ""
Next
.Cells(4, 21).Resize(UBound(arr)) = arr '粘贴数据
brr = .Cells(4, 5).Resize(.Cells(.Rows.Count, 5).End(3).Row - 3) '匹配查找值
For n = 1 To UBound(brr)
If d1.exists(brr(n, 1)) And Len(brr(n, 1)) > 0 Then brr(n, 1) = d2(brr(n, 1)) Else brr(n, 1) = ""
Next
.Cells(4, 22).Resize(UBound(brr)) = brr '粘贴数据
Crr = .Cells(4, 5).Resize(.Cells(.Rows.Count, 5).End(3).Row - 3) '匹配查找值
For n = 1 To UBound(Crr)
If d2.exists(Crr(n, 1)) And Len(Crr(n, 1)) > 0 Then Crr(n, 1) = d2(Crr(n, 1)) Else Crr(n, 1) = ""
Next
.Cells(4, 21).Resize(UBound(Crr)) = Crr '粘贴数据
Drr = .Cells(4, 5).Resize(.Cells(.Rows.Count, 5).End(3).Row - 3) '匹配查找值
For n = 1 To UBound(Drr)
If d3.exists(Drr(n, 1)) And Len(Drr(n, 1)) > 0 Then Drr(n, 1) = d3(Drr(n, 1)) Else Drr(n, 1) = "" 按照名称找不到对应的数据就留空,,后面也不写入到单元个内
Next
.Cells(4, 22).Resize(UBound(Drr)) = Drr '粘贴数据 只粘贴对应名称找到的数据到对应的单元格,没有找到的不改变单元格的值 |