Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Chúng tôi thường sử dụng Bộ lọc trong Microsoft Excel khi chúng ta cần tách dữ liệu cụ thể khỏi dữ liệu hàng loạt. Bộ lọc nâng cao bổ sung một số tiện ích bổ sung. Excel VBA cũng có tùy chọn bộ lọc nâng cao này. Chúng tôi sẽ hiển thị một số ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao tại đây.

6 Ví dụ về Bộ lọc Nâng cao Excel VBA với Tiêu chí

6 ví dụ về Excel VBA tiêu chí bộ lọc nâng cao sẽ được hiển thị trong phần này.

Chúng tôi sẽ sử dụng tập dữ liệu sau cho mục đích này.

Ví dụ 1:Excel VBA để lọc dữ liệu ở vị trí hiện tại

Chúng tôi sẽ áp dụng VBA Macro để lọc dữ liệu dựa trên tiêu chí và đặt dữ liệu đã lọc ở vị trí hiện tại.

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Trong phạm vi B16:E17 , chúng tôi đặt ra các tiêu chí.

Bước 1:

Trước tiên, hãy chuyển đến Nhà phát triển tab.
Nhấp vào Ghi Macro từ dải băng.
Một hộp thoại mới sẽ xuất hiện. Đặt tên cho Macro ở đó và nhấn OK .

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Bước 2:

Bây giờ, hãy nhấp vào Macro trên dải băng.
Chọn Macro và Bước vào nó.

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Bước 3:

Bây giờ, hãy sao chép VBA sau mã và đặt nó vào mô-đun lệnh.

Sub Filter_Criteria()
Dim data As Range
Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter xlFilterInPlace, criteria
End Sub

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Bước 4:

Bây giờ, nhấn F5 để chạy mã.

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Chúng tôi đặt tiêu chí để hiển thị doanh số bán hàng của Chicago chỉ lưu trữ và đây là kết quả.

Đây là dữ liệu của chúng tôi và các tiêu chí trong cùng một trang tính.

Đọc thêm: Cách áp dụng bộ lọc nâng cao để sao chép sang vị trí khác trong Excel

Ví dụ 2:Excel VBA cho Bộ lọc Nâng cao khi Dữ liệu và Tiêu chí được Đưa ra trong Các Trang tính Khác nhau

Trong ví dụ này, chúng tôi sẽ chỉ ra cách đối mặt với tình huống khi các tiêu chí và dữ liệu của chúng tôi hiển thị trên các trang tính khác nhau.

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Dữ liệu của chúng tôi nằm trên trang tính có tên Criteria_Diosystem_Sheet và tiêu chí được đưa ra trong trang Tiêu chí .

Bước 1:

Nhấn Alt + F11 để vào mô-đun lệnh.
Đặt mã bên dưới vào mô-đun lệnh.

Sub Filter_Criteria_2()
 Dim data As Range
 Dim criteria As Range
   Set data = Sheets("Criteria_Different_Sheet").Range("B4:E14")
   Set criteria = Sheets("Criteria").Range("B4:E5")
   data.AdvancedFilter xlFilterInPlace, criteria
End Sub

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Bước 2:

Nhấn F5 để chạy mã.

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Chúng tôi có thể lọc dữ liệu khi các tiêu chí được đưa ra trên một trang tính khác theo cách này.

Đọc thêm: Áp dụng bộ lọc nâng cao dựa trên nhiều tiêu chí trong một cột trong Excel

Ví dụ 3:Excel VBA để lọc dữ liệu và dán vào các vị trí khác nhau của cùng một trang tính

Nếu bạn muốn dán dữ liệu đã lọc của chúng tôi vào một vị trí khác, hãy làm theo các bước bên dưới.

Bước 1:

Nhấn Alt + F11 để vào mô-đun lệnh.
Viết mã sau trên mô-đun lệnh.

Sub Filter_Criteria_3()
 Dim data As Range
 Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=criteria, CopyToRange:=Range("G4:J14")
End Sub

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Bước 2:

Nhấn F5 và mã sẽ chạy.

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Xem dữ liệu đã lọc được dán trên một vị trí khác. CopyToRange lệnh chỉ định một vị trí khác để dán dữ liệu.

Nội dung có Liên quan: Cách sử dụng Bộ lọc nâng cao để sao chép dữ liệu sang một trang tính khác trong Excel

Bài đọc tương tự:

Excel VBA:Bộ lọc Nâng cao với Nhiều Tiêu chí trong Một Phạm vi (5 Phương pháp)
Cách Sử dụng Bộ lọc Nâng cao để Loại trừ Ô trống trong Excel (3 Thủ thuật Dễ dàng)
Bộ lọc Nâng cao của Excel [Nhiều Cột &Tiêu chí, Sử dụng Công thức &Bằng Ký tự Đại diện]

Ví dụ 4:Chỉ lọc dữ liệu duy nhất bằng Excel VBA

Chúng tôi có thể lấy dữ liệu duy nhất từ Excel VBA này bộ lọc trước. Trong quá trình này, chỉ đầu tiên lần xuất hiện sẽ có trong tập dữ liệu và lần xuất hiện thứ 2 trở đi sẽ bị xóa.

Bước 1:

Nhập mô-đun lệnh bằng cách nhấn Alt + F11 .
Đặt đoạn mã sau vào mô-đun lệnh.

Sub Filter_Criteria_4()
 Dim data As Range
 Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter xlFilterInPlace, criteria, , True
End Sub

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Bước 2:

Bây giờ, hãy chạy mã bằng cách nhấn F5 .

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Chúng tôi đã đánh dấu đầu tiên sự xuất hiện của màu xanh lục và thứ 2 sự xuất hiện của màu vàng. Sau khi chạy mã, ô màu vàng sẽ bị xóa.

Đọc thêm: Cách sử dụng bộ lọc nâng cao chỉ dành cho bản ghi duy nhất trong Excel

Ví dụ 5:Lọc và Loại bỏ Bản sao Không có Tiêu chí trong Excel VBA

Chúng tôi có thể xóa các bản sao mà không cần thiết lập bất kỳ tiêu chí nào. Xem các bước bên dưới.

Bước 1:

Đi tới VBA mô-đun lệnh nhấn Alt + F11
Sao chép và dán đoạn mã sau vào mô-đun lệnh.

Sub Filter_Criteria_5()
 Dim data As Range
 Dim criteria As Range
Set data = Range("B4:E14")
data.AdvancedFilter xlFilterInPlace, , , True
End Sub

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Bước 2:

Nhấn F5 và mã sẽ chạy.

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Nhìn vào tập dữ liệu. Chúng tôi đã đánh dấu bản sao ở đây. Sau khi áp dụng mã, đầu tiên sự xuất hiện vẫn tồn tại trên tập dữ liệu và phần còn lại sẽ bị xóa.

Đọc thêm: Bộ lọc nâng cao của Excel không hoạt động (2 lý do và giải pháp)

Ví dụ 6:Chèn tiêu chí đăng nhập của nhà điều hành để lọc dữ liệu

Chúng tôi có thể sử dụng toán tử trong tiêu chí để lọc dữ liệu của chúng tôi. Xem các bước sau để biết điều đó.

Bước 1:

Nhấn Alt + F11 và nhập mô-đun lệnh.
Đặt mã bên dưới vào mô-đun.

Sub Filter_Criteria_7()
 Dim data As Range
 Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter xlFilterCopy, criteria, Range("G4:J14")
End Sub

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Bước 2:

Nhấn F5 để chạy mã.

Ví dụ về Excel VBA với tiêu chí bộ lọc nâng cao (6 trường hợp)

Kết quả là chúng tôi nhận được các giá trị lớn hơn $ 1,00 .

Đọc thêm: Cách sử dụng Bộ lọc nâng cao trong VBA (Hướng dẫn từng bước)

Những điều cần nhớ

Mỗi cột dữ liệu phải có một tiêu đề duy nhất.
Không có hàng trống nào được phép trong tập dữ liệu.

Kết luận

Trong bài viết này, chúng tôi đã chỉ ra 6 ví dụ về tiêu chí bộ lọc nâng cao VBA trong Excel. Tôi hy vọng điều này sẽ đáp ứng nhu cầu của bạn. Vui lòng xem trang web Exceldemy.com của chúng tôi và đưa ra đề xuất của bạn trong hộp nhận xét.

Các bài viết có liên quan

Bộ lọc Nâng cao với Nhiều Tiêu chí trong Excel (15 Ví dụ Thích hợp)
Bộ lọc Nâng cao Động Excel (VBA &Macro)
Bộ lọc Nâng cao với Phạm vi Tiêu chí trong Excel (18 Ứng dụng)
Cách Sử dụng Bộ lọc Nâng cao nếu Phạm vi Tiêu chí Chứa Văn bản trong Excel
Bộ lọc Nâng cao của Excel:Áp dụng “Không chứa” (2 Phương pháp)