Giúp mình tạo module copy từ mỗi sheet của file tổng hợp thành các file nhỏ

.

Mình có file tổng hợp có đặc điểm : mỗi sheet là một môn học, danh sách sinh viên có thể thay đổi.
Mình muốn tạo một Module copy từ mỗi sheet của file tổng hợp thành nhiều file, mỗi file là một môn học riêng.
File tạo ra có mẫu sẵn, chỉ cần copy từ mỗi sheet danh sách và điểm thôi.

Mình đã tham khảo có code này hay "[URL='https://www.giaiphapexcel.com/forum/showthread.php?59932-T%C3%A1ch-1-file-n-sheets-thanh-n-files']Tách 1 file n sheets thanh n files", nhưng nhờ sự chỉ giáo của cao thủ thêm:
– Chỉ tạo ra số lượng sheet nhất định. Ví dụ từ sheet 1 đến 6.
-Làm sao để copy một vùng dữ liệu nào đó, không copy toàn bộ sheet. Vùng copy chỉ cố định cột, hàng có thể thay đổi tùy theo lượng học sinh.
-Tên Sheet tạo ra có dạng : Tên file n sheet – Tên sheet.

Sub TaoFile()
On Error Resume Next
Application.ScreenUpdating = False: Application.EnableEvents = False
Application.DisplayAlerts = False: Application.Calculation = xlCalculationManual
Dim i As Long, MyName As Name
For i = 1 To Sheets.Count
Sheets(i).Copy
With ActiveWorkbook
With .Sheets(1)
.DrawingObjects.Delete
.Cells.Copy
.Cells.PasteSpecial 3
.Range("A1").Select
For Each MyName In .Names
MyName.Delete
Next
End With
'' With .VBProject.VBComponents(.Sheets(1).CodeName).CodeModule
'' .DeleteLines 1, .CountOfLines
'' End With
.SaveAs Filename:=ThisWorkbook.Path & "" & .Sheets(1).Name, FileFormat:=xlNormal
.Close
End With
Next
Application.Calculation = xlCalculationAutomatic: Application.DisplayAlerts = True
Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

Xem thử ý tưởng này thế nào. Giải nén ra 1 folder trước khi chay code.

www.giaiphapexcel.com/diendan/threads/gi%C3%BAp-m%C3%ACnh-t%E1%BA%A1o-module-copy-t%E1%BB%AB-m%E1%BB%97i-sheet-c%E1%BB%A7a-file-t%E1%BB%95ng-h%E1%BB%A3p-th%C3%A0nh-c%C3%A1c-file-nh%E1%BB%8F.78157/

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

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học