Làm núm nào để phân tách một bảng béo thành nhiều bảng bé dại trong Excel?
Nếu chúng ta có một trang tính lớn đựng được nhiều cột và hàng nghìn hoặc hàng nghìn hàng dữ liệu, bây giờ, bạn có nhu cầu chia bảng to này thành những bảng nhỏ dựa trên quý giá cột hoặc số sản phẩm để nhận được công dụng sau. Chúng ta có thể giải quyết các bước này thế nào trong Excel?
Bảng chính | Chia bảng thành những bảng theo cực hiếm cột | Chia bảng thành nhiều bảng theo số hàng | |
Chia một bảng to thành những bảng dựa trên giá trị cột bởi mã VBA
Chia một bảng béo thành những bảng dựa vào số hàng ví dụ bằng mã VBA
Chia một bảng bự thành các bảng dựa vào giá trị cột hoặc số sản phẩm với một công dụng tuyệt vời
phân chia một bảng mập thành các bảng dựa vào giá trị cột bằng mã VBAĐể phân chia bảng to này thành những bảng dựa trên một cực hiếm cột gắng thể, mã VBA sau có thể giúp bạn. Vui vẻ làm như sau:
1. Duy trì ALT + F11 phím để mở Microsoft giasuviet.edu.vnsual Basic cho những ứng dụng cửa ngõ sổ.
2. Bấm chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun cửa sổ.
Mã VBA: phân chia một bảng khủng thành các bảng theo cột chính:
Sub Splitdatabycol()"by giasuviet.edu.vnDim lr As LongDim ws As WorksheetDim vcol, i As IntegerDim icol As LongDim myarr As VariantDim title As StringDim titlerow As IntegerDim xTRg As RangeDim xVRg As RangeDim xWSTRg As WorksheetOn Error Resume NextSet xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)If TypeName(xTRg) = "Nothing" Then Exit SubSet xVRg = Application.InputBox("Please select the column you want lớn split data based on:", "Kutools for Excel", "", Type:=8)If TypeName(xVRg) = "Nothing" Then Exit Subvcol = xVRg.ColumnSet ws = xTRg.Worksheetlr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Rowtitle = xTRg.AddressLocaltitlerow = xTRg.Cells(1).Rowicol = ws.Columns.Countws.Cells(1, icol) = "Unique"Application.DisplayAlerts = FalseIf Not Evaluate("=ISREF("xTRgWs_Sheet!A1")") ThenSheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"ElseSheets("xTRgWs_Sheet").DeleteSheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"End IfSet xWSTRg = Sheets("xTRgWs_Sheet")xTRg.CopyxWSTRg.Paste Destination:=xWSTRg.Range("A1")ws.ActivateFor i = (titlerow + xTRg.Rows.Count) lớn lrOn Error Resume NextIf ws.Cells(i, vcol) "" & Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Thenws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)End IfNextmyarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))ws.Columns(icol).ClearFor i = 2 to UBound(myarr)ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) và ""If Not Evaluate("=ISREF("" & myarr(i) và ""!A1)") ThenSheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) và ""ElseSheets(myarr(i) và "").Move after:=Worksheets(Worksheets.Count)End IfxWSTRg.Range(title).CopySheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" và (titlerow + xTRg.Rows.Count))Sheets(myarr(i) & "").Columns.AutoFitNextxWSTRg.Deletews.AutoFilterMode = Falsews.ActivateApplication.DisplayAlerts = TrueEnd Sub3. Sau thời điểm dán mã, nhận F5 nhằm chạy mã này với một hộp nhắc xuất hiện, vui vẻ chọn hàng tiêu đề từ tài liệu của bạn, xem hình ảnh chụp màn hình:
4. Sau đó nhấn vào OKvà một hộp thoại khác hiện tại ra, phấn kích chọn dữ liệu cột mà bạn muốn tách bảng dựa trên, xem ảnh chụp màn hình:
5. Nhấp chuột OK, bảng to này sẽ được chia thành nhiều trang tính theo cực hiếm cột ở sau trang tính chính. Và các trang tính mới được đặt tên với quý giá cột. Xem ảnh chụp màn hình:
chia một bảng mập thành nhiều bảng dựa vào số hàng cụ thể bằng mã VBANếu bạn phải chia bảng thành những bảng dựa vào số hàng, mã VBA sau rất có thể giúp bạn.
1. Duy trì ALT + F11 phím nhằm mở Microsoft giasuviet.edu.vnsual Basic cho các ứng dụng cửa ngõ sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun cửa ngõ sổ.
Mã VBA: phân chia một bảng to thành những bảng theo số hàng:
Sub Splitdatabyrows()"by giasuviet.edu.vnDim WorkRng As RangeDim xRow As RangeDim SplitRow As IntegerDim xWs As WorksheetDim xTRg As RangeDim xNTRg As RangeDim xIER As IntegerOn Error Resume NextxTitleId = "KutoolsforExcel"Set WorkRng = Application.SelectionIf TypeName(WorkRng) = "Nothing" Then Exit SubSet xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)If TypeName(xTRg) = "Nothing" Then Exit SubSplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)If SplitRow = 0 Then Exit SubSet xWs = WorkRng.ParentSet xRow = WorkRng.Rows(1)xIER = WorkRng.Rows(WorkRng.Rows.Count).RowApplication.ScreenUpdating = FalseFor i = 1 khổng lồ WorkRng.Rows.Count Step SplitRow resizeCount = SplitRow If (xIER - xRow.Row + 1) (xRow.Row + SplitRow - 1) Then xWs.Name = xRow.Row và " - " & (xRow.Row + SplitRow - 1) ElseIf xIER = xRow.Row Then xWs.Name = xRow.Row Else xWs.Name = xRow.Row & " - " & xIER over If Application.ActiveSheet.Range("A1").PasteSpecial mix xNTRg = Application.ActiveSheet.Range("A1") xTRg.Copy xNTRg.Insert set xRow = xRow.Offset(SplitRow)NextApplication.CutCopyMode = FalseApplication.ScreenUpdating = TrueEnd Sub3. Tiếp nối nhấn F5 , trong vỏ hộp thoại nhảy lên, nên lựa chọn hàng tiêu đề, xem ảnh chụp màn hình:
4. Sau đó nhấn vào OKvà vào hộp nói thứ hai, nên chọn lựa phạm giasuviet.edu.vn dữ liệu mà bạn có nhu cầu chia theo số hàng, xem ảnh chụp màn hình:
5. Và sau đó, hãy nhấp vào OK , trong hộp nói thứ ba, nhập số sản phẩm mà bạn có nhu cầu chia nhỏ, xem hình ảnh chụp màn hình:
6. Tiếp đến nhấn vào OK , bảng chủ yếu đã được chia thành nhiều trang tính dựa trên số mặt hàng như hình ảnh chụp màn hình bên dưới:
phân chia một bảng lớn thành các bảng dựa trên giá trị cột hoặc số sản phẩm với một chức năng tuyệt vờiCó thể mọi đoạn mã trên là tương đối khó đối với phần lớn người dùng, ngơi nghỉ đây, tôi sẽ ra mắt một nhân kiệt tuyệt vời-Dữ liệu phân tách of Kutools mang lại Excel. Với tiện ích này, bạn có thể chia một bảng bự thành những bảng theo cột chính hoặc số hàng một cách hối hả và dễ dàng dàng.