|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Option Explicit
Sub test()
Dim arr, i, dic
Set dic = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
For i = 1 To UBound(arr, 1)
If Not dic.exists(arr(i, 1)) And Len(arr(i, 2)) > 0 Then dic(arr(i, 1)) = arr(i, 2)
Next
arr = Range("d2:e" & Cells(Rows.Count, "d").End(xlUp).Row)
For i = 1 To UBound(arr, 1)
arr(i, 2) = IIf(dic.exists(arr(i, 1)), dic(arr(i, 1)), vbNullString)
Next
[d2].Resize(UBound(arr, 1), 2) = arr
End Sub |
评分
-
1
查看全部评分
-
|