hoanglocphat
Thành viên thường trực
![](/diendan/data/PhoToDanhHieu/gold.gif)
![](/diendan/data/PhoToDanhHieu/gold.gif)
![](/diendan/data/PhoToDanhHieu/gold.gif)
![](/diendan/data/PhoToDanhHieu/gold.gif)
- 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
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