Làm thế nào để chia dữ liệu thành nhiều trang tính dựa trên cột trong Excel?
Giả sử bạn có một trang tính với các hàng lớn dữ liệu và bây giờ, bạn cần chia dữ liệu thành nhiều trang tính dựa trên Họ tên (xem ảnh chụp màn hình sau) và tên được nhập ngẫu nhiên. Có thể bạn có thể sắp xếp chúng trước, sau đó sao chép và dán từng cái một vào các trang tính mới khác. Nhưng điều này sẽ cần sự kiên nhẫn của bạn để sao chép và dán nhiều lần. Hôm nay, tôi sẽ nói về một số thủ thuật nhanh chóng để giải quyết công việc này.
Chia dữ liệu thành nhiều trang tính dựa trên cột có mã VBA
Chia dữ liệu thành nhiều trang tính dựa trên cột với Kutools cho Excel
Chia dữ liệu thành nhiều trang tính dựa trên cột có mã VBA
Nếu bạn muốn tách dữ liệu dựa trên giá trị cột một cách nhanh chóng và tự động, mã VBA sau đây là một lựa chọn tốt. Vui lòng làm như sau:
1. Giữ ALT + F11 phím để 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.
Sub Splitdatabycol()
'updateby Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
Dim xWS As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Set xWS = Sheets.Add(after:=Worksheets(Worksheets.Count))
xWS.Name = myarr(i) & ""
Else
xWS.Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
xWS.Paste Destination:=xWS.Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy xWS.Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub
3. Sau đó nhấn F5 để chạy mã và một hộp nhắc xuất hiện để nhắc bạn chọn hàng tiêu đề, xem ảnh chụp màn hình:
4. Và sau đó, nhấp vào OK và trong hộp nhắc thứ hai, vui lòng chọn dữ liệu cột mà bạn muốn tách dựa trên, xem ảnh chụp màn hình:
5. Sau đó nhấn vào OKvà tất cả dữ liệu trong trang tính đang hoạt động được chia thành nhiều trang tính theo giá trị cột. Và các trang tính được phân tách được đặt tên bằng tên các ô được chia nhỏ. Xem ảnh chụp màn hình:
Chú thích: Các trang tính đã tách được đặt ở cuối sổ làm việc, nơi có trang tính chính.
Chia dữ liệu thành nhiều trang tính dựa trên cột với Kutools cho Excel
Là người mới bắt đầu sử dụng Excel, mã VBA dài này hơi khó đối với chúng tôi và hầu hết chúng tôi thậm chí không biết cách sửa đổi mã theo nhu cầu của mình. Ở đây, tôi sẽ giới thiệu cho bạn một công cụ đa chức năng--Kutools cho ExcelCủa nó, Dữ liệu phân tách tiện ích không chỉ có thể giúp bạn chia dữ liệu thành nhiều trang tính dựa trên cột, mà còn có thể chia dữ liệu theo số hàng.
Lưu ý:Để áp dụng điều này Dữ liệu phân tách, trước tiên, bạn nên tải xuống Kutools cho Excel, và sau đó áp dụng tính năng một cách nhanh chóng và dễ dàng.
Sau khi cài đặt Kutools cho Excel, hãy 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 Kutools Plus > Bảng > 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, bạn cần:
1). Lựa chọn Cột cụ thể tùy chọn trong Phân chia dựa trên và chọn giá trị cột mà bạn muốn tách dữ liệu dựa trên trong danh sách thả xuống. (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.)
2). 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ỉ định các 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.
3). Nhấn vào OK cái nút. Xem ảnh chụp màn hình:
4. Bây giờ, dữ liệu được chia thành nhiều trang tính trong một sổ làm việc mới.
Nhấp để Tải xuống Kutools cho Excel và dùng thử miễn phí ngay!
Chia dữ liệu thành nhiều trang tính dựa trên cột với Kutools cho Excel
Kutools cho 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. Tải xuống bản dùng thử miễn phí ngay bây giờ!
Bài viết liên quan:
Làm cách nào để chia dữ liệu thành nhiều trang tính theo số hàng?
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 Excel và 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...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nê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!