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

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

豁达的板栗 · 女友参加的这个摄影部，好像不是特别正经啊【番 ...· 9 月前 ·

英勇无比的红酒 · 你说短暂的陪伴是奖励还是惩罚_你说短暂的陪伴 ...· 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

推荐文章

豁达的板栗 · 女友参加的这个摄影部，好像不是特别正经啊【番剧故事】 - 知乎

9 月前

英勇无比的红酒 · 你说短暂的陪伴是奖励还是惩罚_你说短暂的陪伴是奖励还是惩罚呢_陪伴很短暂 - 抖音

1 年前

独立的椰子 · 剧场版先导——《名侦探柯南：绯色的不在场证明》_赤井

1 年前

活泼的小熊猫 · 极星汽车，尴尬得一手好牌打了“稀巴烂” - OFweek新能源汽车网

1 年前