Concaténer les en-têtes de colonne si la valeur dans les lignes ci-dessous est non vide

Question

J'ai un tableau avec les données dans le format ci-dessous.

Data

Je veux la table fini d'avoir la colonne vide pour être renseigné comme l'a souligné celui ci-dessous.

Finished Table

, j'ai besoin d'une formule ou VBA qui renverra et concaténer les en-têtes de cellules non-vides dans chaque ligne.

Answer 1

Utilisez¹ comme suit la formule de matrice .

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

versions pré-Excel 2016

Pendant que vous pouvez simplement enchaîner une série de instructions IF, un autre plus propre peut-être écrire une fonction définie par l'utilisateur (alias UDF) .

Dans une feuille de code module standard 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 

---

¹ _{Le TEXTJOIN a été introduit avec Excel 2016 dans les versions suivantes: Excel pour les téléphones Android, Excel Mobile, Excel 2016 avec Office 365, Excel 2016 pour Mac, Excel Online, Excel pour iPad, Excel pour iPhone et Excel pour tablette Android.}