Tách sheet thành file trong Exel

4.3/5 - (535 votes)

‘- Exel là chương trình tuyệt vời dùng cho tính toán các bảng tính phục vụ công việc học tập, kế toán, lập kế hoạch…

– Trong quá trình dùng Exel chúng ta gặp phải những file Exel có rất nhiều Sheet, và chúng ta thường mong muốn :

- Tách hoặc copy các Sheet ra từng file, lấy tên Sheet làm tên của file.
- Giữ nguyên mọi thuộc tính của các Sheet nguồn, kể cả công thức, name, Pass...

– Công việc này được thực hiện khá dễ dàng với VBA của EXEL.
– Để thực thi VBA chúng ta mở Exel và nhấn tổ hợp phím “ALT + F11”, lúc này sẽ hiện ra 1 Box, chúng ta vào Tool -> Macros…

Tach Sheet Exel buoc 1

– Đặt các thông số như hình dưới:
Tach Sheet Exel buoc 2

– Điền code dưới vào box:

Sub tachsheet()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sh As Worksheet
For Each sh In Worksheets
sh.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & " & sh.Name

Leave a Reply

Your email address will not be published. Required fields are marked *