Từ sheet tổng tách thành nhiều sheet theo yêu cầu

Em chào anh/chị
Em có sheet tổng hợp dữ liệu. Bây giờ em muốn tách thành các sheet nhỏ theo mã hàng. Mong anh/chị giúp đỡ ạ. Em cảm ơn.

Bạn tự thêm phần xóa các sheet con trước khi chạy code nhé.

Option Explicit
Sub ABC()
    Dim Dic As Object, Rng As Range, sArr(), i&
    Set Dic = CreateObject("Scripting.dictionary")
    With Sheets("TONG")
        Set Rng = .Range("B2:C" & .Range("B" & Rows.Count).End(3).Row)
        sArr = Rng.Value
        For i = 2 To UBound(sArr)
            If Dic.exists(Split(sArr(i, 1), "-")(0)) = False Then
                Dic.Add Split(sArr(i, 1), "-")(0), ""
                Sheets.Add after:=Sheets(Sheets.Count)
                Rng.AutoFilter 1, Split(sArr(i, 1), "-")(0) & "-*"
                Rng.Copy ActiveSheet.Range("B2")
                ActiveSheet.Name = Split(sArr(i, 1), "-")(0)
            End If
        Next
        If .AutoFilterMode = True Then .AutoFilterMode = False
    End With
End Sub

www.giaiphapexcel.com/diendan/threads/t%E1%BB%AB-sheet-t%E1%BB%95ng-t%C3%A1ch-th%C3%A0nh-nhi%E1%BB%81u-sheet-theo-y%C3%AAu-c%E1%BA%A7u.164013/

Khóa học SprinGO phù hợp

Xây dựng Lương 3P, KPI cho Doanh nghiệp

Làm thế nào để trả lương cho nhân viên chính xác nhất? Đây là một trong những câu hỏi khó trong quản trị nhân...

Xem khóa học