„Excel“ - langelyje laikomas tik konkretus tekstas

Problema

Turiu Excel failą, turintį duomenis iš išorinio šaltinio (P6). Viename langelyje yra daug duomenų, kurių reikia tik labai specifiškai.

Štai kaip atrodo 5 langeliai:

 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

Norėčiau ištrinti SEA ir tada laikyti tik santrumpas, kurios prasideda nuo MV.

Sprendimas

Prielaidos

1. Duomenys pateikiami A stulpelyje
2. Rezultatas turi būti parodytas B skiltyje

 Sub extractMV () „Dim lMaxRow As Long Dim“ eilutėIdx kaip ilgas „InString“ kaip eilutė „Dim“ išeiti kaip eilutė „Dim sTemp“ kaip eilutė „Dim“ iLoc kaip integer lMaxRows = ląstelės (eilutės.Skaičiuoti, „A“) Pabaiga (xlUp). 2 lMaxRows inString = Trim (elementai (rowIdx, "A")) outString = "" iLoc = 0 sTemp = "" iLoc = InStr (1, inString, ", ") Ar nors (iLoc> 0) sTemp = Trim ( Kairė (inString, iLoc - 1)) Jei (kairė (sTemp, 6) = "SEA-MV") tada outString = outString & ", " & Mid (sTemp, 5) pabaiga Jei inString = trim (vid. + 1)) iLoc = InStr (1, inString, ", ") Loop If (Left (inString, 6) = "SEA-MV") Tada outString = outString & ", " & Mid (inString, 5) Pabaiga Jei If (Kairė (outString, 1) = ", ") Tada outString = Trim (viduryje (outString, 2)) Pabaiga, jei langeliai (rowIdx, "B") = outString Kitas pabaiga