Quelle serait la façon la plus efficace d'analyser l'entrée d'une colonne spécifique dans des colonnes séparées?

Utilisation de formules, @ cybernétique.nomad avait la majeure partie du chemin là-bas. Afin de supprimer les titres des données que vous pouvez essayer:

1. Mettez les catégories de chaque colonne (CorrélationID:, Demande d'API :) Dans les cellules B1: G1 CODE> P> LI>

2. dans B2 code>, utilisez la formule suivante: p> XXX PRE> LI>

3. dans c2 code>, utilisez la formule suivante: p> XXX PRE> LI>

4. dans d2 code>, utilisez la formule suivante: p> XXX PRE> LI>

5. dans E2 code>, utilisez la formule suivante: p> XXX PRE> LI>

6. in F2 code>, utilisez la formule suivante: p> XXX PRE> LI>

7. in g2 code>, utilisez la formule suivante: p>

   =RIGHT($A2,LEN($A2)-FIND(G$1,$A2)-LEN(G1))
   

Vous pouvez utiliser une macro écrite dans VBA.

J'ai créé une classe et renommé IT CDATA code> avec des propriétés de vos différentes en-têtes de colonne. P>

Puis j'ai utilisé des expressions régulières Pour séparer les différentes propriétés des données que vous avez fournies, collectées dans un dictionnaire et génèrent les résultats à une feuille de calcul distincte dans une commande spécifiée. P>

J'ai supposé que vos en-têtes de colonne nommés étaient les informations que vous recherchez. Pour, et comme dans votre exemple de texte, il n'ya qu'un seul exemple de chaque catégorie à préoccuper. P>

J'ai également supposé que vos données commencent dans B1 code>. P>

Lire les notes de près dans la macro. p>

Assurez-vous de définir les références comme indiqué dans le code de module normal. P>

MODULE STRUT> P>

'Set Reference to Microsoft Scripting Runtime
'Set Reference to Microsoft VBScript Regular Expressions 5.5
Option Explicit
Sub ttcSpecial()
    Dim wsSrc As Worksheet, wsRes As Worksheet
    Dim vSrc As Variant, vRes As Variant
    Dim rRes As Range
    Dim dD As Dictionary
    Dim RE As RegExp, MC As MatchCollection, M As Match
    Dim cD As cData
    Dim myKey, I As Long, sTemp As String

Set wsSrc = Worksheets("sheet1")
Set wsRes = Worksheets("sheet2")
    Set rRes = wsRes.Cells(1, 1)

With wsSrc
    vSrc = .Range(.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp))
    If Not IsArray(vSrc) Then
        sTemp = vSrc
        ReDim vSrc(1 To 1, 1 To 1)
        vSrc(1, 1) = sTemp
    End If
End With

Set RE = New RegExp
With RE
    .Global = True
    .IgnoreCase = True
    .MultiLine = False
    .Pattern = "((?:CorrelationID|Request For API|Caller|RequestedSchemas|TenantID)):([\s\S]+?)(?=(?:CorrelationID|Request For API|Caller|RequestedSchemas|TenantID|$))"
End With


Set dD = New Dictionary
    dD.CompareMode = TextCompare

For I = 1 To UBound(vSrc, 1)
    Set cD = New cData
    With cD
    If RE.Test(vSrc(I, 1)) = True Then
        myKey = I
        Set MC = RE.Execute(vSrc(I, 1))
        For Each M In MC
            Select Case M.SubMatches(0)
                Case "CorrelationID"
                    .CorrelationID = M.SubMatches(1)
                Case "Request for API"
                    .RequestForApi = M.SubMatches(1)
                Case "Caller"
                    .Caller = M.SubMatches(1)
                Case "RequestedSchemas"
                    .RequestedSchemas = M.SubMatches(1)
                Case "TenantID"
                    .TenantID = M.SubMatches(1)
            End Select
        Next M

        dD.Add Key:=myKey, Item:=cD
    End If
    End With
Next I

ReDim vRes(0 To dD.Count, 1 To 5)

'Headers
    vRes(0, 1) = "Correlation ID"
    vRes(0, 2) = "Request for API"
    vRes(0, 3) = "Caller"
    vRes(0, 4) = "Requested Schemas"
    vRes(0, 5) = "Tenant ID"

I = 0
For Each myKey In dD.Keys
    I = I + 1
    With dD(myKey)
        vRes(I, 1) = .CorrelationID
        vRes(I, 2) = .RequestForApi
        vRes(I, 3) = .Caller
        vRes(I, 4) = .RequestedSchemas
        vRes(I, 5) = .TenantID
    End With
Next myKey

Set rRes = rRes.Resize(UBound(vRes, 1) + 1, UBound(vRes, 2))
With rRes
    .EntireColumn.Clear
    .Value = vRes
    With .Rows(1)
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
    End With
    .EntireColumn.AutoFit
End With

End Sub