Option ExplicitSub Tach_sheet_nhatkychung()' dieu kien la bo phanSheet1Activate' Khai bao bienDim

Option Explicit

Sub Tach_sheet_nhatkychung()
' dieu kien la bo phan
Sheet1.Activate

' Khai bao bien
Dim lr As Long
Dim rng As Range, cel As Range
Dim ws As Worksheet

' xac dinh dong cuoi
lr = Range("a" & Rows.Count).End(xlUp).Row
Set rng = Range("a4:j" & lr)
Range("n1") = lr

' vong lap de tach sheet
For Each cel In Range("l5:l17")
Set ws = Worksheets.Add(after:=Sheets(Sheets.Count))
rng.AutoFilter field:=1, Criteria1:=cel.Value
rng.SpecialCells(xlCellTypeVisible).Copy ws.Cells(1, 1)
ws.Name = cel.Value
ws.UsedRange.EntireColumn.AutoFit
Next cel

' bo autofilter
rng.AutoFilter

'giai phong bo nho
Set ws = Nothing: Set rng = Nothing: Set cel = Nothing

End Sub

1 câu trả lời

117 lượt xem

vỗ tay

Trần Đức Văn 11:07 - Jul 12, 2022

Để vừa lọc, vừa trích xuất dữ liệu sang Sheet khác thì bạn nên dùng Advanced Filter sẽ tốt hơn là dùng AutoFilter.

Kỹ thuật Advanced filter mình có hướng dẫn trong chương 14 bạn nhé, bài 109.3 110.4 111.5

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

Option ExplicitSub Tach_sheet_nhatkychung()' dieu kien la bo phanSheet1Activate' Khai bao bienDim

Câu hỏi liên quan