Tách trang tính Excel thành nhiều trang tính dựa trên hàng

Đôi khi để dễ dàng tính toán, chúng ta cần chia trang tính Excel thành nhiều trang tính dựa trên các hàng . Trong bài viết này, chúng ta sẽ tìm hiểu cách thực hiện điều đó bằng Microsoft Excel VBA mã với một ví dụ và giải thích đẹp.

Sách bài tập Thực hành

Tải xuống sách bài tập và bài tập sau.

Excel VBA để chia Trang tính Excel thành nhiều Trang tính dựa trên hàng

VBA (Visual Basic for Application) là một trong những ngôn ngữ lập trình phổ biến nhất cho Microsoft Excel. Để phát triển một hàm do người dùng định nghĩa, chúng ta có thể sử dụng Excel VBA. Nó rất dễ học cũng như dễ áp ​​dụng.

Giới thiệu về Trang tính phải được chia thành nhiều Trang tính trong Excel

Giả sử chúng ta có tập dữ liệu ( B4:C10 ) của nhân viên với số giờ làm việc của họ trong Sheet1 . Chúng tôi sẽ chia trang tính này thành nhiều trang tính . Mỗi trang tính sẽ chứa hai hàng.

Bước 1:Khởi chạy cửa sổ VBA để tách một trang tính Excel thành nhiều ô

• Đầu tiên, hãy chọn trang tính từ thanh trang tính.
• Tiếp theo nhấp chuột phải trên trang tính.
• Nhấp trên Mã chế độ xem .

Bước 2:Nhập và chạy mã VBA

• Một Mô-đun VBA cửa sổ mở ra ở đây. Chúng ta có thể mở nó bằng cách sử dụng phím tắt ‘ Alt + F11 '.
• Bây giờ, hãy nhập mã dưới đây:

Sub SplitSheet()
Dim Rng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xSheet As Worksheet
On Error Resume Next
xTitleId = "ExcelSplit"
Set Rng = Application.Selection
Set Rng = Application.InputBox("Range", xTitleId, Rng.Address, Type:=8)
SplitRow = Application.InputBox("Row Number Split", xTitleId, 5, Type:=1)
Set xSheet = Rng.Parent
Set xRow = Rng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To Rng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (Rng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = Rng.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

• Sau đó, nhấp vào trên Run hoặc chúng ta có thể chỉ cần nhấn F5 để chạy mã.

Bước 3:Đặt tên và chạy Macro để chia trang tính thành nhiều ô dựa trên hàng

• Xác nhận Macro cửa sổ bật lên.
• Sau đó, chọn tên trang tính và nhấp vào trên Run .

Bước 4:Chọn Dải dữ liệu

• Chỉ định phạm vi dữ liệu trong Phạm vi ExcelSplit hộp thoại và chọn OK .

Bước 5:Chỉ định số lượng hàng sẽ được hiển thị trong mỗi trang tính

• Một lần nữa, hãy ghi lại số hàng mà chúng tôi muốn chia trong ExcelSplit Chia số hàng hộp thoại và chọn OK . Ở đây chúng tôi viết ‘ 2 '.

Kết quả cuối cùng với nhiều trang tính Excel dựa trên hàng

• Cuối cùng, chúng ta có thể thấy rằng trang tính chính được chia thành nhiều trang tính. Mỗi trang tính có hai hàng.

Đọc thêm: Cách chia Trang tính Excel thành nhiều Trang tính dựa trên giá trị cột

Kết luận

Bằng cách sử dụng mã Microsoft Excel VBA này, chúng tôi có thể chia trang tính Excel thành nhiều trang tính dựa trên các hàng. Có một sách bài tập thực hành được thêm vào. Hãy tiếp tục và thử. Vui lòng hỏi bất kỳ điều gì hoặc đề xuất bất kỳ phương pháp mới nào.

Bài đọc có Liên quan

• Cách chia đôi màn hình trong Excel (3 cách)
• Các Trang tính Riêng biệt trong Excel (6 Cách Hiệu quả)
• Cách Tách Trang tính Excel thành Nhiều Tệp (3 Phương pháp Nhanh)
• Tách Trang tính thành các Sổ làm việc Riêng biệt trong Excel (4 Phương pháp)
• Cách Tách Sổ làm việc để Tách các Tệp Excel bằng Mã VBA