Gibt es in Excel eine Koaleszenzfunktion?

Brauche ich zum füllen einer Zelle mit der ersten nicht leeren Eintrag in einer Gruppe von Spalten (von Links nach rechts) in der gleichen Zeile - ähnlich wie coalesce() in SQL.

Im folgenden Beispiel Blatt

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

Ich möchte eine Zelle-Funktion in jeder Zelle der Zeile Ein, so dass ich bekommen:

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

Ich weiß, ich könnte dies mit einer Kaskade von IF-Funktionen, aber in meinem real-Platte, habe ich 30 Spalten wählen Sie aus, also ich würde mich freuen, wenn es eine einfachere Möglichkeit.

InformationsquelleAutor der Frage Fabian | 2013-11-20

35
```
=INDEX(B2:D2,MATCH(FALSE,ISBLANK(B2:D2),FALSE))
```
Dies ist eine Array-Formel. Nach Eingabe der Formel drücken Sie STRG + Shift + Enter um Excel zu bewerten es als eine Array-Formel. Dies gibt den ersten nichtleeren Wert der angegebenen Zellbereich. Für Ihr Beispiel, die Formel eingegeben wird in der Spalte mit der überschrift "ein"
```
    A   B   C   D
1   x   x   y   z
2   y       y   
3   z           z
```
InformationsquelleAutor der Antwort Howard Renollet

Oder, wenn Sie wollen, vergleichen Sie die einzelnen Zellen, können Sie eine Coalesce-Funktion in VBA:

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

Und dann rufen Sie in Excel. In deinem Beispiel wird die Formel in A1 würde:

=Coalesce(B1, C1, D1)

InformationsquelleAutor der Antwort AndyMc

Unter der VBA-Ansatz einen Schritt weiter, ich habe neu geschrieben, die es erlauben, eine Kombination von beiden (oder beide) einzelne Zellen und Zellbereiche:

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

So, jetzt in Excel Sie können jede der folgenden Formeln in A1:

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

InformationsquelleAutor der Antwort AndyMc

Innerhalb des Arrays geben Sie den Variablen, die nicht erlaubt sind.

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

InformationsquelleAutor der Antwort Felipe

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.