Bỏ qua nội dung chính

 Làm cách nào để chỉ cho phép các giá trị duy nhất trong Excel?

Nếu bạn chỉ muốn giữ lại các giá trị duy nhất nhập vào một cột của trang tính và ngăn các bản sao, bài viết này sẽ giới thiệu một số thủ thuật nhanh để bạn giải quyết công việc này.

Chỉ cho phép các giá trị duy nhất trong trang tính có Xác thực dữ liệu

Chỉ cho phép các giá trị duy nhất trong trang tính có mã VBA

Chỉ cho phép các giá trị duy nhất trong trang tính với Kutools cho Excel


Chỉ cho phép các giá trị duy nhất trong trang tính có Xác thực dữ liệu

Trong thực tế, Xác nhận dữ liệu hàm của Excel có thể giúp bạn giải quyết vấn đề này, vui lòng làm như sau:

1. Chọn các ô hoặc cột mà bạn chỉ muốn nhập các giá trị duy nhất, sau đó bấm Ngày > Xác nhận dữ liệu > Xác nhận dữ liệu, xem ảnh chụp màn hình:

doc chỉ cho phép 1 duy nhất

2. Trong Xác nhận dữ liệu hộp thoại, vui lòng thực hiện các thao tác sau:

(1.) Nhấp vào Cài đặt chuyển hướng;

(2.) Dưới Cho phép danh sách thả xuống, chọn Tuỳ chỉnh;

(3.) Và nhập công thức này: = COUNTIF ($ E: $ E, E1) <2 (E là cột mà bạn muốn chỉ cho phép các giá trị duy nhất, E1 là ô đầu tiên của cột bạn muốn sử dụng) vào Công thức hộp văn bản.

doc chỉ cho phép 2 duy nhất

3. Và sau đó nhấp vào OK , kể từ bây giờ, khi bạn nhập giá trị trùng lặp vào cột cụ thể bạn đã đặt, một thông báo cảnh báo sẽ bật ra để nhắc bạn, hãy xem ảnh chụp màn hình:

doc chỉ cho phép 3 duy nhất


Chỉ cho phép các giá trị duy nhất trong trang tính có mã VBA

Nếu bạn quan tâm đến mã VBA, mã sau đây cũng có thể giúp bạn.

1. Nhấp chuột phải vào tab trang tính mà bạn muốn chỉ cho phép các số âm và chọn Mã Chế độ xem từ menu ngữ cảnh, trong cửa sổ bật ra Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng sao chép và dán đoạn mã sau vào chỗ trống Mô-đun:

Mã VBA: Chỉ cho phép các giá trị duy nhất trong trang tính:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160829
  Dim xRg As Range, iLong, fLong As Long
  If Not Intersect(Target, Me.[A1:A1000]) Is Nothing Then
     Application.EnableEvents = False
     For Each xRg In Target
     With xRg
         If (.Value <> "") Then
          If WorksheetFunction.CountIf(Me.[A:A], .Value) > 1 Then
            iLong = .Interior.ColorIndex
            fLong = .Font.ColorIndex
            .Interior.ColorIndex = 3
            .Font.ColorIndex = 6
            MsgBox "Duplicate Entry !", vbCritical, "Kutools for Excel"
            .ClearContents
            .Interior.ColorIndex = iLong
            .Font.ColorIndex = fLong
          End If
       End If
     End With
     Next
     Application.EnableEvents = True
  End If
End Sub

doc chỉ cho phép 4 duy nhất

Chú thích: Trong đoạn mã trên, A1: A1000 là các ô cột mà bạn muốn ngăn trùng lặp.

2. Sau đó, lưu và đóng mã này, bây giờ, khi bạn nhập các giá trị trùng lặp vào ô A1: A1000, một thông báo cảnh báo sẽ xuất hiện để nhắc bạn rằng mục nhập trùng lặp không được phép, hãy xem ảnh chụp màn hình:

doc chỉ cho phép 5 duy nhất

3. Sau đó nhấn vào OK , giá trị trùng lặp sẽ bị xóa.


Chỉ cho phép các giá trị duy nhất trong trang tính với Kutools cho Excel

Hai phương pháp trên chỉ có thể ngăn các mục nhập trùng lặp trong một cột, nếu bạn có Kutools cho ExcelCủa nó, Ngăn chặn trùng lặp tiện ích có thể giúp bạn nhanh chóng ngăn chặn trùng lặp trong một phạm vi ô và chỉ một cột hoặc hàng.

Kutools cho Excel : với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. 

Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau:

1. Chọn cột hoặc dải ô mà bạn muốn ngăn các giá trị trùng lặp nhưng chỉ cho phép dữ liệu duy nhất.

2. Sau đó nhấn vào Kutools > Ngăn chặn đánh máy > Ngăn chặn trùng lặp, xem ảnh chụp màn hình:

3. Và một thông báo cảnh báo sẽ bật ra để nhắc bạn Xác nhận dữ liệu sẽ bị xóa nếu áp dụng tính năng này, xem ảnh chụp màn hình:

doc chỉ cho phép 7 duy nhất

4. Sau đó nhấn vào để tiếp tục và một hộp nhắc khác hiện ra để nhắc bạn những ô nào đã được áp dụng tính năng này. Xem ảnh chụp màn hình:

doc chỉ cho phép 8 duy nhất

5. Và sau đó nhấp vào OK , bây giờ, khi bạn nhập một số dữ liệu trùng lặp trong phạm vi A1: D15, một hộp nhắc sẽ hiển thị để nhắc bạn rằng dữ liệu trùng lặp không hợp lệ, bạn chỉ cần nhập giá trị duy nhất. Xem ảnh chụp màn hình:

doc chỉ cho phép 9 duy nhất

Hơn 200 chức năng có thể thực hiện công việc của bạn một cách hiệu quả, bạn có thể tải xuống Kutools cho Excel miễn phí.


Demo: Chỉ cho phép các giá trị duy nhất trong trang tính với Kutools cho Excel

Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay!

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

tab kte 201905


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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I was expecting the formula would work when you paste too. But for me it only works if I type. When typing a value that is not unique I see the error massage and I'm not allowed to continue. Which is great. However, if I paste the value, no error message appears. Is that expected, or I am doing something wrong?
This comment was minimized by the moderator on the site
this formula didn't work =COUNTIF($A:$A,A2)<2
This comment was minimized by the moderator on the site
Please try below formula:

=COUNTIF($A:$A,A1)<2
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations