Suppression des abréviations de 3 lettres dans excel

L'approche VBA pourrait être plus simple, mais j'aime apprendre si les choses sont possibles dans PowerQuery de toute façon !

La réponse est oui ! J'ai copié votre texte dans un tableau et j'ai fait de l'en-tête de colonne "données".

Cette requête supprime ensuite les TLA du texte :

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed type from mixed to text" = Table.TransformColumnTypes(Source,{{"data", type text}}),
    #"Added Index to enable split/apply/combine" = Table.AddIndexColumn(#"Changed type from mixed to text", "Index", 0, 1),
    #"Split each sentence by space onto new rows" = Table.ExpandListColumn(Table.TransformColumns(#"Added Index to enable split/apply/combine", {{"data", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "data"),
    #"Add a column to identify Three-Letter-Acronyms (TLA)" = Table.AddColumn(#"Split each sentence by space onto new rows", "TLA", each Text.Length([data])=3 
and Text.Upper([data]) = [data] 
and Value.Is(Value.FromText([data]), type text)),
    #"Filter the rows so that TLAs are hidden" = Table.SelectRows(#"Add a column to identify Three-Letter-Acronyms (TLA)", each ([TLA] = false)),
    #"Hide the TLA column (it's no longer needed)" = Table.RemoveColumns(#"Filter the rows so that TLAs are hidden",{"TLA"}),
    #"Group by index, concat. text using space delimiter" = Table.Group(#"Hide the TLA column (it's no longer needed)", {"Index"}, {{"data", each Text.Combine([data]," "), type text}}),
    #"Remove the index" = Table.RemoveColumns(#"Group by index, concat. text using space delimiter",{"Index"})
in
    #"Remove the index"

Quand il est terminé, il ressemble à ça :

Presque tout cela peut être fait avec l'interface utilisateur, à l'exception de l'étape Group By, où vous devez d'abord regrouper par index et additionner les données, ce qui produit évidemment une erreur, puis modifier la requête dans l'éditeur avancé pour changer l'opération Sum en Text.Combine avec un espace comme délimiteur.

Essayez ceci :

Sub KleanUp()
    arr = Array("AWM", "ESO", "SFI", "NGC")
    For Each a In arr
        Cells.Replace what:=a, replacement:=""
    Next a
End Sub

Avant :

et après :

NOTES :

1. Vous pouvez développer le Array() pour inclure toutes les autres sous-chaînes que vous devez supprimer.
2. Les sous-chaînes peuvent apparaître n'importe où dans la chaîne.
3. Une même cellule peut contenir plus d'une sous-chaîne.
4. Utilisation de Range.Replace évite d'avoir à boucler sur chaque cellule de la plage.

Vous pouvez utiliser un code VBA pour cela :

Sub Calc()
  Dim intC As Integer
  Dim objR As Object
  Set objR = CreateObject("VBScript.regexp")
  With objR 
    .Pattern = ".*[A-Z]{3}.*" 
    .IgnoreCase = False
  End With
  intC = 10 ' MAKE SURE TO REPLACE 10 WITH THE LAST CELL NUMBER OF YOUR COLUMN
  For i = 1 To intC 
    If objR.Test(Range("A" & i).Value) Then
      Range("A" & 1).Value = ""
    End If
  Next
End Sub