Excel - Chỉ giữ văn bản cụ thể trong một ô
Vấn đề
Tôi có một tệp excel có dữ liệu được kết xuất từ nguồn bên ngoài (P6). Một ô chứa rất nhiều dữ liệu mà tôi chỉ cần rất cụ thể.
Đây là 5 ô trông như thế nào:
BIỂN-MVRV, BIỂN-BIỂN BIỂN-MVAOV, BIỂN-BIỂN-BIỂN-BIỂN-BIỂN-BIỂN-BIỂN-BIỂN-BIỂN-BIỂN, BIỂN BIỂN BIỂN BIỂN BIỂN BIỂN BIỂN BIỂN BIỂN BIỂN NPCOE, BIỂN-MVMM
Tôi muốn xóa BIỂN- và sau đó chỉ giữ lại các chữ viết tắt bắt đầu bằng MV.
Dung dịch
Giả định
- 1. Dữ liệu nằm trong cột A
- 2. Kết quả sẽ được hiển thị trong cột 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). 2 Để lMaxRows inString = Trim (Các ô (rowIdx, "A")) outString = "" iLoc = 0 sTemp = "" iLoc = InStr (1, inString, ", ") Do While (iLoc> 0) sT Trái (inString, iLoc - 1)) If (Left (sTemp, 6) = "BIỂN-MV") Sau đó outString = outString & ", " & Mid (sTemp, 5) End If inString = Trim (Mid (inString, iLoc + 1)) iLoc = InStr (1, inString, ", ") Loop If (Left (inString, 6) = "SEA-MV") Sau đó outString = outString & ", " & Mid (inString, 5) End If (Trái (outString, 1) = ", ") Sau đó outString = Trim (Mid (outString, 2)) End If Cells (rowIdx, "B") = outString Next End Sub
chú thích
Cảm ơn rizvisa1 cho mẹo này trên diễn đàn.