Excel - Διατήρηση μόνο συγκεκριμένου κειμένου σε ένα κελί

Θέμα

Έχω ένα αρχείο 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 SEA- NPCOE, SEA-MVMM 

Θα ήθελα να διαγράψω την SEA και στη συνέχεια να κρατήσω μόνο τις συντομογραφίες που αρχίζουν με τη MV.

Λύση

Υποθέσεις

  • 1. Τα δεδομένα είναι στη στήλη Α
  • 2. Το αποτέλεσμα πρέπει να αναφέρεται στη στήλη Β

 Sub extractMV () DimMaxRow Όπως μακρύ Dim γραμμήDidx Όσο μακρύ Dim inString ως String Dim outString ως String Dim sTemp ως String Dim iLoc ως ακέραιο lMaxRows = Κύτταρα (Rows.Count, "A") Τέλος (xlUp) .Row Για rowIdx = 2 Στο lMaxRows inString = Περικοπή (κελιά (rowIdx, "A")) OutString = "" iLoc = 0 sTemp = "" iLoc = InStr (1, inString, Αριστερά (inString, iLoc - 1)) Εάν (Αριστερά (sTemp, 6) = "SEA-MV") Κατόπιν, outString = OutString & ", " & Mid (sTemp, +)) ILoc = InStr (1, inString, ", ") Βρόχος Αν (Αριστερά (inString, 6) = "SEA-MV") Έξοδος ifString (Αριστερά (outString, 1) = ", "), τότε outString = Περικοπή (Mid (outString, 2)) End Αν κελιά (rowIdx, "B") = outString 

Σημείωση

Χάρη στην rizvisa1 για αυτή την άκρη στο φόρουμ.

Προηγούμενο Άρθρο Επόμενο Άρθρο

Οι Καλύτερες Συμβουλές