用VBA数组字典实现多条件查找

相关文章推荐

热情的登山鞋 · 共享经济告别“野蛮生长”_中央网络安全和信息 ...· 6 月前 ·

温柔的小蝌蚪 · sana合集，地下偶像有声版【哥布林巢穴吧】 ...· 1 年前 ·

帅气的小摩托 · 朱小丹在广州会见日本爱知县知事大村秀章广 ...· 1 年前 ·

骑白马的硬币 · 《画江湖之不良人》导演五百：国产武侠变难看， ...· 1 年前 ·

千杯不醉的甘蔗 · 《过往》影评：真相存在于时空某一处-搜狐娱乐· 1 年前 ·

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

推荐文章

热情的登山鞋 · 共享经济告别“野蛮生长”_中央网络安全和信息化委员会办公室

6 月前

温柔的小蝌蚪 · sana合集，地下偶像有声版【哥布林巢穴吧】_百度贴吧

1 年前

帅气的小摩托 · 朱小丹在广州会见日本爱知县知事大村秀章广东省人民政府门户网站

1 年前

骑白马的硬币 · 《画江湖之不良人》导演五百：国产武侠变难看，都是抗日神剧闹得 - 知乎

1 年前

千杯不醉的甘蔗 · 《过往》影评：真相存在于时空某一处-搜狐娱乐

1 年前