Excel - Menjaga hanya teks tertentu dalam sel

Isu

Saya mempunyai fail excel yang mempunyai data yang dibuang dari sumber luaran (P6). Satu sel mengandungi banyak data yang saya hanya perlu sangat spesifik.

Inilah 5 sel yang kelihatan seperti:

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

Saya ingin memadamkan SEA- dan kemudian simpan hanya singkatan yang bermula dengan MV.

Penyelesaian

Andaian

1. Data adalah dalam lajur A
2. Hasilnya akan ditunjukkan dalam lajur B

 Sub ekstrakMV () Dim lMaxRow Sebagai baris panjang Dimetikan sebagai Long Dim inString Sebagai String Dim outString Sebagai String Dim sTemp Sebagai String Dim iLoc Sebagai Integer lMaxRows = Sel (Rows.Count, "A"). Akhir (xlUp) .Row For rowIdx = 2 To lMaxRows inString = Trim (Sel (rowIdx, "A")) outString = "" iLoc = 0 sTemp = "" iLoc = InStr (1, inString, Left (sTemp, 6) = "SEA-MV") Kemudian outString = outString & ", " & Mid (sTemp, 5) Akhir Jika inString = Trim (Mid (inString, + 1)) iLoc = InStr (1, inString, ", ") Loop Jika (Kiri (inString, 6) = "SEA-MV") Kemudian outString = outString & ", " & Mid (inString, (Kiri (outString, 1) = ", ") Kemudian outString = Trim (Mid (outString, 2)) Akhir Jika Sel (rowIdx, "B") =