Solved

How to split data in excel into equal groups? (excel vba)

Posted on 2016-10-28
4
209 Views
Last Modified: 2016-11-22
Hi everyone,

I have a big amount of data in excel (many rows, many columns) and I need to devide it into equal groups. The main problem is that the amount of groups is something that I cannot predict, meaning that on day I need to split it into 12 groups other day into 15. Additionally, the amount of columns and rows also may change, depends on the kind of report we receive. What I need is macro(?) which will allow me to to devide data into separate tabs, but the amount of the tabs is something I need to choose. All data provided in the report need to move.

Is anyone able to help me?

Thank you in advance.
Report.xlsx
0
Comment
Question by:Marta Wilczyńska
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
4 Comments
 
LVL 48

Expert Comment

by:Martin Liss
ID: 41864083
Can you give an example of, or tell us how you want it divided up?
0
 
LVL 93

Accepted Solution

by:
Patrick Matthews earned 500 total points (awarded by participants)
ID: 41864391
This appears to do it.  Assumptions:
  • Prompted for number tabs to split to at start
  • If # of data rows is evenly divisible by # tabs, each tab will have same # rows
  • If not, The first (n-1) tabs will have the same # rows, and the "extra" rows go to the nth tab

Option Explicit

Sub SplitToTabs()
    
    Dim LastR As Long, LastC As Long
    Dim SourceWs As Worksheet
    Dim DestWb As Workbook
    Dim DestWs As Worksheet
    Dim NumOfTabs As Long
    Dim NumDataRows As Long
    Dim RowsPerTab As Long
    Dim OldSheetsPerWb As Long
    Dim Counter As Long
    Dim RowsToCopy As Long
    Dim StartCopyRow As Long
    
    Set SourceWs = ActiveSheet
    With SourceWs
        LastR = .Cells(.Rows.Count, 1).End(xlUp).Row
        LastC = .Cells(1, .Columns.Count).End(xlToLeft).Column
    End With
    NumDataRows = LastR - 1
    
    NumOfTabs = InputBox("You have " & NumDataRows & " data rows", "How many tabs to split into?", 1)
    RowsPerTab = Int(NumDataRows / NumOfTabs)
    
    OldSheetsPerWb = Application.SheetsInNewWorkbook
    Application.SheetsInNewWorkbook = NumOfTabs
    Set DestWb = Workbooks.Add
    Application.SheetsInNewWorkbook = OldSheetsPerWb
    StartCopyRow = 2
    
    For Counter = 1 To NumOfTabs
        Set DestWs = DestWb.Worksheets(Counter)
        SourceWs.Cells(1, 1).Resize(1, LastC).Copy DestWs.Cells(1, 1)
        If Counter < NumOfTabs Then
            RowsToCopy = RowsPerTab
        Else
            RowsToCopy = LastR - StartCopyRow + 1
        End If
        SourceWs.Cells(StartCopyRow, 1).Resize(RowsToCopy, LastC).Copy DestWs.Cells(2, 1)
        StartCopyRow = StartCopyRow + RowsToCopy
    Next
    
End Sub

Open in new window

1
 

Author Comment

by:Marta Wilczyńska
ID: 41871700
Patrick it works! Thank you very much
0
 
LVL 93

Expert Comment

by:Patrick Matthews
ID: 41897212
author acknowledged answer
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Freeze panes is an option within all variants of Excel to enable parts of a sheet to remain stationary when the cursor is in another part of the sheet. This is a very useful feature which is overlooked or under used.
In Part II of this series, I will discuss how to identify all open instances of Excel and enumerate the workbooks, spreadsheets, and named ranges within each of those instances.
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

626 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question