25/05/2018, 22:59
Cách xoá nhanh phần văn bản trước/sau một ký tự cụ thể trong Excel
Find & Replace là một tính năng được sử dụng rộng rãi trong Excel. Bằng công cụ này, bạn có thể xóa đoạn văn bản trước/sau một ký tự cụ thể. Nhấn Ctrl + F để mở hộp thoại Find & Replace , nhấp vào thẻ Replace , gõ *, vào hộp Find What , để trống hộp Replace with , ...
Find & Replace là một tính năng được sử dụng rộng rãi trong Excel. Bằng công cụ này, bạn có thể xóa đoạn văn bản trước/sau một ký tự cụ thể.
Nhấn Ctrl + F để mở hộp thoại Find & Replace, nhấp vào thẻ Replace, gõ *, vào hộp Find What, để trống hộp Replace with, sau đó nhấn Replace All.
Bây giờ, bạn thấy đoạn văn bản đằng trước dấu phẩy đã được xóa.
Chú ý.
- Nếu bạn muốn xóa đoạn văn bản sau dấu phẩy, hãy gõ ,* vào ô Find what.
- Bạn có thể thay đổi dấu phẩy thành ký tự khác.
- Phương pháp này sẽ xóa tất cả phần văn bản đằng trước dấu phẩy cuối cùng trong ô tính được chỉ định.
Trong Excel, bạn cũng có thể sử dụng dấu phẩy để xóa phần văn bản trước/sau một ký tự cụ thể bằng việc sử dùng các hàm Left và Right như sau:
- Chọn một ô trống và gõ công thức =RIGHT(A1,LEN(A1)-FIND(“,”,A1)), nhấn Enter.
- Sao chép công thức xuống các dòng trước khi tất cả phần văn bản trước dấu phẩy được loại bỏ.
Chú ý.
- Loại bỏ văn bản sau dấu phẩy bằng =LEFT(A1,FIND(“,”,A1)-1)
- Trong công thức, A1 là ô tính bạn muốn loại bỏ đoạn văn bản, và ‘,’ là ký tự bạn muốn loại bỏ phần văn bản trước/sau nó.
- =RIGHT(A1,LEN(A1)-FIND(“,”,A1)) sẽ loại bỏ tất cả văn bản đằng trước dấu phẩy thứ nhất trong ô A1, trong khi =LEFT(A1,FIND(“,”,A1)-1) sẽ loại bỏ tất cả văn bản đằng sau dấu phẩy thứ nhất trong ô A1.
- Nhấn Alt + F11 để mở hộp thoại Microsoft Visual Basic for Applications.
- Trong cửa sổ, nhấn Insert > Module để mở cửa sổ Module mới, sau đó sao chép đoạn mã VBA sau vào cửa sổ Module.
Sub RemoveAllButLastWord()
'Updateby20140612
Dim Rng As Range
Dim WorkRng As Range
Dim xChar As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xChar = Application.InputBox("String", xTitleId, "", Type:=2)
For Each Rng In WorkRng
xValue = Rng.Value
Rng.Value = VBA.Right(xValue, VBA.Len(xValue) - VBA.InStrRev(xValue, xChar))
Next
End Sub
- Nhấn nút Run. Một hộp thoại hiện ra yêu cầu bạn nhập vào một ô hay vùng dữ liệu bạn muốn xóa đoạn văn bản trước dấu phẩy, nhấn OK.
4. Sau đó hộp thoại biến mất, nhập ký tự bạn muốn xóa văn bản dựa vào nó, nhấn OK.
Bây giờ, tất cả văn bản trước dấu phẩy đều được xóa ngay lập tức.
Chú ý. VBA chỉ xóa phần văn bản trước ký tự cuối cùng (ví dụ dấu phẩy) trong ô được chỉ định.
