Làm cách nào để chia dữ liệu thành nhiều trang tính theo số hàng trong Excel?
Ví dụ: tôi có một dải danh sách dữ liệu, bây giờ tôi muốn chia nó thành nhiều trang tính theo số hàng, trong ví dụ này, tôi sẽ chia nó theo mỗi 5 hàng (xem ảnh chụp màn hình sau). Có cách nào giúp chúng tôi giải quyết nhanh vấn đề này không? Ở đây tôi sẽ giới thiệu hai thủ thuật để bạn thực hiện nó một cách dễ dàng.
 |
 |
 |
 |
||
 |
||
 |
Chia dữ liệu thành nhiều trang tính theo số hàng bằng mã VBA
Tách dữ liệu thành nhiều trang tính theo số hàng với Kutools for Excel
Chia dữ liệu thành nhiều trang tính theo số hàng bằng mã VBA
Mã VBA sau có thể giúp bạn chia các hàng thành nhiều trang tính theo số hàng, thực hiện như sau:
1. Giữ ALT + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.
VBA: Chia dữ liệu thành các trang tính theo số hàng trong Excel.
Sub SplitData()
'Updateby20140617
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = WorkRng.Rows.Count - xRow.Row + 1
xRow.Resize(resizeCount).Copy
Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
Application.ActiveSheet.Range("A1").PasteSpecial
Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Sau đó nhấn F5 phím để chạy mã và một hộp thoại bật ra để chọn một phạm vi để tách, sau đó bấm OKvà một hộp thoại khác để bạn chỉ định số hàng. Xem ảnh chụp màn hình:
 |
|
 |
4. Nhấp chuột OK, và phạm vi được chia thành nhiều trang tính theo số hàng.
Chú thích: Các trang tính đã tách được đặt ở phía sau trang tính chính.
Tách dữ liệu thành nhiều trang tính theo số hàng với Kutools for Excel
Đoạn mã trên chỉ có thể chia dữ liệu theo số hàng được chỉ định và nó sẽ không thêm tiêu đề cho từng dữ liệu trang tính nếu dữ liệu của bạn có tiêu đề.
Nhưng với Kutools for Excel'S Dữ liệu phân tách, bạn không chỉ có thể chèn tiêu đề cho từng dữ liệu trang tính mà còn có thể chỉ định tên trang tính mới được tách.
Kutools for Excel bao gồm hơn 300 công cụ Excel tiện dụng. Dùng thử miễn phí không giới hạn trong 30 ngày. Lấy nó ngay
Nếu bạn đã cài đặt Kutools for Excel, vui lòng làm như sau:
1. Chọn phạm vi dữ liệu mà bạn muốn tách.
2. Nhấp chuột Doanh nghiệp > Công cụ trang tính > Dữ liệu phân tách (Hoặc Doanh nghiệp > Dữ liệu phân tách ), xem ảnh chụp màn hình:
3. Trong Chia dữ liệu thành nhiều trang tính hộp thoại:
- Chọn Hàng cố định từ Phân chia dựa trên và nhập số lượng hàng mà bạn muốn tách cho mỗi trang tính. (Nếu dữ liệu của bạn có tiêu đề và bạn muốn chèn chúng vào mỗi trang tính phân tách mới, vui lòng kiểm tra Dữ liệu của tôi có tiêu đề Tùy chọn.)
- Sau đó, bạn có thể chỉ định các tên bảng tính đã tách, trong Tên trang tính mới , chọn quy tắc tên trang tính từ Nội quy danh sách thả xuống, bạn có thể thêm Tiếp đầu ngữ or suffix cho cả tên trang tính. Xem ảnh chụp màn hình:
4. Sau khi chỉ định cài đặt, sau đó nhấp vào OKvà dữ liệu đã chọn đã được chia thành nhiều trang tính của sổ làm việc mới theo mỗi 5 hàng. Và các tiêu đề được chèn cho mỗi trang tính mới. Xem ảnh chụp màn hình:
Nhấp để biết thêm về tính năng Dữ liệu phân tách này.
Bài viết liên quan:
Làm thế nào để chia dữ liệu thành nhiều trang tính dựa trên cột trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excelvà trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel Cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Office Tab Mang giao diện theo thẻ vào Office và giúp công việc của bạn dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
