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
Xóa các bản sao nhưng giữ phiên bản đầu tiên với Kutools for Excel

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

Tuyệt vời! Sử dụng các tab hiệu quả trong Excel như Chrome, Edge, Firefox và Safari!
Tiết kiệm 50% thời gian của bạn và giảm hàng ngàn lần nhấp chuột cho bạn mỗi ngày!

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:

Xóa các bản sao nhưng giữ phiên bản đầu tiên với Kutools for 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 for 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.

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:

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

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.

Xóa các bản sao nhưng giữ phiên bản đầu tiên với Kutools for Excel

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

	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 đầu:  12 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 Excelvà 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...

Đọc thêm ... Tải xuống miễn phí...

---

Office Tab Mang giao diện theo thẻ vào Office và giúp công việc của bạ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!

Đọc thêm ... Tải xuống miễn phí...