sep_hatxel
Thành viên thường trực
- Tham gia
- 24/5/10
- Bài viết
- 217
- Được thích
- 7
Sub copy()
Sheet1.Range("A1:A18813").AdvancedFilter 2, , Sheet2.[d1], True
End Sub
Cảm ơn bạn rất nhiều! Đúng rồi bạn ạ! Chúc bạn ngày mới thành công!Bạn dùng advanced Filter với chức năng Unique Record only là được rồi. Nhưng mà hinh như chức năng này hổng cho copy sang sheet khác chỉ sheet hiện hành thôi nên muốn copy sang sheet khác thì minh dùng code để thực hiện
View attachment 60816PHP:Sub copy() Sheet1.Range("A1:A18813").AdvancedFilter 2, , Sheet2.[d1], True End Sub
Bạn dùng advanced Filter với chức năng Unique Record only là được rồi. Nhưng mà hinh như chức năng này hổng cho copy sang sheet khác chỉ sheet hiện hành thôi nên muốn copy sang sheet khác thì minh dùng code để thực hiện
PHP:Sub copy() Sheet1.Range("A1:A18813").AdvancedFilter 2, , Sheet2.[d1], True End Sub [/QUOTE] Chào bạn xin hỏi: nếu Sheet 1 có nhiều cột, tôi muốn thực hiện như vậy sang sheet 2, bạn có cách nào giúp không ah, Cảm ơn bạn