Tìm nhiều cụm từ, sau đó delete các dòng có cụm từ đó

Liên hệ QC

hoanglocphat

Thành viên thường trực
Tham gia
27/1/13
Bài viết
258
Được thích
30
Nhờ các bạn giải quyết vấn đề sau:
Tôi muốn các cụm từ: (VANG/CO LY DO), (BINH), (KHONG RO) ...
Nếu có các từ này trong cột B thì delete những dòng nào có từ đó

Tôi có Rercod (dùng Add current selection to filter), nhưng không thể áp dụng cho thực tế được vì họ tên bị thay đổi thì nó tìm không được, nhờ các bạn sửa code hoặc viết mới

Sub Macro8()

ActiveSheet.Range("$A$2:$C$8").AutoFilter Field:=2, Criteria1:= _
"Nguyê~n Van Minh (VANG/CO LY DO)"
ActiveSheet.Range("$A$2:$C$8").AutoFilter Field:=2, Criteria1:=Array( _
"Lê Tri´ Du~ng (Binh)", "Ngô Van Vang (BINH)", "Nguyê~n Van Minh (VANG/CO LY DO)" _
), Operator:=xlFilterValues
ActiveSheet.Range("$A$2:$C$8").AutoFilter Field:=2, Criteria1:=Array( _
"Lê Tri´ Du~ng (Binh)", "Ngô Van Vang (BINH)", "Nguyê~n Bi´nh Hu`ng (KHONG RO)", _
"Nguyê~n Van Minh (VANG/CO LY DO)"), Operator:=xlFilterValues
Rows("3:11").Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
End Sub
Xin cảm ơn
 

File đính kèm

Chú: quyển từ điển này bảo nó dịch #IF thì nó trả lời rằng # là dấu hash, IF là một function. Tôi đem ghép lại thì ra #IF là hash function.
À, cám ơn cám ơn. Thế mà bao năm nay tôi cứ rung đùi sống trong sự không hiểu biết.

Tôi cứ tưởng đó là lệnh có điều kiện (biên dịch có điều kiện) - conditional directives (conditional compilation). Tức là lệnh, thông tin cho trình biên dịch - compiler.

Bên Delphi không dùng # mà dùng $ - $IF ... $ELSE ... $IFEND. Chắc đây là đô la hàm? :D
 
Upvote 0
Lúc đầu tôi cũng nghĩ vậy. Nhưng cái quyển từ điển "cút bút" mà tôi mới vừa sưu tập được này nó nói nhiều điều mới lắm.
Tôi chưa lật ra xem hết nhưng cứ theo tinh thần cút bút (sách dạy xào nấu), thì tôi tạm đoán rằng nếu đem thuốc bổ Xé lẻ cho con Pái thòn uống thì nó sẽ mập ra, và có thể đem băm làm chả.

(*) hash function thì chắc là băm chả. Chứ nếu hash brown thì đúng tiếng Mẽo là khoai tây băm chiên dòn.
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom