Excel - Menyimpan hanya teks tertentu dalam sel

Isu

Saya punya file excel yang datanya dibuang dari sumber eksternal (P6). Satu sel berisi banyak data yang saya hanya perlu sangat spesifik.

Berikut adalah 5 sel yang terlihat:

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

Saya ingin menghapus SEA- dan kemudian hanya menyimpan singkatan yang dimulai dengan MV.

Larutan

Asumsi

1. Data ada di kolom A
2. Hasilnya akan ditampilkan di kolom B

 Sub extractMV () Dim lMaxRow As Long Dim rowIdx As Long Dim inString As String Dim outString As String Dim sTemp Sebagai String Dim iLoc Sebagai Integer lMaxRows = Cells (Rows.Count, "A"). End (xlUp). 2 Untuk lMaxRows inString = Potong (Sel (rowIdx, "A")) outString = "" iLoc = 0 sTemp = "" iLoc = InStr (1, inString, ", ") Lakukan Sementara (iLoc> 0) sTemp = Potong ( Kiri (inString, iLoc - 1)) If (Kiri (sTemp, 6) = "SEA-MV") Kemudian outString = outString & ", " & Mid (sTemp, 5) End If inString = Trim (Pertengahan (inString, iLoc +1)) iLoc = InStr (1, inString, ", ") Loop If (Kiri (inString, 6) = "SEA-MV") Lalu outString = outString & ", " & Mid (inString, 5) End If If (Kiri (outString, 1) = ", ") Kemudian outString = Trim (Mid (outString, 2)) End If Cells (rowIdx, "B") = outString Next End Sub