Tách một file thành nhiều file theo dòng

[phuongthao2019]

Chào các anh chị,

Em có 1 file excel master gồm header (9 dòng đầu) & 81 dòng thông tin (dòng 10 - hết)

Em muốn tách file master này thành 81 file excel nhỏ, mỗi file gồm header + 1 dòng thông tin

VD:
- File A: header + dòng thông tin 1
- File B: header + dòng thông tin 2
- tới hết dòng 81

Xin các chuyên gia hướng dẫn em với ạ

Em cảm ơn rất nhiều!

 

[Phuocam]

Em có 1 file excel master gồm header (9 dòng đầu) & 81 dòng thông tin (dòng 10 - hết)

Tên mà bạn muốn sử dụng để lưu từng file là gì? Đường dẫn đầy đủ đến thư mục chứa các file mới là gì? hay là cùng thư mục với file chính?

 

[phuongthao2019]

Dạ tên sẽ là HBG IPD 201901+ ô C của mỗi dòng thông tin. (Mỗi file excel nhỏ gồm header và 1 dòng thông tin, thì tên của file nhỏ mới chính là ô C luôn)

Còn lưu sẽ trùng với thư mục file chính luôn ạ

 

[Phuocam]

Dạ tên sẽ là HBG IPD 201901+ ô C của mỗi dòng thông tin. (Mỗi file excel nhỏ gồm header và 1 dòng thông tin, thì tên của file nhỏ mới chính là ô C luôn)

Còn lưu sẽ trùng với thư mục file chính luôn ạ

Thử xem giải pháp ở đây:

https://www.excelforum.com/excel-pr...ksheet-into-many-excel-files.html#post5036073

 

[babyheomoi]

Hic, sao bác không copy code luôn ở đây cho mọi người đọc, qua excelforum thì ai chưa có user sẽ không thấy code đâu.

 

[Phuocam]

Hic, sao bác không copy code luôn ở đây cho mọi người đọc, qua excelforum thì ai chưa có user sẽ không thấy code đâu.

Sub CreateWorkbooks()
'Mumps1
    Application.ScreenUpdating = False
    Dim ProdDesc As Range, srcWB As Workbook, srcWS As Worksheet
    Set srcWB = ThisWorkbook
    Set srcWS = srcWB.Sheets("Master File")
    For Each ProdDesc In srcWS.Range("C10", srcWS.Range("C" & srcWS.Rows.Count).End(xlUp))
        With Workbooks.Add
            srcWS.Rows("1:9").Copy Cells(1, 1)
            ProdDesc.EntireRow.Copy Cells(10, 1)
            Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs Filename:=srcWB.Path & Application.PathSeparator & "HBG IPD 201901-" & ProdDesc, FileFormat:=51
            Application.DisplayAlerts = True
            ActiveWorkbook.Close False
        End With
    Next ProdDesc
    Application.ScreenUpdating = True
End Sub

 

[VetMini]

Hic, sao bác không copy code luôn ở đây cho mọi người đọc, qua excelforum thì ai chưa có user sẽ không thấy code đâu.

Copy có hỏi phép tác giả chưa?
Bạn xui người ta vi phạm luật bản quyền sản phẩm trí tuệ à?

 

[Phuocam]

Copy có hỏi phép tác giả chưa?
Bạn xui người ta vi phạm luật bản quyền sản phẩm trí tuệ à?

Có ghi nguồn và tên tác giả mà.