Hướng dẫn hợp nhất các danh sách và loại bỏ giá trị trùng lặp trong Excel

Hợp nhất các danh sách trong Excel và loại bỏ các giá trị trùng lặp có thể là một nhiệm vụ khá đơn giản, nhưng lại giúp tiết kiệm thời gian và tăng hiệu quả làm việc. Nếu bạn đang tìm kiếm cách thực hiện việc này, bài viết này sẽ cung cấp cho bạn những bước đơn giản để kết hợp hai danh sách và loại bỏ các giá trị trùng lặp. Hãy cùng khám phá nhé!

Cách hợp nhất các danh sách và loại bỏ giá trị trùng lặp bằng Remove Duplicates

Để hợp nhất hai danh sách và loại bỏ giá trị trùng lặp trong Excel, bạn có thể làm như sau:

1. Sao chép và dán danh sách:
   Sao chép một trong hai danh sách và dán nó vào cuối danh sách còn lại như hình dưới đây:

   Hợp nhất danh sách

2. Chọn danh sách và truy cập vào tính năng Remove Duplicates:
   Chọn toàn bộ danh sách vừa mới hợp nhất, sau đó vào menu Data > Remove Duplicates.

   Giao diện Remove Duplicates

3. Cài đặt Remove Duplicates:
   Trong hộp thoại Remove Duplicates, nếu không có tiêu đề cột, hãy chọn My data has headers và nhấn OK.

   Hộp thoại Remove Duplicates

4. Xem kết quả:
   Hộp thông báo sẽ hiển thị cho bạn biết những giá trị trùng lặp đã bị xóa. Nhấn OK để hoàn tất.

   Kết quả sau khi loại bỏ giá trị trùng lặp

Và đây là kết quả cuối cùng của bạn:

Cách hợp nhất các danh sách và loại bỏ giá trị trùng lặp bằng VBA

Ngoài cách trên, bạn cũng có thể sử dụng VBA để thực hiện nhiệm vụ này trong Excel. Dưới đây là hướng dẫn cụ thể:

1. Mở Visual Basic for Applications:
   Nhấn phím Alt + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

2. Chọn Insert Module:
   Vào menu Insert > Module, sau đó dán đoạn mã sau vào cửa sổ Module:

   Sub FindUniques()
   'Update by 20140313
   Dim rng As Range
   Dim InputRng As Range, OutRng As Range
   xTitleId = "Kutools for Excel"
   Set InputRng = Application.Selection
   Set InputRng = Application.InputBox("Range:", xTitleId, InputRng.Address, Type:=8)
   Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
   Set dic = CreateObject("Scripting.Dictionary")
   For j = 1 To InputRng.Columns.Count
       For i = 1 To InputRng.Rows.Count
           xValue = InputRng.Cells(i, j).Value
           If xValue <> "" And Not dic.Exists(xValue) Then
               OutRng.Value = xValue
               dic(xValue) = ""
               Set OutRng = OutRng.Offset(1, 0)
           End If
       Next
   Next
   End Sub

3. Chạy đoạn mã:
   Nhấn F5 hoặc chọn Run để chạy mã. Hộp thoại hiện ra, chọn vùng dữ liệu mà bạn muốn hợp nhất như hình dưới đây:

   Chạy mã VBA

4. Chọn ô để xuất kết quả:
   Nhấn OK, một hộp thoại khác sẽ hiện ra cho phép bạn chọn ô nơi xuất kết quả hợp nhất như hình dưới đây:

   Chọn ô xuất kết quả

5. Hoàn tất:
   Nhấn OK lần cuối và bạn sẽ thấy kết quả hợp nhất tại ô bạn đã chọn.

   Kết quả từ VBA

Kết hợp hai danh sách và loại bỏ các giá trị trùng lặp trong Excel không còn là thách thức nữa nếu bạn làm theo các bước trên. Hãy áp dụng ngay trong công việc của mình để có được những bảng dữ liệu sạch sẽ và dễ dàng hơn trong việc phân tích thông tin. Để tìm hiểu thêm nhiều mẹo hay về Excel, bạn hãy truy cập vào loigiaihay.edu.vn.