Excel公式：对于列中值的每个实例，获取同一行中另一列的值

Question

我正在寻找解决Excel中的以下问题：

ID     Key     Value
1      10      20
2       5      30
3      10      20
4      10      20

如果key == 10并且Value == 20，则获取ID。

因此，我需要生成以下列表：“ 1、3、4”

本质上，我正在查看一个值是否在给定范围内，而另一个值是否在另一个范围内，请给我对应的值（同一行）在另一个范围内。

我不能认为ID列将始终是最左侧的列。

Answer 1

为此，您可以使用随附的用户定义功能。 从您的工作表中调用它，如下所示：

= concatPlusIfs（A1：A4， “”，1,10,2,20）

哪里

• A1：A4是ID列表
• “，”是分隔符
• 1是您的id列和键列之间的偏移量（-1代表左侧的1列）
• 密钥的标准是10
• 2是您的id列和“值”列之间的偏移量

• 价值的准则是20

   Public Function concatPlusIfs(rng As Range, sep As String, lgCritOffset1 As Long, varCrit1 As Variant, lgCritOffset2 As Long, varCrit2 As Variant, Optional noDup As Boolean = False, Optional skipEmpty As Boolean = False) As String Dim cl As Range, strTemp As String If noDup Then 'remove duplicates, use collection to avoid them Dim newCol As New Collection On Error Resume Next For Each cl In rng.Cells If skipEmpty = False Or Len(Trim(cl.Text)) > 0 Then If cl.Offset(, lgCritOffset1) = varCrit1 And cl.Offset(, lgCritOffset2) = varCrit2 Then newCol.Add cl.Text, cl.Text End If Next For i = 0 To newCol.Count strTemp = strTemp & newCol(i) & sep Next Else For Each cl In rng.Cells If skipEmpty = False Or Len(Trim(cl.Text)) > 0 Then If cl.Offset(, lgCritOffset1) = varCrit1 And cl.Offset(, lgCritOffset2) = varCrit2 Then strTemp = strTemp & cl.Text & sep End If Next End If concatPlusIfs = Left(strTemp, Len(strTemp) - Len(sep)) End Function 

Answer 2

我想说这是excel的最基本功能，但是由于您假设了人为的限制，即您无法决定如何对列进行排序-因此，它要求您使用HLOOKUP之类的东西（假设您至少可以确定自己的列头）：

=IF(AND(HLOOKUP("Key",$A$1:$C$5,ROW(),FALSE)=10,HLOOKUP("VALUE",$A$1:$C$5,ROW(),FALSE)=20),HLOOKUP("ID",$A$1:$C$5,ROW(),FALSE),"")

祝好运。

编辑/添加：

使用以下网址中的multicat函数： http ： //www.mcgimpsey.com/excel/udfs/multicat.html

例如，对表进行排序以除去空格，然后：

=multicat(C2:C5,",")

或者，如果排序对您来说太繁琐了，您可以使用mcgimpsey函数的此修改版本来摆脱空白单元格：

  Public Function MultiCat( _
        ByRef rRng As Excel.Range, _
        Optional ByVal sDelim As String = "") _
             As String
     Dim rCell As Range
     For Each rCell In rRng
        If rCell.Value <> "" Then
         MultiCat = MultiCat & sDelim & rCell.Text
         End If
     Next rCell
     MultiCat = Mid(MultiCat, Len(sDelim) + 1)
  End Function