baidu_41593578 2021-09-13 21:18
浏览 7
已结题

vba 求交集,为什么最后[b15] = Intersect(rs, cs).Value会出错?




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

  • 写回答

0条回答 默认 最新

    报告相同问题?

    问题事件

    • 系统已结题 9月21日
    • 创建了问题 9月13日

    悬赏问题

    • ¥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跨节点无法访问问题