Code Thay Thế Chức Năng Filter | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Code thay thế chức năng filter (1 người xem)

• Thread starter Thread starter ruamap9
• Ngày gửi Ngày gửi 6/11/13

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) R

ruamap9

Thành viên mới

Tham gia 17/10/12 Bài viết 13 Được thích 0 Chào các anh chị trên diễn đàn! Em đáng có một vấn đề vướng mắc cần các anh chị trợ giúp. Chi tiết có trong file đính kèm Cảm ơn các anh chị!

File đính kèm

• chuc nang filter.xls chuc nang filter.xls 25 KB · Đọc: 83

Sắp xếp theo thời gian sắp xếp theo bầu chọn

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆

Thành viên BQT Administrator Tham gia 18/3/08 Bài viết 8,313 Được thích 15,880 Giới tính Nam Nghề nghiệp Làm ruộng.

ruamap9 đã viết: Chào các anh chị trên diễn đàn! Em đáng có một vấn đề vướng mắc cần các anh chị trợ giúp. Chi tiết có trong file đính kèm Cảm ơn các anh chị! Nhấp chuột vào đây để mở rộng...

Record macro lại động tác sau: 1./ Lọc duy nhất cột họ tên, đưa ra cột I, vậy là ta có kết quả duy nhất của tên. 2./ Dùng hàm Vlookup để điền Quê vào cột J, Copy và Paste Value cột J. Upvote 0

Let'GâuGâu

Thành viên mới

Tham gia 12/9/13 Bài viết 3,131 Được thích 2,732

ruamap9 đã viết: Chào các anh chị trên diễn đàn! Em đáng có một vấn đề vướng mắc cần các anh chị trợ giúp. Chi tiết có trong file đính kèm Cảm ơn các anh chị! Nhấp chuột vào đây để mở rộng...

xem thử Sub Macro1() Dim found As Range [I10:J1000].ClearContents [D926].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[I9], Unique:=True For i = 10 To [I1000].End(3).Row Set found = [D91000].Find(Range("I" & i), , , , , 1) If Not found Is Nothing Then Range("j" & i) = found.Offset(, 1) End If Next End Sub Upvote 0

Quang_Hải

Thành viên gạo cội

Tham gia 21/2/09 Bài viết 6,077 Được thích 8,011 Nghề nghiệp Làm đủ thứ

ruamap9 đã viết: Chào các anh chị trên diễn đàn! Em đáng có một vấn đề vướng mắc cần các anh chị trợ giúp. Chi tiết có trong file đính kèm Cảm ơn các anh chị! Nhấp chuột vào đây để mở rộng...

Xem thêm PHP: Sao chép. Sub Loc() Dim I As Long, J As Long, Cot As Long, X As Long Dim Sarr(), Darr(), Dk As String Cot = 2 Sarr = Range([D10], [D65536].End(3)).Resize(, Cot).Value ReDim Darr(1 To UBound(Sarr), 1 To Cot) With CreateObject("Scripting.Dictionary") For I = 1 To UBound(Sarr) Dk = Sarr(I, 1) & Sarr(I, Cot) If Not .exists(Dk) Then J = J + 1 .Add Dk, J For X = 1 To Cot Darr(J, X) = Sarr(I, X) Next End If Next End With [I10].Resize(J, Cot) = Darr End Sub Upvote 0

leonguyenz

Thành viên gạo cội

Thành viên BQT Moderator Tham gia 2/8/10 Bài viết 5,225 Được thích 9,026 Giới tính Nam Rercod Marco chức năng Remove Duplicates là gọn nhẹ mà: [gpecode=vb] Sub RemoveDup() Range("$D$9:$E$26").RemoveDuplicates 1, xlYes End Sub [/gpecode] Upvote 0

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆

Thành viên BQT Administrator Tham gia 18/3/08 Bài viết 8,313 Được thích 15,880 Giới tính Nam Nghề nghiệp Làm ruộng.

leonguyenz đã viết: Rercod Marco chức năng Remove Duplicates là gọn nhẹ mà: [gpecode=vb] Sub RemoveDup() Range("$D$9:$E$26").RemoveDuplicates 1, xlYes End Sub [/gpecode] Nhấp chuột vào đây để mở rộng...

Lưu ý chỉ có ở Excel 2007 trở lên thôi Thảo à. Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,979

Let'GâuGâu đã viết: xem thử Sub Macro1() Dim found As Range [I10:J1000].ClearContents [D926].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[I9], Unique:=True For i = 10 To [I1000].End(3).Row Set found = [D91000].Find(Range("I" & i), , , , , 1) If Not found Is Nothing Then Range("j" & i) = found.Offset(, 1) End If Next End Sub Nhấp chuột vào đây để mở rộng...

Không cần For... Next cũng được mà: Mã: Sao chép. Sub Macro2() Range("I9:J1000").ClearContents With Range("D9:D1000") .AdvancedFilter [COLOR=#ff0000]1[/COLOR], , , True [COLOR=#ff0000].Resize(, 2).SpecialCells(12)[/COLOR].Copy Range("I9") [COLOR=#ff0000].Parent.ShowAllData[/COLOR] End With End Sub (nghiên cứu những chổ màu đỏ) Upvote 0

leonguyenz

Thành viên gạo cội

Thành viên BQT Moderator Tham gia 2/8/10 Bài viết 5,225 Được thích 9,026 Giới tính Nam

Hai Lúa Miền Tây đã viết: Lưu ý chỉ có ở Excel 2007 trở lên thôi Thảo à. Nhấp chuột vào đây để mở rộng...

Vậy dùng code này thử xem, theo cách anh nói, thay Vlookup bằng Find: [gpecode=vb] Sub Loc() Dim iR As Long, Rng As Range Set Rng = Range("D926") Range("I9:J" & Rng.Rows.Count).Clear Rng.AdvancedFilter 2, , Range("I9"), True Range("J9") = Range("E9").Value For iR = 1 To Range("I10:I" & Range("I65535").End(xlUp).Row).Rows.Count Cells(iR + 9, "J") = Rng.Find(Cells(iR + 9, "I"), , , 1).Offset(, 1) Next iR End Sub [/gpecode]

File đính kèm

• chuc nang filter.xls chuc nang filter.xls 51 KB · Đọc: 50

Upvote 0

leonguyenz

Thành viên gạo cội

Thành viên BQT Moderator Tham gia 2/8/10 Bài viết 5,225 Được thích 9,026 Giới tính Nam

ndu96081631 đã viết: Không cần For... Next cũng được mà: Mã: Sao chép. Sub Macro2() Range("I9:J1000").ClearContents With Range("D9:D1000") .AdvancedFilter [COLOR=#ff0000]1[/COLOR], , , True [COLOR=#ff0000].Resize(, 2).SpecialCells(12)[/COLOR].Copy Range("I9") [COLOR=#ff0000].Parent.ShowAllData[/COLOR] End With End Sub (nghiên cứu những chổ màu đỏ) Nhấp chuột vào đây để mở rộng...

Nhờ Thầy diễn giải dùm: - SpecialCells(12), ý nghĩa số 12 và Parent.ShowAllData (trong VBA xem được 10 đối số (hay tham số gì đó) của SpecialCells) - Dùng code này để dò tìm giống như Vlookup hoặc Find được không? Cảm ơn! Upvote 0

leonguyenz

Thành viên gạo cội

Thành viên BQT Moderator Tham gia 2/8/10 Bài viết 5,225 Được thích 9,026 Giới tính Nam Em rõ cái SpecialCells rồi, 12 là giá trị của xlCellTypeVisible. Còn ShowAllData tại sao trong Help chỉ nói đến Ver 2007? 2003 có dùng được không Thầy? Nhờ Thầy diễn giải dùm .Parent.ShowAllData. Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,979

leonguyenz đã viết: Nhờ Thầy diễn giải dùm: - SpecialCells(12), ý nghĩa số 12 và Parent.ShowAllData (trong VBA xem được 10 đối số (hay tham số gì đó) của SpecialCells) - Dùng code này để dò tìm giống như Vlookup hoặc Find được không? Cảm ơn! Nhấp chuột vào đây để mở rộng...

Bài này nếu làm bằng tay thì ta sẽ làm như sau: - Quét chọn cột D (1 cột duy nhất) và dùng Advanced Filter lọc duy nhất tại chổ (không copy sang nơi khác) - Xong, bây giờ mới quét chọn 2 cột (D và E), Ctrl + G\Spcial\Visible Cells only - Bấm Ctrl + C để copy rồi chọn I9 và Paste - Cuối cùng, vào mục Sort & Filter, chọn Clear (tương đương với ShowAll Data bên Excel 2003) ===> 2 cái màu đỏ mà Thảo hỏi ở trên tương ứng là 2 cái màu đỏ trả lời bên dưới Còn cái Parent thì dễ hiểu rồi: Nó là CHA MẸ ---> Range("gi gì đó").Parent chính là Cha Mẹ của Range("gi gì đó"), tức là đang nói đến Sheet chứa Range("gi gì đó") đấy mà Cái mà các bạn cần đặt câu hỏi ở đây là: Tại sao tôi không viết: Sheet1.ShowAllData mà lại viết .Parent.ShowAllData Lần chỉnh sửa cuối: 6/11/13 Upvote 0

leonguyenz

Thành viên gạo cội

Thành viên BQT Moderator Tham gia 2/8/10 Bài viết 5,225 Được thích 9,026 Giới tính Nam

ndu96081631 đã viết: Bài này nếu làm bằng tay thì ta sẽ làm như sau: - Quét chọn cột D (1 cột duy nhất) và dùng Advanced Filter lọc duy nhất tại chổ (không copy sang nơi khác) - Xong, bây giờ mới quét chọn 2 cột (D và E), Ctrl + G\Spcial\Visible Cells only - Bấm Ctrl + C để copy rồi chọn I9 và Paste - Cuối cùng, vào mục Sort & Filter, chọn Clear (tương đương với ShowAll Data bên Excel 2003) ===> 2 cái màu đỏ mà Thảo hỏi ở trên tương ứng là 2 cái màu đỏ trả lời bên dưới Còn cái Parent thì dễ hiểu rồi: Nó là CHA MẸ ---> Range("gi gì đó").Parent chính là Cha Mẹ của Range("gi gì đó"), tức là đang nói đến Sheet chứa Range("gi gì đó") đấy mà Cái mà các bạn cần đặt câu hỏi ở đây là: Tại sao tôi không viết: Sheet1.ShowAllData mà lại viết .Parent.ShowAllData Nhấp chuột vào đây để mở rộng...

Thầy diễn giải vậy rất dễ hiểu. Khi Record Marco (đã xén bớt): [gpecode=vb] Sub Macro4() Range("D926").AdvancedFilter Action:=xlFilterInPlace, Unique:=True Range("D9:E26").SpecialCells(xlCellTypeVisible).Copy Range("I9") ActiveSheet.ShowAllData End Sub [/gpecode] Đúng như Thầy nói định hỏi tại sao lại dùng .Parent, mà như Thầy giải thích thì em hiểu nó bao hàm đối tượng trên Sheet đã chọn. Híc, đang muốn học hỏi thêm, nhưng giờ em bận họp mất rồi. Cảm ơn Thầy! Upvote 0

Let'GâuGâu

Thành viên mới

Tham gia 12/9/13 Bài viết 3,131 Được thích 2,732

ndu96081631 đã viết: Tại sao tôi không viết: Sheet1.ShowAllData mà lại viết .Parent.ShowAllData Nhấp chuột vào đây để mở rộng...

theo tôi đoán là vậy: nếu sheet1.showalldata thì trên sheet đó có chổ nào có filter thì nó gởi bỏ hết còn .Parent thì nó chỉ gởi bỏ filter ở vùng gốc thôi để kiểm tra thử xem đúng không?hihhihihi hỏng đúng, nó quốc tuốt luốt hết.ihichic. Lần chỉnh sửa cuối: 6/11/13 Upvote 0

mhung12005

Thành viên chậm chạm

Tham gia 20/7/11 Bài viết 1,598 Được thích 1,261 Nghề nghiệp Đâu có việc thì làm

Let'GâuGâu đã viết: theo tôi đoán là vậy: nếu sheet1.showalldata thì trên sheet đó có chổ nào có filter thì nó gởi bỏ hết còn .Parent thì nó chỉ gởi bỏ filter ở vùng gốc thôi để kiểm tra thử xem đúng không?hihhihihi hỏng đúng, nó quốc tuốt luốt hết.ihichic. Nhấp chuột vào đây để mở rộng...

Theo mình thì không phải vậy đâu bạn ơi. Vì: ShowAllData = Clear (nghĩa là bấm vào nút Clear trong khung Sỏrt & Filter í) nên tất cả các vùng có dùng filter đều bỏ hết. Upvote 0

Quang_Hải

Thành viên gạo cội

Tham gia 21/2/09 Bài viết 6,077 Được thích 8,011 Nghề nghiệp Làm đủ thứ A là cha của B B là cha của C C là cha của D Nếu ta nói C.parent là ta muốn nói tới B. Tương tự cứ phá CD.. trong Dos để quay về thư mục mẹ Upvote 0

mhung12005

Thành viên chậm chạm

Tham gia 20/7/11 Bài viết 1,598 Được thích 1,261 Nghề nghiệp Đâu có việc thì làm

quanghai1969 đã viết: A là cha của B B là cha của C C là cha của D Nếu ta nói C.parent là ta muốn nói tới B. Tương tự cứ phá CD.. trong Dos để quay về thư mục mẹ Nhấp chuột vào đây để mở rộng...

Em cũng nghĩ như vậy. Như trong trường hợp của sư phụ NDU viết thì em hiểu là : Cha hay mẹ gì đó của Range("D91000") - tức là Activessheet.Showalldata. Vậy đúng không anh ? Upvote 0 S

siwtom

Thành viên gắn bó

Tham gia 19/3/08 Bài viết 2,127 Được thích 4,211

mhung12005 đã viết: Em cũng nghĩ như vậy. Như trong trường hợp của sư phụ NDU viết thì em hiểu là : Cha hay mẹ gì đó của Range("D91000") - tức là Activessheet.Showalldata. Vậy đúng không anh ? Nhấp chuột vào đây để mở rộng...

Thì đúng rồi. Nhìn code ta chỉ thấy Range("D91000"), tức đây là vùng trên ActiveSheet. Vậy Range("D91000").Parent = ActiveSheet Còn tại sao dùng Parent thay cho Sheet1 thì trong bài này tôi nghĩ thế này. Trong tất cả 5 sheet thì vùng dữ liệu nằm ở vị trí như nhau. Nếu ta chạy code khi sheet1, sheet2, ..., hoặc sheet5 đang activate thì code sẽ thao tác trên ActiveSheet, tức sheet1, ..., hoặc sheet5. Nếu ta thay Parent bằng Sheet1 mà ta chạy code khi vd. sheet3 đang activate thì các thao tác lọc và copy được làm trên sheet3 nhưng ShowAllData lại được gọi cho Sheet1, tức không đúng. Nói cách khác nếu dùng Parent thì ta có thể chạy code khi bất cứ sheet nào đang activate. Tức ShowAllData luôn được gọi cho sheet có chứa Range "kia". Nếu dùng sheetxyz thì khi ta chạy code cho sheet khác thì lại phải sửa thành: sheet2, ..., hoặc sheet5. Thậm chí nếu vùng dữ liệu trên các sheet nằm ở vị trí khác nhau thì khi chạy code cho active sheet cụ thể thì chỉ phải sửa lại Range(...) mà thôi. Dùng Sheetxyz thay cho Parent thì phải sửa ở 2 chỗ. Tất nhiên nếu code chỉ cần chạy trên sheet cụ thể thì cứ viết tường minh ra vd. Sheet2.Range("D91000"), Sheet2.Range("I9"), Sheet2.ShowAllData Lúc đó code luôn chạy cho sheet2 bất chấp active sheet là sheet nào. Hay là còn bí mật gì mà tôi không nghĩ tới? Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,979

mhung12005 đã viết: Em cũng nghĩ như vậy. Như trong trường hợp của sư phụ NDU viết thì em hiểu là : Cha hay mẹ gì đó của Range("D91000") - tức là Activessheet.Showalldata. Vậy đúng không anh ? Nhấp chuột vào đây để mở rộng...

Trường hợp này viết ActiveSheet là hoàn toàn chính xác Nhưng ý tôi muốn các bạn để ý đến Parent. So sánh 2 code Mã: Sao chép. With Range(....) .... .... [B][COLOR=#ff0000].Parent[/COLOR][/B].ShowAllData End With Và: Mã: Sao chép. With Range(....) .... .... [COLOR=#ff0000][B]ActiveSheet[/B][/COLOR].ShowAllData End With Gần như hoàn toàn giống nhau. Nhưng nếu người ta sửa 1 chút thế này: Mã: Sao chép. With [B][COLOR=#0000cd]Sheets("ABCXYZ gì gì đó")[/COLOR][/B].Range(....) .... .... [B][COLOR=#ff0000].Parent[/COLOR][/B].ShowAllData End With Thì cái Parent ở đây sẽ hoàn toàn khác với thằng ActiveSheet bên dưới Mã: Sao chép. With [B][COLOR=#0000cd]Sheets("ABCXYZ gì gì đó").[/COLOR][/B]Range(....) .... .... [COLOR=#ff0000][B]ActiveSheet[/B][/COLOR].ShowAllData End With Cái .Parent là đang nói đến Sheet "ABCXYZ gì gì đó" còn ActiveSheet là đang nói đến cái Sheet mà ta đang đứng khi thực thi code ---> Nó sẽ thật sự khác biệt khi ta đứng tại sheet này và xử lý dữ liệu tại 1 Sheet khác Tóm lại: - .Parent của vùng dữ liệu nào thì nghĩa là ta đang chỉ chính xác đến cái Sheet chứa dữ liệu đó - ActiveSheet: Không liên quan gì đến dữ liệu nào cả, nó chỉ đơn giản là Sheet hiện hành - Trong 1 số trường hợp cụ thế (khi chạy dữ liệu trên nhiều sheet) thì .Parent không bao giờ = ActiveSheet - Theo thói quen: Hể ta With... cái gì ở phía trên thì phải "bám nó" đến cùng (nếu không thì With làm gì) Upvote 0 R

ruamap9

Thành viên mới

Tham gia 17/10/12 Bài viết 13 Được thích 0

siwtom đã viết: Thì đúng rồi. Nhìn code ta chỉ thấy Range("D91000"), tức đây là vùng trên ActiveSheet. Vậy Range("D91000").Parent = ActiveSheet Còn tại sao dùng Parent thay cho Sheet1 thì trong bài này tôi nghĩ thế này. Trong tất cả 5 sheet thì vùng dữ liệu nằm ở vị trí như nhau. Nếu ta chạy code khi sheet1, sheet2, ..., hoặc sheet5 đang activate thì code sẽ thao tác trên ActiveSheet, tức sheet1, ..., hoặc sheet5. Nếu ta thay Parent bằng Sheet1 mà ta chạy code khi vd. sheet3 đang activate thì các thao tác lọc và copy được làm trên sheet3 nhưng ShowAllData lại được gọi cho Sheet1, tức không đúng. Nói cách khác nếu dùng Parent thì ta có thể chạy code khi bất cứ sheet nào đang activate. Tức ShowAllData luôn được gọi cho sheet có chứa Range "kia". Nếu dùng sheetxyz thì khi ta chạy code cho sheet khác thì lại phải sửa thành: sheet2, ..., hoặc sheet5. Thậm chí nếu vùng dữ liệu trên các sheet nằm ở vị trí khác nhau thì khi chạy code cho active sheet cụ thể thì chỉ phải sửa lại Range(...) mà thôi. Dùng Sheetxyz thay cho Parent thì phải sửa ở 2 chỗ. Tất nhiên nếu code chỉ cần chạy trên sheet cụ thể thì cứ viết tường minh ra vd. Sheet2.Range("D91000"), Sheet2.Range("I9"), Sheet2.ShowAllData Lúc đó code luôn chạy cho sheet2 bất chấp active sheet là sheet nào. Hay là còn bí mật gì mà tôi không nghĩ tới? Nhấp chuột vào đây để mở rộng...

Cảm ơn các anh chị đã giải đáp. Cho em hỏi thêm với trường hợp em cần xóa hẳn các dòng chứa dự liệu trùng nhau như trên nhưng kết quả lại điền giữ nguyên tại vị trí ô D10 và lặp các kết quả cho các sheet còn lại thì làm bằng cách nào ạ? Em xin gửi kèm file chuc nang filter-2.xls với đề nghị cần giúp đỡ như trong file. Cảm ơn các anh chị!

File đính kèm

• chuc nang filter-2.xls chuc nang filter-2.xls 28.5 KB · Đọc: 22

Lần chỉnh sửa cuối: 6/11/13 Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,979

ruamap9 đã viết: Cảm ơn các anh chị đã giải đáp. Cho em hỏi thêm với trường hợp em cần xóa hẳn các dòng chứa dự liệu trùng nhau như trên nhưng kết quả lại điền giữ nguyên tại vị trí ô D10 và lặp các kết quả cho các sheet còn lại thì làm bằng cách nào ạ? Em xin gửi kèm file chuc nang filter-2.xls với đề nghị cần giúp đỡ như trong file. Cảm ơn các anh chị! Nhấp chuột vào đây để mở rộng...

Hơi khó 1 chút nhưng cũng làm được tuốt bằng Advanced Filter: Mã: Sao chép. Sub RemoveDuplicate() Dim rFilder As Range On Error Resume Next With Range("D9:E100") Application.ScreenUpdating = False .Resize(, 1).AdvancedFilter 1, , , True Set rFilder = .SpecialCells(12) .Parent.ShowAllData rFilder.EntireRow.Hidden = True .SpecialCells(12).Delete 2 .EntireRow.Hidden = False End With Application.ScreenUpdating = True End Sub Code này thực thi trên 1 Sheet. Nếu muốn nhiều sheet thì For..Next Mời các cao thủ thêm phần for.. next vào nhé. Bây giờ các bạn mới thấy tác dụng của Parent đây Lần chỉnh sửa cuối: 6/11/13 Upvote 0 R

ruamap9

Thành viên mới

Tham gia 17/10/12 Bài viết 13 Được thích 0

ndu96081631 đã viết: Hơi khó 1 chút nhưng cũng làm được tuốt bằng Advanced Filter: Mã: Sao chép. Sub RemoveDuplicate() Dim rFilder As Range On Error Resume Next With Range("D9:E100") Application.ScreenUpdating = False .Resize(, 1).AdvancedFilter 1, , , True Set rFilder = .SpecialCells(12) .Parent.ShowAllData rFilder.EntireRow.Hidden = True .SpecialCells(12).Delete 2 .EntireRow.Hidden = False End With Application.ScreenUpdating = True End Sub Code này thực thi trên 1 Sheet. Nếu muốn nhiều sheet thì For..Next Mời các cao thủ thêm phần for.. next vào nhé. Bây giờ các bạn mới thấy tác dụng của Parent đây Nhấp chuột vào đây để mở rộng...

Em xin cảm ơn Thầy ndu96081631 và các anh chị. Chỉ còn vòng lặp For..Next để thực hiện cho nhiều sheet nữa mong các Pro chỉ giáo. Upvote 0

Thong Hoang Tien 250691

Thành viên hoạt động

Tham gia 14/5/17 Bài viết 141 Được thích 125 Giới tính Nam /note: Set rng = Workbooks("Test1").Sheets(2).Range("E:F").Select ActiveSheet.Range(rng).RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes đoạn code này của mình chạy trong file tên Book2.xlsm, nhưng sao khi chạy nó báo type mismatch nhỉ? ai giải thích giúp mình với Upvote 0

phulien1902

GPE - My love

Tham gia 6/7/13 Bài viết 3,543 Được thích 4,425

Thong Hoang Tien 250691 đã viết: /note: Set rng = Workbooks("Test1").Sheets(2).Range("E:F").Select ActiveSheet.Range(rng).RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes đoạn code này của mình chạy trong file tên Book2.xlsm, nhưng sao khi chạy nó báo type mismatch nhỉ? ai giải thích giúp mình với Nhấp chuột vào đây để mở rộng...

Bạn thử thay: PHP: Sao chép. Set rng = Workbooks("Test1").Sheets(2).Range("E:F").Select bằng: PHP: Sao chép. Sheets(2).Range("E:F").Select Upvote 0

Thong Hoang Tien 250691

Thành viên hoạt động

Tham gia 14/5/17 Bài viết 141 Được thích 125 Giới tính Nam

phulien1902 đã viết: Bạn thử thay: PHP: Sao chép. Set rng = Workbooks("Test1").Sheets(2).Range("E:F").Select bằng: PHP: Sao chép. Sheets(2).Range("E:F").Select Nhấp chuột vào đây để mở rộng...

phulien1902 đã viết: Bạn thử thay: PHP: Sao chép. Set rng = Workbooks("Test1").Sheets(2).Range("E:F").Select bằng: PHP: Sao chép. Sheets(2).Range("E:F").Select Nhấp chuột vào đây để mở rộng...

không được bạn, bạn thử xem file giúp mình có vấn đề gì với nó vậy . Upvote 0

Thong Hoang Tien 250691

Thành viên hoạt động

Tham gia 14/5/17 Bài viết 141 Được thích 125 Giới tính Nam Mã: Sao chép. Public Sub ABC() Dim wb1 As Workbook, wb2 As Workbook Dim ws1 As Worksheet, ws2 As Worksheet Dim rng1 As Range, rng2 As Range ChDir "C:\Users\thoangti\Desktop\" Workbooks.OpenText Filename:= _ "C:\Users\thoangti\Desktop\Test1.xlsx" Workbooks("Test1.xlsx").Activate Set wb1 = Workbooks("test1") Set ws1 = Sheets(1) Set ws2 = Sheets(2) With wb1 With ws2 .Range("D:H").ClearContents End With With ws1 lR1 = .Range("B" & Rows.Count).End(xlUp).Row For i = 2 To lR1 Set code = Sheets(1).Cells(i, 5) Set vTO = Sheets(1).Cells(i, 2) If Len(code) = 7 Then vcode = code Else vcode = "0" & code End If copydata = Workbooks("Test1").Sheets(2).Cells(Rows.Count, "E").End(xlUp).Row Workbooks("Test1").Sheets(2).Cells(copydata + 1, "E") = vTO Workbooks("Test1").Sheets(2).Cells(copydata + 1, "F") = vcode Next i End With With ws2 lr2 = .Range("E" & Rows.Count).End(xlUp).Row Set rng = Workbooks("Test1").Sheets(2).Range("E:F").Select ActiveSheet.Range(rng).RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes 'bi loi o day End With End With End Sub Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

L nhờ hoàn thiện file dò xổ số (2 người xem)

• levovantoan
• Hôm qua, lúc 23:25
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 0 Đọc 17 Hôm qua, lúc 23:25 levovantoan L K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ... (1 người xem)

• kaoehtkid
• Thứ hai lúc 19:04
• Những vấn đề chung

Trả lời 13 Đọc 273 Hôm qua, lúc 19:07 ongke0711 Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự

• • 

• HeSanbi
• 13/12/25
• Xử lý chuỗi ký tự

Trả lời 2 Đọc 217 Hôm qua, lúc 17:38 HeSanbi Cùng xây dựng file Gia Phả (1 người xem)

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 43 Đọc 21K Hôm qua, lúc 15:48 Maika8008 Tính định mức sản phẩm

• • 

• Nguyenkhang2404
• 24/7/25
• Hàm và công thức Excel

Trả lời 11 Đọc 915 Hôm qua, lúc 14:27 nguyenanhtruong2409 N T Lọc dự liệu với hai điều kiện (1 người xem)

• tiny1010
• 16/3/10
• Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu

Trả lời 18 Đọc 7K Hôm qua, lúc 14:11 nguyenanhtruong2409 N N Tổng hợp 2 sheet khác nhau (có 1 cột dữ liệu trùng) trong goole sheet

• Na7979
• Hôm qua, lúc 14:01
• Google Sheets

Trả lời 0 Đọc 14 Hôm qua, lúc 14:01 Na7979 N D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• 12/12/25
• Lập Trình với Excel

Trả lời 17 Đọc 403 Hôm qua, lúc 12:04 ptm0412 P Lỗi hàm VBA phải add-in sau mỗi lần mở file

• phamdinh.huy.aladin@gmail
• Thứ hai lúc 10:18
• Hàm và công thức Excel

Trả lời 7 Đọc 228 Hôm qua, lúc 08:11 minhnghia123 M Nếu diễn đàn GPE đóng cửa?

• • 
  • 

• PhanTuHuong
• Chủ nhật lúc 23:46
• Thư giãn

Trả lời 18 Đọc 624 Hôm qua, lúc 00:08 Gà Con yêu VBA M Sai lệch vùng dữ liệu khi tạo Name Range bằng VBA

• • 

• Mr_Siro
• Thứ tư lúc 10:57
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 5 Đọc 147 Thứ năm lúc 13:23 Mr_Siro M P Tìm giá trị tồn kho đầu ngày

• ptthuongtn
• Thứ tư lúc 15:15
• Hàm và công thức Excel

Trả lời 3 Đọc 150 Thứ năm lúc 11:22 Duy Tùng 9x Xin giúp đỡ về việc áp dụng hàm phù hợp để phân tách dữ liệu (1 người xem)

• skygatevn
• Thứ tư lúc 11:59
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 3 Đọc 109 Thứ tư lúc 13:52 skygatevn Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025! (1 người xem)

• • 

• PhanTuHuong
• 10/12/25
• Câu lạc bộ hoạt động xã hội

Trả lời 5 Đọc 329 Thứ tư lúc 12:43 GPE-Trợ Lý D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện

• dieppk.nb92
• Chủ nhật lúc 01:22
• Hàm và công thức Excel

Trả lời 14 Đọc 431 Thứ tư lúc 10:20 dieppk.nb92 D CHUNG TAY HƯỚNG VỀ MIỀN TRUNG NĂM 2025

• • 

• GPE-Trợ Lý
• 24/11/25
• Câu lạc bộ hoạt động xã hội

Trả lời 12 Đọc 905 Thứ tư lúc 07:38 PhanTuHuong

• Đã giải quyết

WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại) (1 người xem)

• • 
  • 

• HeSanbi
• 30/5/20
• Lập Trình với Excel

Trả lời 92 Đọc 27K Thứ ba lúc 19:57 Maika8008

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

4 5 6 Trả lời 580 Đọc 83K Thứ ba lúc 08:39 pycckuu410 E

• Đã giải quyết

VBA code thay thế cho pivot-table lấy top 10, bottom 10

• • 

• eagle12
• 8/12/25
• Lập Trình với Excel

Trả lời 24 Đọc 591 Thứ hai lúc 16:19 eagle12 E H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel (1 người xem)

• H_P
• 13/12/25
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 2 Đọc 157 Thứ hai lúc 05:30 DeTong D Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• Maika8008 37
• thanthanhan 22
• dungpham01 19
• ongke0711 19
• eagle12 16
• ptm0412 16
• nguyenanhtruong2409 16
• Phan Thế Hiệp 13
• HUONGHCKT 12
• vic_it 11
• nhhnam 10
• pycckuu410 10
• Vũ Hải Sơn 9
• HeSanbi 9
• dieppk.nb92 8
• Gà Con yêu VBA 8
• bsbnhh 7
• duongnhuxuyen 7
• Hana2610 6
• kaoehtkid 6

Thành viên có điểm tương tác cao nhất tháng

• Phan Thế Hiệp 64
• Maika8008 31
• thanthanhan 18
• ongke0711 17
• ptm0412 16
• HeSanbi 14
• dungpham01 11
• HUONGHCKT 9
• eagle12 9
• Cúc Hr 8
• dieppk.nb92 6
• Mr.hieudoanxd 5
• befaint 5
• SA_DQ 5
• pycckuu410 5
• Phuocam 4
• nguyenanhtruong2409 4
• nhhnam 2
• Mr_Siro 2
• Gà Con yêu VBA 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom