[Xin hỏi] Tách 1 sheet thành nhiều sheet hoặc file theo điều kiện. (1 người xem)

duongpb87 · 4/4/13

Trường hợp như sau ạ:

Em có một sheet bao gồm dữ liệu về các chi nhánh, bây giờ em cần tách riêng thành các sheet theo tên các chi nhánh ạ. VD : các trường có chi nhánh mẹ là CN An Giang thì vào hết 1 sheet An Giang, CN Hà Nội thì vào hết Sheet Hà Nội. Chứ bây giờ ngồi filter rồi paste bằng tay thì Lâu quá, và việc này em phải làm hàng ngày ạ.

Anh chị hướng dẫn em bằng VBA thì chỉ em cách chạy luôn nhé. Em mới tiếp xúc với Exel ạ.
Em cảm ơn các anh chị ạ.

hungpecc1 · 4/4/13

duongpb87 đã viết:
Trường hợp như sau ạ:

Em có một sheet bao gồm dữ liệu về các chi nhánh, bây giờ em cần tách riêng thành các sheet theo tên các chi nhánh ạ. VD : các trường có chi nhánh mẹ là CN An Giang thì vào hết 1 sheet An Giang, CN Hà Nội thì vào hết Sheet Hà Nội. Chứ bây giờ ngồi filter rồi paste bằng tay thì Lâu quá, và việc này em phải làm hàng ngày ạ.

Anh chị hướng dẫn em bằng VBA thì chỉ em cách chạy luôn nhé. Em mới tiếp xúc với Exel ạ.
Em cảm ơn các anh chị ạ.

Nếu mà làm bằng tay thì bạn dùng advanced filter cũng rất nhanh mà
Còn nếu muốn có code thì chỉ việc record macro là ok ngay

Mình gửi thử 1 file bạn tham khảo --> rồi tuỳ biến theo dữ liệu của bạn (chọn công ty mẹ --> click vào nút Addsheet

[GPECODE=vb]
Sub GPE()
Dim Drp As DropDown
Dim Name As String
On Error Resume Next
Application.ScreenUpdating = 0
Set Drp = Worksheets("AMC").DropDowns("Drop Down 2")
Name = Drp.List(Drp.Value)
Sheets.Add , Sheets(Sheets.Count)
With ActiveSheet
.Name = Name
.[IV1] = Worksheets("AMC").Range("I4")
.[IV2] = Name
Worksheets("AMC").Range("A4:O10000").AdvancedFilter 2, .[IV1:IV2], .[A1], 1
Columns("A:O").EntireColumn.AutoFit
End With
[IV1:IV2].Clear
Application.ScreenUpdating = 1
End Sub
[/GPECODE]