khóa học này ko hướng dẫn lọc dữ liệu ra thành nhiều file ạ

Chào bạn bạn xem file này nhé:

https://drive.google.com/file/d/170sZ...

pass gitiho

Chào bạn vào lại nhé.

minh muốn kết quả dữ nguyên form của file ban đầu là vẫn giữ dòng bảng dữ liệu đào tạo, mình đang thây file tach ra bị mất dòng tiêu đề đàu tiên bảng dữ liệu đào tạo

Bạn thực hiện code như sau nhé:

Sub tachfile_nhieufile()

    Sheet1.Activate

    With Sheet1

        Dim dc As Long, ws As Worksheet, rng As Range, cell As Range, dcloc As Long, arr As Variant

        dc = .Range("A" & .Rows.Count).End(xlUp).Row

        .Range("J3:J" & dc).ClearContents

         arr = Unique2DArray(.Range("E3:E" & dc).Value, 1, False)

        .Range("J3").Resize(UBound(arr), 1).Value = arr

         dcloc = .Range("J" & .Rows.Count).End(xlUp).Row

        Set rng = Range("A2:I" & dc)

        For Each cell In .Range("J3:J" & dcloc)

            Set ws = Worksheets.Add(after:=Sheets(Sheets.Count))

            rng.AutoFilter field:=5, Criteria1:=cell.Value

            rng.SpecialCells(xlCellTypeVisible).Copy ws.Cells(2, 1)

            ws.Name = cell.Value

            ws.UsedRange.EntireColumn.AutoFit

            '' ban tu dinh dang

            ws.Range("A1").Value = .Range("A1").Value

            ws.Range("A1").Font.Bold = True

            ws.Range("A1").Font.Size = 24

        Next

        rng.AutoFilter

        .Range("J3:J" & dc).ClearContents

    End With

    Set ws = Nothing: Set rng = Nothing: Set cell = Nothing

End Sub

hoặc bạn có thể tự xây dựng

mình cảm ơn ạ