Verketten Sie Spaltenüberschriften, wenn der Wert in Zeilen darunter nicht leer ist

Question

Ich habe eine Tabelle mit Daten im folgenden Format.

Data

Ich möchte, dass die fertige Tabelle die leere Spalte haben unten wie die markierte ein gefüllt werden.

Finished Table

So, ich brauche eine Formel oder VBA, die die Header von nicht-leeren Zellen in jeder Reihe werden zurückkehren und verketten.

Answer 1

Verwenden¹ das folgende als Array Formel.

=TEXTJOIN("-->", TRUE, IF(LEN(C3:I3), C$2:I$2, "")) 

Pre-Excel 2016 Versionen

Während Sie könnten nur aneinanderzureihen eine Reihe von IF-Anweisungen, eine sauberere alternative möglicherweise eine benutzerdefinierte Funktion zu schreiben (auch bekannt als UDF) .

In einem Standard-Modul-Codeblatt VBA:

Function udf_Stitch_Together(r As Range, _ 
          h As Range, _ 
          Optional d As String = "-->", _ 
          Optional blnks As Boolean = False) As String 
    Dim s As String, c As Long 
    For c = 1 To r.Cells.Count 
     If CBool(Len(r.Cells(c).Text)) Then _ 
      s = s & IIf(Len(s), d, vbNullString) & h.Cells(c).Text 
    Next c 
    udf_Stitch_Together = s 
End Function 

---

¹ _{Die TEXTJOIN mit Excel 2016 in den folgenden Versionen eingeführt wurde: Excel für Android-Handys, Excel Mobile, Excel 2016 mit Office 365, Excel 2016 für Mac, Excel Online, Excel für iPad, Excel für iPhone und Excel für Android-Tablet.}