Excel 中是否有类似合并的 function？

Question

我需要用同一行中一组列（从左到右）中的第一个非空条目填充一个单元格 - 类似于 SQL 中的 coalesce()。

在以下示例表中

---------------------------------------
|     |  A   |   B   |   C   |    D   |
---------------------------------------
|  1  |      |   x   |   y   |    z   |
---------------------------------------
|  2  |      |       |   y   |        |
---------------------------------------
|  3  |      |       |       |    z   |
---------------------------------------

我想在 A 行的每个单元格中放置一个单元格 function ，这样我会得到：

---------------------------------------
|     |  A   |   B   |   C   |    D   |
---------------------------------------
|  1  |  x   |   x   |   y   |    z   |
---------------------------------------
|  2  |  y   |       |   y   |        |
---------------------------------------
|  3  |  z   |       |       |    z   |
---------------------------------------

我知道我可以用级联的 IF 函数来做到这一点，但在我的真实工作表中，我有 30 列到 select ，所以如果有更简单的方法我会很高兴。

Answer 1

=INDEX(B2:D2,MATCH(FALSE,ISBLANK(B2:D2),FALSE))

这是一个数组公式。 输入公式后，按CTRL + Shift + Enter让 Excel 将其计算为数组公式。 这将返回给定单元格范围的第一个非空值。 对于您的示例，公式输入在标题为“a”的列中

    A   B   C   D
1   x   x   y   z
2   y       y   
3   z           z

Answer 2

我用了：

=IF(ISBLANK(A1),B1,A1)

这将测试您要使用的第一个字段是否为空白，然后使用另一个。 当您有多个字段时，您可以使用“嵌套 if”。

Answer 3

或者，如果您想比较单个单元格，您可以在 VBA 中创建一个 Coalesce 函数：

Public Function Coalesce(ParamArray Fields() As Variant) As Variant

    Dim v As Variant

    For Each v In Fields
        If "" & v <> "" Then
            Coalesce = v
            Exit Function
        End If
    Next
    Coalesce = ""

End Function

然后在 Excel 中调用它。 在您的示例中，A1 中的公式为：

=Coalesce(B1, C1, D1)

Answer 4

将 VBA 方法更进一步，我重新编写了它以允许（或任一）单个单元格和单元格范围的组合：

Public Function Coalesce(ParamArray Cells() As Variant) As Variant

    Dim Cell As Variant
    Dim SubCell As Variant

    For Each Cell In Cells
        If VarType(Cell) > vbArray Then
            For Each SubCell In Cell
                If VarType(SubCell) <> vbEmpty Then
                    Coalesce = SubCell
                    Exit Function
                End If
            Next
        Else
            If VarType(Cell) <> vbEmpty Then
                Coalesce = Cell
                Exit Function
            End If
        End If
    Next
    Coalesce = ""

End Function

所以现在在 Excel 中，您可以在 A1 中使用以下任何公式：

=Coalesce(B1, C1, D1)
=Coalesce(B1, C1:D1)
=Coalesce(B1:C1, D1)
=Coalesce(B1:D1)

Answer 5

如果您知道列之间不会有任何重叠，或者想要重叠，那么这是解决合并问题的一种非常快速的方法。 以下公式不适用于您的值和列，而是适用于我的模型，因此您需要进行调整以使其相关。

=LEFT(TRIM(CONCATENATE(Q38,R38,S38,T38,U38,V38,W38,X38,Y38)),1)

Answer 6

使用 excel 中更新的 IFS function，您无需嵌套。 你可以尝试类似的东西

1. 在右侧创建一个空白单元格然后输入。

=IFS(ISBLANK(A1),B1,ISBLANK(A1),C1,ISBLANK(A1),D1)

突出显示列并根据需要粘贴。

Answer 7

如果您只想合并为 0（这是一个非常常见的用例），您可以简单地围绕单个值使用SUM()函数。 为方便起见，人们将所有空白都视为零，而且由于它很短，所以特别方便。

不是像其他答案那样的通用解决方案，而是在许多情况下这正是您想要的有用的快捷方式。

Answer 8

在数组内输入不允许的变量。

Function Coalesce(ParamArray Fields() As Variant) As Variant

    Dim v As Variant

    For Each v In Fields
        If IsError(Application.Match(v, Array("", " ", 0), False)) Then
            Coalesce = v
            Exit Function
        End If
    Next
    Coalesce = ""

End Function

Answer 9

根据您要检查的单元格数量，您可以将多个 ISBLANK 检查链接在一起。

例如，在检查 A、B 列和 C 列时：

=IF(ISBLANK(A1),IF(ISBLANK(B1),C1,B1),A1)

对于 A、B、C 和 D 列：

=IF(ISBLANK(A1),IF(ISBLANK(B1),IF(ISBLANK(C1),D1,C1),B1),A1)

... 等等。

Answer 10

晚会并利用@AndyMC 的答案，您可以使用以下内容来评估 vlookups、index(match()) 等来合并您的公式语句。

Public Function Coalesce(ParamArray Fields() As Variant) As Variant

    Dim v As Variant

    For Each v In Fields
        
        If Not IsError(v) Then
            
            Coalesce = v
            
            Exit Function
        End If
    Next
    Coalesce = CVErr(xlErrNA)

End Function

并在您的工作表中使用它，如下所示： =Coalesce(INDEX(SHEET1:$A,$AF,MATCH(Main:$Q36,SHEET1,$I,$I:0),MATCH(Main,D$34:SHEET1,$1,$1:0)),INDEX(SHEET2,A,CR:MATCH(Main,$Q36,SHEET2!$M:$M,0),MATCH("SOMETHING",SHEET2!$1:$1,0)))

对于不返回#N/A的第一条语句，它将返回实际匹配的值。