Làm thế nào để loại bỏ các ký tự hoặc từ trùng lặp trong chuỗi của một ô?
Giả sử có các ký tự hoặc từ trùng lặp trong mỗi ô và bạn muốn xóa các ký tự hoặc từ trùng lặp và chỉ để lại các ký tự hoặc từ duy nhất. Làm thế nào bạn có thể giải quyết vấn đề này trong Excel?
Loại bỏ các ký tự trùng lặp của chuỗi văn bản bằng chức năng do người dùng xác định
Loại bỏ các từ trùng lặp được phân tách bằng dấu câu với Chức năng do Người dùng Xác định
Loại bỏ các ký tự trùng lặp của chuỗi văn bản bằng chức năng do người dùng xác định
Nếu bạn có danh sách chuỗi văn bản, bây giờ, bạn cần xóa các ký tự trùng lặp như hình minh họa sau. Ở đây, tôi có thể nói về mã VBA để đối phó với nó.
1. Giữ ALT + F11 phím để mở Cửa sổ Microsoft Visual Basic for Applications.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.
Mã VBA: Loại bỏ các ký tự trùng lặp của chuỗi văn bản trong một ô
Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
xChar = VBA.Mid(xValue, i, 1)
If xDic.Exists(xChar) Then
Else
xDic(xChar) = ""
xOutValue = xOutValue & xChar
End If
Next
RemoveDupes1 = xOutValue
End Function
3. Sau đó, lưu và đóng mã này, quay lại trang tính và nhập công thức này = removeupes1 (A2) (A2 là ô dữ liệu bạn muốn xóa trùng lặp) vào một ô trống bên cạnh dữ liệu của bạn, hãy xem ảnh chụp màn hình:
4. Và sau đó kéo chốt điền vào các ô phạm vi mà bạn muốn áp dụng công thức này, tất cả các ký tự trùng lặp đã được xóa khỏi mỗi ô ngay lập tức.
Loại bỏ các từ trùng lặp được phân tách bằng dấu câu với Chức năng do Người dùng Xác định
Nếu có một số từ được phân tách bằng các dấu câu nhất định trong một ô, bạn cũng có thể xóa các từ trùng lặp theo ý muốn. Vui lòng thực hiện theo các bước sau:
1. Giữ phím tắt ALT + F11 phím để mở Cửa sổ Microsoft Visual Basic for Applications.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.
Mã VBA: Xóa các từ trùng lặp được phân tách bằng dấu chấm câu của ô
Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
Dim x
'Updateby Extendoffice
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each x In Split(txt, delim)
If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
Next
If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
End With
End Function
3. Sau đó, lưu và đóng mã này, quay lại trang tính và nhập công thức này = RemoveDupes2 (A2, ",") vào một ô trống bên cạnh dữ liệu của bạn, xem ảnh chụp màn hình:
4. Sau đó, sao chép công thức vào các ô cần thiết của bạn và tất cả các từ trùng lặp đã được xóa khỏi mọi ô. Xem ảnh chụp màn hình:
Chú thích: Trong công thức trên, A2 cho biết ô mà bạn muốn sử dụng và dấu phẩy (,) là viết tắt của dấu câu ngăn cách các từ trong một ô, bạn có thể thay đổi nó thành bất kỳ dấu câu nào khác theo nhu cầu của mình.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!