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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
Dim arr, brr
Dim i&, j&
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
Next
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
Next
[A11].Resize(UBound(brr), 4) = brr
End Sub

  

posted @   天涯海角路  阅读(1898)  评论(0编辑  收藏  举报
编辑推荐:
· Java 中堆内存和栈内存上的数据分布和特点
· 开发中对象命名的一点思考
· .NET Core内存结构体系(Windows环境)底层原理浅谈
· C# 深度学习:对抗生成网络(GAN)训练头像生成模型
· .NET 适配 HarmonyOS 进展
阅读排行:
· 手把手教你更优雅的享受 DeepSeek
· AI工具推荐:领先的开源 AI 代码助手——Continue
· 探秘Transformer系列之(2)---总体架构
· V-Control:一个基于 .NET MAUI 的开箱即用的UI组件库
· 乌龟冬眠箱湿度监控系统和AI辅助建议功能的实现
点击右上角即可分享
微信分享提示