How To Pull Data From Multiple Tabs In Excel

How to split information into multiple worksheets based on column in Excel?

Supposing you have a worksheet with huge rows of data, and now, y'all need to split the data into multiple worksheets based on the Name column (come across following screenshot), and the names are entered randomly. Maybe you can sort them first, and and so re-create and paste them i by one into other new worksheets. Simply this will need your patience to copy and paste repeatedly. Today, I volition talk almost some quick tricks to solve this chore.

doc split data by columns 1

Dissever data into multiple worksheets based on column with VBA code

Split information into multiple worksheets based on column with Kutools for Excel

Split information into multiple worksheets based on column with VBA code

If you want to split the data based on column value rapidly and automatically, the following VBA code is a good option. Please exercise every bit this:

1. Concord down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

two. Click Insert > Module, and paste the post-obit lawmaking in the Module Window.

                Sub Splitdatabycol() 'updateby Extendoffice Dim lr As Long Dim ws As Worksheet Dim vcol, i As Integer Dim icol Every bit Long Dim myarr As Variant Dim title As Cord Dim titlerow As Integer Dim xTRg As Range Dim xVRg As Range Dim xWSTRg As Worksheet On Mistake Resume Next Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=viii) If TypeName(xTRg) = "Nil" Then Exit Sub Set xVRg = Application.InputBox("Please select the column you desire to split data based on:", "Kutools for Excel", "", Blazon:=8) If TypeName(xVRg) = "Zilch" 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(i).Row icol = ws.Columns.Count ws.Cells(1, icol) = "Unique" Application.DisplayAlerts = False If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then Sheets.Add(afterward:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet" Else Sheets("xTRgWs_Sheet").Delete Sheets.Add(after:=Worksheets(Worksheets.Count)).Proper name = "xTRgWs_Sheet" End If Set up xWSTRg = Sheets("xTRgWs_Sheet") xTRg.Copy xWSTRg.Paste Destination:=xWSTRg.Range("A1") ws.Actuate For i = (titlerow + xTRg.Rows.Count) To lr On Fault 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).Cease(xlUp).Offset(1) = ws.Cells(i, vcol) Cease If Adjacent myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants)) ws.Columns(icol).Clear For i = 2 To UBound(myarr) ws.Range(championship).AutoFilter field:=vcol, Criteria1:=myarr(i) & "" If Non Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & "" Else Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count) End If xWSTRg.Range(title).Copy Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1") ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Re-create Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count)) Sheets(myarr(i) & "").Columns.AutoFit Adjacent xWSTRg.Delete ws.AutoFilterMode = False ws.Activate Application.DisplayAlerts = True Finish Sub

iii. Then, press F5 key to run the lawmaking, and a prompt box is popped out to remind you select the header row, see screenshot:

doc split data by columns 7

4. And then, click OK push button, and in the 2nd prompt box, delight select the column data that you want to split based on, see screenshot:

doc split data by columns 8

5. Then, click OK, and all data in the agile worksheet is split into multiple worksheets by the column value. And the split worksheets are named with the split prison cell names. Run into screenshot:

doc split data by columns 2

Note: The split worksheets are placed in the end of the workbook where the primary worksheet is in.

Split data into multiple worksheets based on column with Kutools for Excel

As an Excel beginner, this long VBA lawmaking is somewhat difficult for usa, and nearly of us fifty-fifty don't know how to modify the code as our need. Here, I will introduce yous a multifunctional tool--Kutools for Excel, its Dissever Data utility non just can aid you lot to dissever information into multiple worksheets based on column, but also can split data past rows count.

Note: To apply this Split Data, firstly, you should download the Kutools for Excel, and and so apply the feature quickly and easily.

Afterward installing Kutools for Excel, please do as this:

1. Select the range of information that you lot want to split.

2. Click Kutools Plus > Worksheet > Carve up Data, see screenshot:

doc split data by columns 3

3. In the Divide Data into Multiple Worksheets dialog box, you need to:

1). Select Specific column option in the Split based on section, and cull the column value which you want to separate the data based on in the driblet-down list. (If your data has headers and yous want to insert them into each new split worksheet, please bank check My information has headers option.)

2). Then y'all can specify the split worksheet names, under the New worksheets proper name section, specify the worksheet names rules from the Rules driblet down list, you tin can add the Prefix or Suffix for the sheet names equally well.

3). Click the OK button. See screenshot:

doc split data by columns 4

four. At present the data are divide into multiple worksheets in a new workbook.

doc split data by columns 5

Click to Download Kutools for Excel and free trial Now!

Split data into multiple worksheets based on column with Kutools for Excel

Kutools for Excel includes more than 300 handy Excel tools. Gratuitous to try with no limitation in 30 days. Download the free trial at present!

How to split information into multiple worksheets by rows count?

The Best Function Productivity Tools

Kutools for Excel Solves Almost of Your Problems, and Increases Your Productivity by 80%

Reuse: Quickly insert complex formulas, charts and anything that you lot have used before; Encrypt Cells with password; Create Mailing List and ship emails...
Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Preclude Duplicate Cells; Compare Ranges...
Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Notice and Fuzzy Find in Many Workbooks; Random Select...
Exact Copy Multiple Cells without irresolute formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more than...
Extract Text, Add Text, Remove past Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/twenty-four hour period, frequency and more than; Special Filter by bold, italic...
Combine Workbooks and WorkSheets; Merge Tables based on central columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
More 300 powerful features. Supports Function/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. lx-day money dorsum guarantee.

kte tab 201905

Office Tab Brings Tabbed interface to Role, and Make Your Work Much Easier

Enable tabbed editing and reading in Give-and-take, Excel, PowerPoint , Publisher, Admission, Visio and Projection.
Open and create multiple documents in new tabs of the same window, rather than in new windows.
Increases your productivity past 50%, and reduces hundreds of mouse clicks for you every day!

officetab bottom