Excel - Holder kun spesifikk tekst i en celle

Utgave

Jeg har en Excel-fil som har data dumpet fra ekstern kilde (P6). En celle inneholder mye data som jeg bare trenger veldig spesifikt.

Her ser du hvordan 5 celler ser ut:

 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 

Jeg vil gjerne slette SEA- og hold så bare forkortelsene som starter med MV.

Løsning

Antagelser

  • 1. Dataene er i kolonne A
  • 2. Resultatet skal vises i kolonne B

 Sub-ekstraktMV () Dim lMaxRow Så lang Dim-radIdx Så lang Dim inString Som streng Dim utString Som streng Dim sTemp Som streng Dim iLoc som helhet lMaxRows = Cells (Rows.Count, "A"). End (xlUp) .Row For rowIdx = 2 Til lMaxRows inString = Trim (Cells (rowIdx, "A")) outString = "" iLoc = 0 sTemp = "" iLoc = InStr (1, inString, ", ") Gjør mens (iLoc> 0) sTemp = Trim Venstre (inString, iLoc - 1)) Hvis (Venstre (sTemp, 6) = "SEA-MV") Deretter outString = outString & ", " & Mid (sTemp, 5) Slutt Hvis inString = Trim (Mid (inString, iLoc + 1)) iLoc = InStr (1, inString, ", ") Loop If (Venstre (inString, 6) = "SEA-MV") Deretter outString = outString & ", " & Mid (inString, 5) (Venstre (outString, 1) = ", ") Så outString = Trim (Mid (outString, 2)) Slutt hvis celler (rowIdx, "B") = outString Next End Sub 

Merk

Takk til rizvisa1 for dette tipset på forumet.

Forrige Artikkel Neste Artikkel

Beste Tips