iFeel is a mouse 2022-06-01 12:59 采纳率: 80%
浏览 740
已结题

excel公式如何返回满足条件的数组

vlookup 只能返回第一个数,有办法可以返回满足这个条件的全部单元格的数组吗?vlookup不行,有其他函数吗?
例如:
c1 c2
1 a
2 c
1 d

求:c1为1的c2的值,返回数组{"a","d"}

  • 写回答

7条回答 默认 最新

  • 漫伊 2022-06-01 15:52
    关注

    写 VBA 函数

    SplicingRange(Arr As Range, n As Integer),第一个参数是选定区域,第二个参数是 你想查询的哪个值

    img


    结果

    img

    
    
    Function SplicingRange(Arr As Range, n As Integer)
        Dim x As Integer
         For i = 1 To Arr.Rows.Count
            If Arr.Cells(i, 1) = n Then
                If SplicingRange <> "" Then
                   SplicingRange = SplicingRange & "," & Arr.Cells(i, 2)
                Else
                    SplicingRange = Arr.Cells(i, 2)
                End If
            End If
         Next
          
    End Function
    
    
    

    插入开发工具,并启用宏

    img

    改为返回 数组

    img

    
    
    Function SplicingRange(Arr As Range, n As Integer)
        Dim x As Integer
         For i = 1 To Arr.Rows.Count
            If Arr.Cells(i, 1) = n Then
                If SplicingRange <> "" Then
                   SplicingRange = SplicingRange & ",""" & Arr.Cells(i, 2) & """"
                Else
                    SplicingRange = "{""" & Arr.Cells(i, 2) & """"
                End If
            End If
         Next
         SplicingRange = SplicingRange & "}"
          
    End Function
    
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论 编辑记录
查看更多回答(6条)

报告相同问题?

问题事件

  • 系统已结题 6月11日
  • 已采纳回答 6月3日
  • 赞助了问题酬金20元 6月1日
  • 创建了问题 6月1日

悬赏问题

  • ¥15 调用函数时,无关变量的改变引起函数值的改变
  • ¥15 xy坐标转化为经纬度坐标
  • ¥15 一般三角模糊数的上界值和下届值取中值的多少比较合理?
  • ¥15 关于#python#的问题,请各位专家解答!
  • ¥20 Hbase启动失败,无法启动HMaster
  • ¥20 Lumerical FDTD solutions 中模型的相对阻抗,有效介电常数和有效磁导率的实部和虚部的数据如何获得?
  • ¥100 sql reporting service 远程smtp服务器配置支持
  • ¥15 ppyoloe_r带角度目标检测,loss_cls没法收敛
  • ¥15 淘宝交易指数如何解读,其关联的数据指标是什么
  • ¥15 Linux下安装搜狗拼音不能显示中文