Excel - Mantenere solo il testo specifico in una cella

Problema

Ho un file excel con dati scaricati da fonti esterne (P6). Una cella contiene molti dati di cui ho bisogno solo molto specifici.

Ecco come appaiono le 5 celle:

 SEA-MVRV, SEA-RAD SEA-MVAOV, SEA-OPSSRO SEA-MVAOV1 SEA-CRNPOLAR, SEA-NPCOE, SEA-MMJBC, SEA-RAD, SEA-MVMM SEA-CRNPOLAR, SEA-MMJBC, SEA-RAD, SEA- NPCOE, SEA-MVMM 

Vorrei eliminare SEA- e quindi mantenere solo le abbreviazioni che iniziano con MV.

Soluzione

ipotesi

  • 1. I dati sono nella colonna A
  • 2. Il risultato deve essere mostrato nella colonna B

 Sub extractMV () Dim lMaxRow As Long Dim rowIdx As Long Dim InString As String Dim outString As String Dim sTemp As String Dim iLoc As Integer lMaxRows = Celle (Rows.Count, "A"). End (xlUp) .Row For rowIdx = 2 a lMaxRows inString = Trim (Cells (rowIdx, "A")) outString = "" iLoc = 0 sTemp = "" iLoc = InStr (1, inString, ", ") Do While (iLoc> 0) sTemp = Trim ( Left (inString, iLoc - 1)) If (Left (sTemp, 6) = "SEA-MV") Then outString = outString & ", " & Mid (sTemp, 5) End If inString = Trim (Mid (inString, iLoc + 1)) iLoc = InStr (1, inString, ", ") Loop If (Left (inString, 6) = "SEA-MV") Then outString = outString & ", " & Mid (inString, 5) End If If (Left (outString, 1) = ", ") Then outString = Trim (Mid (outString, 2)) End If Cells (rowIdx, "B") = outString Next End Sub 

Nota

Grazie a rizvisa1 per questo suggerimento sul forum.

Articolo Precedente Articolo Successivo

I Migliori Consigli