用VBA数组字典实现多条件查找 - 天涯海角路

相关文章推荐

大鼻子的煎鸡蛋 · 手机兼容适配性说明（不兼容机型列表/兼容机型 ...· 2 月前 ·

打篮球的汽水 · 巴诺书店_百度百科· 3 月前 ·

喝醉的青椒 · MBA Programs - NYU Stern· 4 月前 ·

独立的黑框眼镜 · The Guest House at ...· 4 月前 ·

气宇轩昂的香烟 · 《地球最後的夜晚》60分鐘3D一鏡到底多難拍 ...· 4 月前 ·

Set d = CreateObject("Scripting.Dictionary") arr = [A1].CurrentRegion brr = [A11].CurrentRegion For i = 2 To UBound(arr) d(arr(i, 1) & arr(i, 2)) = i For j = 2 To UBound(brr) If d.Exists(brr(j, 1) & brr(j, 2)) Then m = d(brr(j, 1) & brr(j, 2)) brr(j, 3) = arr(m, 3) brr(j, 4) = arr(m, 4) End If [A11].Resize(UBound(brr), 4) = brr End Sub

推荐文章

大鼻子的煎鸡蛋 · 手机兼容适配性说明（不兼容机型列表/兼容机型列表/手机最低配置 ...

2 月前

打篮球的汽水 · 巴诺书店_百度百科

3 月前

喝醉的青椒 · MBA Programs - NYU Stern

4 月前

独立的黑框眼镜 · The Guest House at Graceland | Luxury Elvis Hotel in Memphis, TN

4 月前

气宇轩昂的香烟 · 《地球最後的夜晚》60分鐘3D一鏡到底多難拍？畢贛拍出如煙花般 ...

4 月前