相关文章推荐
会搭讪的跑步鞋  ·  《中国好声音》张玮想和亚当·兰伯特炒CP,《 ...·  11 月前    · 
干练的小刀  ·  2019年我用过和正在用的数码产品_电脑外设 ...·  11 月前    · 
含蓄的高山  ·  朝梵高名画泼番茄汤,冲莫奈作品倒土豆泥,这群 ...·  1 年前    · 
逼格高的自行车  ·  济南政府网_济南市人民政府门户网站 ...·  1 年前    · 
想出家的萝卜  ·  同比增31% ...·  1 年前    · 
Code  ›  在VBA中找出两个数组的交集(不使用Excel)
vba vba数组 vba字典 rdd
https://www.volcengine.com/theme/6789152-Z-7-1
要出家的小熊猫
1 年前
最新活动
产品
解决方案
定价
生态与合作
支持与服务
开发者
了解我们
文档 备案 控制台
登录 立即注册
火山引擎首页
全站搜索
Z
在VBA中找出两个数组的交集(不使用Excel)

在VBA中找出两个数组的交集(不使用Excel)

我们可以使用Dictionary对象来查找两个VBA数组的交集。

以下是代码示例:

Sub FindIntersection()
    Dim arr1() As Integer
    Dim arr2() As Integer
    Dim dict As Object
    Dim element As Variant
    Dim commonElements() As Integer
    Dim i As Integer
    '初始化两个数组'
    arr1 = Array(1, 2, 3, 4, 5)
    arr2 = Array(3, 4, 5, 6, 7)
    '初始化字典对象'
    Set dict = CreateObject("Scripting.Dictionary")
    '将元素添加到字典中'
    For i = LBound(arr1) To UBound(arr1)
        dict(arr1(i)) = True
    Next i
    '寻找两个数组的交集'
    For i = LBound(arr2) To UBound(arr2)
        If dict.Exists(arr2(i)) Then
            ReDim Preserve commonElements(UBound(commonElements) + 1)
            commonElements(UBound(commonElements)) = arr2(i)
        End If
    Next i
    '输出交集元素'
    For Each element In commonElements
        Debug.Print element
    Next element
End Sub

在此示例中,我们创建了两个数组arr1和arr2,然后使用Scripting.Dictionary创建了一个字典对象。接下来,我们将arr1数组中的元素添加到字典中。然后,我们遍历arr2数组,并检查元素是否存在于字典中。如果是,则将该元素添加到commonElements数组中。最后,我们打印出所有的交集元素。

此方法可应用于任意类型的VBA数组。

本文内容通过AI工具匹配关键字智能整合而成,仅供参考,火山引擎不对内容的真实、准确或完整作任何形式的承诺。如有任何问题或意见,您可以通过联系 service@volcengine.com 进行反馈,火山引擎收到您的反馈后将及时答复和处理。
展开更多
icon

开发者特惠

面向开发者的云福利中心,ECS 199元/年,域名1元起,助力开发者快速在云上构建应用
ECS 199元/年

社区干货

ClickHouse 在字节跳动广告 DMP& CDP 的应用

确认命 中的 用户数目。在广告精准投放过程中,广告主需要知道当前选定的人群组合中大概会有多少人,用于辅助 判断 投放情况进而确定投放预算。因为是在线业务,一般要求计算的时间不能超过 5 秒。人群画像主要是对广告... 因此可以快速的 找出 对应的用户 id 集合。集合的 交集操作 会转化为 in,并集为 or,补集为 not in 表示。 ![picture.image](https://p3-volc-community-sign.byteimg.com/tos-cn-i-tlddhu82om/d366d26c35444da8b...

技术

干货|日增320TB数据,从ClickHouse迁移至ByConity后,查询性能十分稳定!

早期这套系统部署在ClickHouse集群,一方面,由于业务的高速发展导致数据量日益膨胀,**每日最大新增数据超过320TB,每日新增行数超过2.3万亿条,用户数据维度超过2万 多个 **; 另一方面,用户查询需求更加灵... **●** 紧耦合的架构会导致多租户在共享集群环境相互影响,造成用户查询相互影响 **●** 由于集群上节点的读写在同一个节点完成,导致读写相互影响 **●** 在复杂查询上例如多表Join等 操作的 ...

技术

万字长文,Spark 架构原理和 RDD 算子详解一网打进! | 社区征文

形成内存 中的 分布式数据集,也就是初始RDD;> - Driver会根据程序对RDD的定义的 操作 ,提交 Task 到 Executor;> - Task会对RDD的partition数据执行指定的算子 操作 ,形成新的RDD的partition;## 二、RDD概述### 2.1 ... 是Spark中最基本的数据抽象**,它代表一个不可变、可分区、里面的元素可并行计算的集合。RDD具有数据流模型的特点:自动容错、位置感知性调度和可伸缩性。RDD允许用户在执行 多个 查询时显式地将工作集缓存在内存中,后...

大数据

Lab 6:基于容器服务VKE运行Tensorflow实验

=&rk3s=8031ce6d&x-expires=1711210874&x-signature=ZWU2%2BG23Wb7332SxVBaqxFoKDEM%3D)![picture.image](https://p6-volc-community-sign.byteimg.com/tos-cn-i-tlddhu82om/657340f614a84b5abb8b6a7a971d9cee~tplv-tlddhu82om-image.image?=&rk3s=8031ce6d&x-expires=1711210874&x-signature=CWSlAXZDzh%2FU7fWGgLMLVnHlj%2B0%3D)11. 获取 TensorFlow的ML范例代码,并上传到TOS的TensorFlow目录下。```# TensorFlow and tf...

云原生

特惠活动

2核8G通用型云服务器

100%性能独享,更高内存性能更佳,学习测试、web前端、企业应用首选,每日花费低至0.55元
¥ 199 . 00 / 年 3174.34/年
立即购买

域名注册服务

cn/top/com等热门域名,首年低至1元,邮箱建站必选
¥ 1 . 00 / 首年起 32.00/首年起
立即购买

DCDN国内流量包100G

同时抵扣CDN与DCDN两种流量消耗,加速分发更实惠
¥ 2 . 00 / 年 20.00/年
立即购买

在VBA中找出两个数组的交集(不使用Excel) -优选内容

从ClickHouse到ByteHouse:广告业务 中的 人群预估实践
原因主要有 两个 方面: 快 :特别适用于大宽表的场景,这个是其他引擎所不能比拟的; 架构简单 :适合定制化的开发,甚至去修改整个执行逻辑,确实内部也做了较大的优化改造。 初步尝试 采用明细存储的方式,表有 2 列,分别是 tag_id 和 uid。tag_id 表示标签,uid 是对应的 user_id。对 tag_id 建立了主键,因此可以快速的 找出 对应的 user_id 集合。集合的 交集操作 会转化为 in,并集转换成 or,补集转换成 not in 实现。 举个 A&B 的具体场...
数组 函数
你不能使用这个函数来创建一个空 数组 (为此,使用上面描述的’emptyArray *’函数)。 返回’ Array (T)’类型的结果,其中’T’是传递的参数中最小的公共类型。 arrayConcat 合并 参数中传递的所有数组。 plaintext array... 如果set包含subset中的所有元素。 0, 否则。 特殊的定义 空数组是任何 数组的 子集。 «Null»作为数组中的元素值进行处理。 忽略 两个数组中 的元素值的顺序。 示例SELECT hasAll([], []) 返回1。SELECT hasAll...
ClickHouse 在字节跳动广告 DMP& CDP 的应用
确认命 中的 用户数目。在广告精准投放过程中,广告主需要知道当前选定的人群组合中大概会有多少人,用于辅助 判断 投放情况进而确定投放预算。因为是在线业务,一般要求计算的时间不能超过 5 秒。人群画像主要是对广告... 因此可以快速的 找出 对应的用户 id 集合。集合的 交集操作 会转化为 in,并集为 or,补集为 not in 表示。 ![picture.image](https://p3-volc-community-sign.byteimg.com/tos-cn-i-tlddhu82om/d366d26c35444da8b...
数组 函数
ARRAY _EXCEPT 函数 ARRAY _EXCEPT(KEY1, KEY2) 剔除 两个数组中 的重复元素,并返回被剔除重复元素后的第一个 数组 。 ARRAY _INTERSECT 函数 ARRAY _INTERSECT(KEY1, KEY2) 返回 两个数组的交集 。 ARRAY _JOIN 函数... 返回 两个数组的 并集。 CARDINALITY 函数 CARDINALITY(KEY) 统计数组中元素的个数。 CONCAT 函数 CONCAT(KEY1, KEY2…) 拼接 多个数组 为一个数组。 CONTAINS 函数 CONTAINS(KEY, element) 判断 数组中是否...

在VBA中找出两个数组的交集(不使用Excel) -相关内容

函数概览

在日期和时间中增加或减去指定的时间间隔。 DATE_DIFF 函数 DATE_DIFF(unit, KEY1, KEY2) 计算 两个 日期或时间点之间的差值。 DATE_TRUNC 函数 DATE_TRUNC(unit, KEY) 根据您指定的时间单位截断日期或时间,... 拼接 多个 字符串为一个字符串。 FROM_UTF8 函数 FROM_UTF8(KEY) 将二进制字符串解码为 UTF-8 字符,且使用默认字符 U+FFFD 替换无效字符。 FROM_UTF8(KEY, replace_string) 将二进制字符串解码为 UTF-8 字符,...

来自: 文档

创建私有证书

海淀organizationArray[]是企业名称(O)。研发部organizational_unitArray[]是部门(OU)。测试组postal_codeArray[]是邮编(PostalCode)。100080provinceArray[]是省份(ST)。北京street_addressArray[]否街道(Street)。某某路某某号sanArray[]否备用名称。备用名称表示证书可保护的对象(如域名、IP等),对应证书的SAN字段。www.example.comissuer_idString是上一级CA实例(子CA实例)的ID。您可以调用 ListSubInstances 接口 获取 所有子...

来自: 文档

万字长文,Spark 架构原理和 RDD 算子详解一网打进! | 社区征文

形成内存 中的 分布式数据集,也就是初始RDD;> - Driver会根据程序对RDD的定义的 操作 ,提交 Task 到 Executor;> - Task会对RDD的partition数据执行指定的算子 操作 ,形成新的RDD的partition;## 二、RDD概述### 2.1 ... 是Spark中最基本的数据抽象**,它代表一个不可变、可分区、里面的元素可并行计算的集合。RDD具有数据流模型的特点:自动容错、位置感知性调度和可伸缩性。RDD允许用户在执行 多个 查询时显式地将工作集缓存在内存中,后...

来自: 开发者社区

2核8G通用型云服务器

100%性能独享,更高内存性能更佳,学习测试、web前端、企业应用首选,每日花费低至0.55元
¥ 199 . 00 / 年 3174.34/年
立即购买

域名注册服务

cn/top/com等热门域名,首年低至1元,邮箱建站必选
¥ 1 . 00 / 首年起 32.00/首年起
立即购买

DCDN国内流量包100G

同时抵扣CDN与DCDN两种流量消耗,加速分发更实惠
¥ 2 . 00 / 年 20.00/年
立即购买

Lab 6:基于容器服务VKE运行Tensorflow实验

=&rk3s=8031ce6d&x-expires=1711210874&x-signature=ZWU2%2BG23Wb7332SxVBaqxFoKDEM%3D)![picture.image](https://p6-volc-community-sign.byteimg.com/tos-cn-i-tlddhu82om/657340f614a84b5abb8b6a7a971d9cee~tplv-tlddhu82om-image.image?=&rk3s=8031ce6d&x-expires=1711210874&x-signature=CWSlAXZDzh%2FU7fWGgLMLVnHlj%2B0%3D)11. 获取 TensorFlow的ML范例代码,并上传到TOS的TensorFlow目录下。```# TensorFlow and tf...

来自: 开发者社区

Elasticsearch进阶篇@记kibana执行dsl脚本实战过程 | 社区征文

在80%以上的业务场景中作增删改查游刃有余,但应用于相对复杂的业务场景:多字段自定义更新、自定义reindex、自定义 数组 字段动态添加...```https://www.elastic.co/guide/en/elasticsearch/painless/6.8/painles... #外层 交集 查询GET /yxd179-2021/yd/_search{ "query": { "bool": { "must": [ { "bool": { "should": [ { "match": { ...

来自: 开发者社区

创建子CA

Array[]否备用名称。备用名称表示证书可保护的对象(如域名、IP等),对应证书的SAN字段。Certificate Center CAissuer_idString是上一级CA实例(根CA实例)的ID。您可以调用 ListRootInstances 接口 获取 所有根CA实例的... "certificate": "-----BEGIN CERTIFICATE-----\nMIIDszCCApugAwIBAgIUVOJ82RHcResPAmsbmlq+D54LdHQwDQYJKoZIhvcNAQEN\nBQAweTELMAkGA1UEBhMCQ04xDzANBgNVBAgMBuWMl+S6rDEPMA0GA1UEBwwG5rW3\n5reAMRMwEQYDV...

来自: 文档

查询子CA详情

您可以调用 ListSubInstances 接口 获取 所有子CA实例的ID。pca_sub_MlRaK****请求正文无 响应正文参数名称数据类型参数说明示例ResultObject子CA实例的详情。instance_idString子CA实例的ID。pca_sub_MlRaK****root... 中心0contactObject子CA证书的联系人信息。nameString联系人姓名。张三emailString联系人邮箱。zhangsan@example.comphone_numberString联系人电话。131****1111subjectObject子CA证书的主题信息。countryArray[]国...

来自: 文档

查询根CA详情

您可以调用 ListRootInstances 接口 获取 所有根CA实例的ID。pca_root_aXPEF****响应正文参数名称数据类型参数说明示例ResultObject根CA实例的详情。instance_idString根CA实例的ID。pca_root_aXPEF****root_ca_idSt... 中心0contactObject根CA证书的联系人信息。nameString联系人姓名。张三emailString联系人邮箱。zhangsan@example.comphone_numberString联系人电话。131****1111subjectObject根CA证书的主题信息。countryArray[]国...

来自: 文档

API 详情

获取 当前系统内音频播放设备列表。如果后续设备有变更,你需要重新调用本接口以获得新的设备列表。 返回值包含系统中所有音频播放设备的列表,参看 IDeviceCollection。 EnumerateAudioCaptureDevicescsharp IDevic... 用于标记相互之间通话不衰减的用户组。在同一个 RTC 房间中,如果 多个 用户的标签组之间有 交集 ,那么,他们之间互相通话时,通话不衰减。比如,用户身处 多个 队伍,队伍成员间通话不衰减。那么,可以为每个队伍绑定专属标签...

来自: 文档

特惠活动

2核8G通用型云服务器

100%性能独享,更高内存性能更佳,学习测试、web前端、企业应用首选,每日花费低至0.55元
¥ 199 . 00 / 年 3174.34/年
立即购买

域名注册服务

cn/top/com等热门域名,首年低至1元,邮箱建站必选
¥ 1 . 00 / 首年起 32.00/首年起
立即购买

DCDN国内流量包100G

同时抵扣CDN与DCDN两种流量消耗,加速分发更实惠
¥ 2 . 00 / 年 20.00/年
立即购买

产品体验

体验中心

幻兽帕鲁服务器搭建

云服务器
快速搭建幻兽帕鲁高性能服务器,拒绝卡顿,即刻畅玩!
即刻畅玩

白皮书

一图详解大模型
浓缩大模型架构,厘清生产和应用链路关系
立即获取

相关主题

在VBA中遇到“预期:语句结束”的错误。 在VBA中运行C# Google API基于控制台应用程序的问题 在VBA中运行代码时是否有跳过筛选行的函数? 在VBA中运行代码时遇到问题,出现了“Else without If”错误。 在VBA中运行代码时,是否有一种跳过筛选行的功能? 在VBA中运行Python脚本时什么都没有发生,但当我从python.exe运行它时,它可以工作。 在VBA中运行循环指令总是导致崩溃。 在VBA中运行一个Python脚本,但无法正常工作。 在VBA中在两个引号之间插入分号 在VBA中找出两个数组的交集(不使用Excel)

最新活动

爆款2核8G2M云服务器

首年199元,约每天0.55元,限量秒杀
立即抢购

火山引擎增长体验专区

丰富能力激励企业快速增长
查看详情

数据智能VeDI

易用的高性能大数据产品家族
了解详情

热门访问

z += array[i] 中的 + 运算符是什么作用? Z Shell:输入别名内容产生的输出与调用别名本身产生的输出不同。 Z'质量计算 Z-axismeasurementof3d.objscan
 
推荐文章
会搭讪的跑步鞋  ·  《中国好声音》张玮想和亚当·兰伯特炒CP,《歌手2024》无动于衷|唱片|杨丞琳|李莎旻子|综艺节目|音乐专辑|华语乐坛_网易订阅
11 月前
干练的小刀  ·  2019年我用过和正在用的数码产品_电脑外设_什么值得买
11 月前
含蓄的高山  ·  朝梵高名画泼番茄汤,冲莫奈作品倒土豆泥,这群环保青年究竟在想什么?_气候_行动_生活
1 年前
逼格高的自行车  ·  济南政府网_济南市人民政府门户网站 重点关注 济南市着力提升对村(社区)巡察质效
1 年前
想出家的萝卜  ·  同比增31% 上汽大通MAXUS公布7月销量-Auto Thinker汽车智库平台
1 年前
今天看啥   ·   Py中国   ·   codingpro   ·   小百科   ·   link之家   ·   卧龙AI搜索
删除内容请联系邮箱 2879853325@qq.com
Code - 代码工具平台
© 2024 ~ 沪ICP备11025650号