Does Excel 2016 have a column feature similar to that of Word 2016

[kroach123]

Column “A” has over 1000 rows of data. Is there a simply way to divide those rows evenly across 4 columns (B, C, D AND E)? Similar to using the column feature in Word.

 

[Joe4]

Sure. You can use VBA to do that.

The code may look something like this:

Sub SplitData()

    Dim nRows As Long
    Dim fRow As Long
    Dim lRow As Long
    Dim jump As Double
    Dim c As Long
    
'   Count number of rows of data in column A
    nRows = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Divide number of rows by 4
    jump = nRows / 4
    
'   Split evenly among 4 columns
    For c = 1 To 4
        fRow = lRow + 1
        lRow = Int(jump * c)
        Range(Cells(fRow, "A"), Cells(lRow, "A")).Copy Destination:=Cells(1, c + 1)
    Next c
    
End Sub