Excel - الاحتفاظ بنص معين فقط في خلية

القضية

لدي ملف إكسل يحتوي على بيانات ملقاة من مصدر خارجي (P6). تحتوي خلية واحدة على الكثير من البيانات التي أحتاجها فقط محددة للغاية.

إليك ما تبدو عليه 5 خلايا:

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

أرغب في حذف SEA ، ثم احتفظ بالاختصارات التي تبدأ بـ MV فقط.

حل

الافتراضات

1. البيانات موجودة في العمود أ
2. والنتيجة هي أن تظهر في العمود B

 Sub extractMV () Dim lMaxRow As Long Dim rowIdx As Long Dim inString As String Dim outString As String Dim sTemp As String Dim iLoc As Integer lMaxRows = Cells (Rows.Count، "A"). End (xlUp). End (xlUp). End 2 إلى lMaxRows inString = تقليم (خلايا (rowIdx ، "A")) outString = "" iLoc = 0 sTemp = "" iLoc = InStr (1 ، inString ، "،") افعل بينما (iLoc> 0) sTemp = Trim ( Left (inString ، iLoc - 1)) If (Left (sTemp، 6) = "SEA-MV") ثم outString = outString & "،" & Mid (sTemp، 5) End If InString = Trim (Mid (inString، iLoc + 1)) iLoc = InStr (1، inString، "،") Loop If (Left (inString، 6) = "SEA-MV") ثم outString = outString & "،" & Mid (inString، 5) End If If (Left (outString، 1) = "،") ثم outString = Trim (Mid (outString، 2)) End If Cells (rowIdx، "B") = outString Next End Sub