Bỏ qua nội dung chính

Làm thế nào để loại bỏ các bản sao nhưng vẫn giữ bản sao đầu tiên trong Excel?

Giả sử, có một danh sách các giá trị trong trang tính của bạn chứa một số bản sao, bây giờ, bạn cần loại bỏ các bản sao nhưng vẫn giữ hàng đầu tiên nơi tìm thấy giá trị trùng lặp. Trong bài viết này, chúng tôi sẽ chỉ cho bạn hai phương pháp loại bỏ các bản sao nhưng vẫn giữ nguyên bản đầu tiên trong Excel.

Loại bỏ các bản sao nhưng giữ bản sao đầu tiên bằng mã VBA
Loại bỏ các bản sao nhưng giữ bản sao đầu tiên với Kutools cho Excel


Loại bỏ các bản sao nhưng giữ bản sao đầu tiên bằng mã VBA

Bạn có thể chạy mã VBA dưới đây để loại bỏ các bản sao nhưng giữ bản sao đầu tiên trong một cột.

1. nhấn Khác + F11 để mở Microsoft Visual Basic cho các ứng dụng hộp thoại.

2. bên trong Microsoft Visual Basic cho các ứng dụng hộp thoại, nhấn Chèn > Mô-đun. Sau đó sao chép và dán đoạn mã dưới đây vào cửa sổ mã.

Mã VBA: loại bỏ các bản sao nhưng giữ nguyên bản đầu tiên

Sub TrimExcessSpaces()
	Dim Rng As Range
	Dim WorkRng As Range
	Dim dic As Variant
	Set dic = CreateObject("Scripting.Dictionary")
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1)
	For Each Rng In WorkRng.Cells
		dic(Rng.Value) = ""
	Next
	WorkRng.ClearContents
	WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub

3. nhấn F5 phím để chạy mã. Trong cửa sổ bật lên KutoolsforExcel hộp thoại, chọn phạm vi bạn muốn loại bỏ các bản sao, sau đó bấm vào OK cái nút. Xem ảnh chụp màn hình:

Bây giờ bạn có thể thấy tất cả các hàng trùng lặp ngoại trừ các bản ghi đầu tiên bị xóa khỏi phạm vi cột đã chọn. Xem ảnh chụp màn hình:


Loại bỏ các bản sao nhưng giữ bản sao đầu tiên với Kutools cho Excel

Bên cạnh mã VBA, bạn có thể sử dụng Chọn các ô trùng lặp & duy nhất tiện ích của Kutools cho Excel bổ trợ để dễ dàng loại bỏ các bản sao nhưng vẫn giữ các bản sao đầu tiên trong Excel.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

1. Chọn phạm vi bạn muốn xóa các bản sao nhưng giữ các bản sao đầu tiên. Sau đó nhấp vào Kutools > Chọn > Chọn các ô trùng lặp & duy nhất

2. bên trong Chọn các ô trùng lặp & duy nhất hộp thoại, chọn Bản sao (Trừ cái đầu tiên) rồi bấm vào OK cái nút. Xem ảnh chụp màn hình:

doc xóa các bản sao1

3. Trong sau Chọn các ô trùng lặp & duy nhất hộp thoại, nhấn OK.

doc xóa các bản sao1

4. Bây giờ các bản sao được chọn ngoại trừ các trường hợp đầu tiên, vui lòng nhấn Xóa bỏ để xóa các bản sao đã chọn.

Chú thích: Nếu bạn muốn xóa các hàng trùng lặp, bạn chỉ cần kiểm tra Chọn toàn bộ hàng tùy chọn trong Chọn các ô trùng lặp & duy nhất hộp thoại, sau đó áp dụng Xóa bỏ lệnh của menu chuột phải để loại bỏ toàn bộ các hàng trùng lặp.

  Nếu bạn muốn dùng thử miễn phí (30 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Loại bỏ các bản sao nhưng giữ bản sao đầu tiên với Kutools cho Excel

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

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...

Mô 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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to do something similar but not quite. I am trying to take the following where I indicates the next cell John I Red John I Blue John I Yellow Joe I Red Joe I Blue Joe I Yellow and turn it into John I Red I Blue I Yellow Joe I Red I Blue I Yellow Can you help on just keeping the first duplicate in a single cell only?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations