Fonction Excel pour rechercher une chaîne de caractères pour plusieurs mots-clés

Si vous changez la façon dont vous avez les données de configuration de sorte qu'il est un peu plus Excel-friendly, cela peut être assez facile à faire.

La recherche de la feuille devrait ressembler à ceci (la formule ci-dessous est ce que 'Feuil2'):

Ensuite sur votre feuille de données, dans la cellule C2 et copiées:

=IF(SUMPRODUCT(COUNTIF(B2,"*"&Sheet2!$A$2:$A$7&"*")),INDEX(Sheet2!B:B,SUMPRODUCT(COUNTIF(B2,"*"&Sheet2!$A$2:$A$7&"*")*ROW(Sheet2!$A$2:$A$7))),"")

Les résultats ressemblent à ceci:

OriginalL'auteur tigeravatar

Pouvez-vous essayer cette formule à la celluleC2?

=IF(SUMPRODUCT((B2=Sheet2!$A$2:$D$4)*COLUMN(Sheet2!$A$1:$D$1))>0,
INDEX(Sheet2!$A$1:$D$1,SUMPRODUCT((B2=Sheet2!$A$2:$D$4)*COLUMN(Sheet2!$A$1:$D$1)))
,"")

J'ai supposé que la seconde est à Sheet2 et que les données jusqu'à la colonne D, en commençant avec les en-têtes à A1, avec le format que vous décrivez.

EDIT:

Je vois que vous avez modifié le post original, et ma réponse ne répond plus aux spécifications. Donc je pense qu'il est préférable que je le supprimer.

EDIT2:

Ajouté VBA solution. Hypothèses:

• Originale table de données dans la feuille Sheet1
• Table de Destination dans la Feuil2
• Les en-têtes de la feuille Sheet1 en 1ère ligne

Le code ci-dessous a été testé, il devrait être OK, mais les besoins de la gestion des erreurs:

Sub moveData()
    Dim rngDestination As Range
    Dim lRowCounter As Long, lColCounter As Long, lValueCounter As Long, lLastRow As Long
    Dim vOriginArray As Variant, vValuesArray As Variant, vDestinationArray As Variant

    ' Database table in Sheet2
    vOriginArray = Sheet2.UsedRange.Value

    ' Destination table in Sheet1
    With Sheet1
        lLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        ' Put the values we need to compare into an array
        vValuesArray = .Range(.Cells(2, 2), .Cells(lLastRow, 2)).Value
        Set rngDestination = .Range(.Cells(2, 3), .Cells(lLastRow, 3))
    End With

    ' We will store the values to an array first and then
    ' back to the sheet, it is faster this way
    ReDim vDestinationArray(1 To rngDestination.Rows.Count, 1 To 1)

    ' Loop through all rows and columns, exclude header row
    For lRowCounter = 2 To UBound(vOriginArray, 1)
        For lColCounter = LBound(vOriginArray, 2) To UBound(vOriginArray, 2)
    ' For each entry, find which values match and store them
            For lValueCounter = 1 To UBound(vValuesArray, 1)
                If InStr(1, vValuesArray(lValueCounter, 1), vOriginArray(lRowCounter, lColCounter), vbTextCompare) Then
                    vDestinationArray(lValueCounter, 1) = vOriginArray(1, lColCounter)
                End If
            Next lValueCounter
        Next lColCounter
    Next lRowCounter

    ' Put the data back to excel
    With rngDestination
        .ClearContents
        .Value = vDestinationArray
    End With
End Sub

OriginalL'auteur Ioannis