Excel - saglabājot tikai konkrētu tekstu šūnā

Izdevums

Man ir Excel fails, kas satur datus no ārējā avota (P6). Vienā šūnā ir daudz datu, kuriem man ir nepieciešams tikai ļoti specifisks.

Šeit ir redzamas 5 šūnas:

 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

Es vēlos dzēst SEA un pēc tam saglabāt tikai saīsinājumus, kas sākas ar MV.

Risinājums

Pieņēmumi

1. Dati ir A slejā
2. Rezultāts jāuzrāda B slejā

 Sub extractMV () Dim lMaxRow As Long Dim rindaIdx As Long Dim inString Kā String Dim outString Kā String Dim sTemp Kā String Dim iLoc Kā Integer lMaxRows = Šūnas (rindas.Count, "A".) Beigas (xlUp). 2 Lai lMaxRows inString = Trim (šūnas (rowIdx, "A")) outString = "" iLoc = 0 sTemp = "" iLoc = InStr (1, inString, ", ") Vai kamēr (iLoc> 0) sTemp = Trim ( Pa kreisi (inString, iLoc - 1)) Ja (pa kreisi (sTemp, 6) = "SEA-MV") tad outString = outString & ", " & Mid (sTemp, 5) beigas Ja inString = apgriezt (vidū (inString, iLoc + 1)) iLoc = InStr (1, inString, ", ") Loop If (Pa kreisi (inString, 6) = "SEA-MV") Tad outString = outString & ", " & Mid (inString, 5) Beigas Ja Ja (Pa kreisi (outString, 1) = ", ") Tad outString = Trim (vidū (outString, 2)) Beigt, ja šūnas (rowIdx, "B") = outString Nākamais beigas