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

相关文章推荐

近视的卡布奇诺 · 阿玛柯德_百度百科· 2 月前 ·

豁达的肉夹馍 · 这几类血压仪，不推荐在家使用_新闻频道_央视 ...· 2 月前 ·

博学的鸵鸟 · 通往巴黎2024之路：花样游泳奥运资格体系详解· 6 月前 ·

淡定的斑马 · 李学凌发迹史：IT记者出身，20年创业史见证 ...· 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

推荐文章

近视的卡布奇诺 · 阿玛柯德_百度百科

2 月前

豁达的肉夹馍 · 这几类血压仪，不推荐在家使用_新闻频道_央视网(cctv.com)

2 月前

博学的鸵鸟 · 通往巴黎2024之路：花样游泳奥运资格体系详解

6 月前

淡定的斑马 · 李学凌发迹史：IT记者出身，20年创业史见证中国互联网版图变迁|yy ...

1 年前

完美的消炎药 · （受权发布）习近平：在科学家座谈会上的讲话-新华网

1 年前