Sub test()
Dim rng1 As Range, rng2 As Range
Dim rs, cs As Range
For Each rng1 In [a2:a9]
If rng1.Value = [b13].Value Then
rs = rng1.EntireRow
Exit For
End If
Next
For Each rng2 In [b1:g1]
If rng2.Value = [b14].Value Then
cs = rng2.EntireColumn
Exit For
End If
Next
[b15] = Intersect(rs, cs).Value
vba 求交集,为什么最后[b15] = Intersect(rs, cs).Value会出错?
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
0条回答 默认 最新
悬赏问题
- ¥15 鼠标右键,撤销删除 复制 移动,要怎样删除
- ¥15 使用MATLAB进行余弦相似度计算加速
- ¥15 服务器安装php5.6版本
- ¥15 我想用51单片机和数码管做一个从0开始的计数表 我写了一串代码 但是放到单片机里面数码管只闪烁一下然后熄灭
- ¥20 系统工程中,状态空间模型中状态方程的应用。请猛男来完整讲一下下面所有问题
- ¥15 我想在WPF的Model Code中获取ViewModel Code中的一个参数
- ¥15 arcgis处理土地利用道路 建筑 林地分类
- ¥20 使用visual studio 工具用C++语音,调用openslsx库读取excel文件的sheet问题
- ¥100 寻会做云闪付tn转h5支付链接的技术
- ¥15 DockerSwarm跨节点无法访问问题