lọc pivotTable với điều kiện gần đúng trong vba

[Cu Tồ]

Chào các anh chị trong GPE
anh chi cho hỏi là khi sử dụng piotTable trong VBA làm sao để lọc với diệu kiện gần đúng ạ?
như ví dụ dưới đây, sẽ có các giá trị như : (cam1 , cam vn ,cam4, cam tt .) vậy cho e hỏi là làm sao để khi chạy macro thì các giá trị chứa chữ "cam" đều được lọc ra ạ?
cảm ơn anh chị em trong GPE ạ!
Sub locdulieu()
ActiveSheet.Range("A1" & lastcolumn & lastrow).AutoFilter Field:=3, Criteria1:="cam"
lastrow = Range("A5536").End(xlUp).Row
Range("A1:A" & lastrow).Select
Selection.Copy

End Sub

 

[dhn46]

Bạn sửa 1 chút là được

 Criteria1:="*cam*"

 

[Cu Tồ]

Bạn sửa 1 chút là được

Criteria1:="*cam*"

Vâng cảm ơn bác ah. Bác cho e hỏi thêm là e dùng dòng cuối để chọn dữ liệu và copy. Nhưng khi lọc không có giá trị phù hợp nó lại copy ngay dòng tiêu đề. Vậy làm thế nào để khi lọc không có giá trị thì bỏ qua chứ k copy phần tiêu đề ah?