Dùng Macro lọc dữ liệu bảng trong Excel

Tài liệu "Dùng Macro lọc dữ liệu bảng trong Excel" sẽ cung cấp một số mẹo vặt đơn giản trong Excel để giúp các bạn tiết kiệm thời gian, các thao tác trong Excel được thực hiện nhanh chóng hơn bằng cách sử dụng công cụ định dạng Macro trong Excel. Mời các bạn cùng tham khảo nội dung tài liệu chi tiết để tìm hiểu và áp dụng mẹo hay này trong công việc.
Nội dung trích xuất từ tài liệu:
Dùng Macro lọc dữ liệu bảng trong ExcelDùng Macro lọc dữ liệu bảng trong ExcelGiả sử bạn có một bảng chứa danh sách lý lịch nhân viên (hoặc bất cứ danh sáchgì như ở dưới):Sheet1:Và bạn muốn chỉ lấy lý lịch những nhân viên có mã số 0252, 0253, .... Nếu bạnchọn từng người trong danh sách (có thể là vài trăm đến vài nghìn nhân viên) thìsẽ rất mất thời gian.Để thực hiện nhanh, ta sẽ tạo macro lọc những nhân viên cần lấy như sau:- Tạo vòng lặp từ đầu tới cuối của danh sách mã số nhân viên, lấy từng mã số NV,sau đó tạo tiếp vòng lặp để duyệt từ đầu tới cuối danh sách lý lịch, khi tìm thấy thìcho ngừng vòng lặp và tạo tiếp một vòng lặp khác duyệt qua các cột của mẫu tintìm thấy để chép (copy) sang Sheet2.- Thực hiện:+ Tạo một sheet để chứa kết quả lọc, (Sheet2)+ Tạo một sheet chứa mã NV:Sheet3:Trong Excel, vào menu ToolsMacroVisual Basic Editor:Trong cửa sổ bên trái, nhấn đúp vào VBAProject để bung các nhánh con trong đóra. Bạn sẽ thấy có ba sheet mà mình tạo ở trên, nhấn đúp vào một sheet bất kỳ đểmở cửa sổ soạn thảo code của sheet đó, sau đó thực hiện soạn mã như ở dưới:Sub CopyRecord()Dim i, j, k, n, n1 As IntegerDim tempn số mẫu tin của sheet 3n1 số mẫu tin của sheet 1n = 100n1 = 1500vòng lặp duyệt từ mẫu tin thứ 2 đến mẫu tin cuối cùng của sheet chứa mã nhânviên(trong ví dụ là 100)For i = 2 To nlưu giái trị của hàng thứ i, cột thứ 2 của sheet3 vào biến temp (trong ví dụ là mãNV).như vậy biến temp sẽ lần lượt chứa mã số nhân viên của từng người có trongdanh sáchtemp = Sheet3.Cells(i, 2)vòng lặp duyệt từ mẫu tin thứ 2 đến mẫu tin cuối cùng của sheet chưa danh sáchnhân viênFor j = 2 To n1kiểm tra nếu mã nhân viên trong Sheet1 (danh sách nhân viên) trùng với biếntemp thì tạo tiếp vòng lặp duyệt qua các cột của mẫu tin tìm thấy.If temp = Sheet1.Cells(j, 2) Thenk=2Do While Not IsEmpty(Sheet1.Cells(j, k))Cập nhật các ô vào sheet2Sheet2.Cells(i, k) = Sheet1.Cells(j, k)k=k+1LoopExit ForEnd IfNextNextEnd SubSau khi đã viết xong code, ta nhấn F5 để chạy macro này, chờ vài giây để macrolọc dữ liệu, sau khi maco thực hiện xong nhiệm vụ, bạn hãy mở Sheet2 ra coi. Chacha! nó đã copy đầy đủ theo danh sách mã số của bạn.Nếu bạn muốn marco tự động chạy thì thực hiện như sau:Macro chạy mỗi khi bạn thay đổi dữ liệu trong sheet lý lịch: Chép đoạn mã trên(không chép hàng đầu tiên và cuôi cùng: Sub CopyRecord và End Sub). Nhấn đúpvào Sheet1 để mở cửa sổ code, trong listbox bên trái phía trên của cửa số code,chọn Worksheet, bên phải chọn Change, bạn sẽ thấy như sau:Private Sub Worksheet_Change(ByVal Target As Range)End SubDán đoạn mã đã copy vào trong thủ tục này. Bây giờ thì mỗi lần bạn thay đổi dữliệu trong Sheet1 thì macro sẽ tự động cập nhật lại dữ liệu. Nếu dữ liệu quá nhiềuvà bạn phải làm việc thường xuyên trên Sheet1 thì không nên dùng cách này vì nósẽ làm chậm quá trình xử lý của bạn (nhớ xóa đoạn mã cũ sau khi bạn đã copy nósang sheet khác). Bạn có thể áp dụng cách này để có thể làm được nhiều việc khácnữa.