Advertisement
Help Keep Boards Alive. Support us by going ad free today. See here: https://subscriptions.boards.ie/.
If we do not hit our goal we will be forced to close the site.

Current status: https://keepboardsalive.com/

Annual subs are best for most impact. If you are still undecided on going Ad Free - you can also donate using the Paypal Donate option. All contribution helps. Thank you.
https://www.boards.ie/group/1878-subscribers-forum

Private Group for paid up members of Boards.ie. Join the club.

[simple excel question]

  • 03-08-2010 04:02PM
    #1
    Closed Accounts Posts: 124 ✭✭


    BUT I cant "git er done"

    I have one column (COLUMN A) with about 20,000 pieces of info listed from a-z.
    now is their some quick way to transpose (i think is the correct word) all this info in columns of 200 each for easier reading. So I get column B with 200, column C with 200 etc......
    Instead of cutting and pasting 200 cells from column A into Column B
    Many Thanks.


Comments

  • Closed Accounts Posts: 1,759 ✭✭✭Dr.Silly


    copy what cells you want in your A column.

    Then right click on the cell in Column B 1. Click on "Paste Special", you will see a transpose checkbox on the bottom right hand side.


  • Closed Accounts Posts: 124 ✭✭yeahme


    sorry doc i think transpose was the wrong word.
    I'll try and explain a bit better.
    here is excell
    Column A


    a1
    a2
    a3
    a4
    a5
    a6
    a7
    a8
    a9
    a0
    a11
    a12
    a13
    a14
    a15
    a16

    everything is in a-z mode all the way down to column A cell 20,000.

    what i want is
    Column A COLUMN B Column C
    a1 .a200 . a400
    a2 . a201 . a401
    a3 . a202 . a402
    a4 . a203 . a403
    a5 . a204 . a404
    a6 . a . a405
    a7 . a . a
    a8 . a . a
    a9 . a . a
    a0 . a . etc........
    a11 . a .
    a12 . a
    a13 . a


    I hope you can understand all this,
    In my limited excel mind it does ;)


  • Closed Accounts Posts: 1,759 ✭✭✭Dr.Silly




  • Closed Accounts Posts: 124 ✭✭yeahme


    Thats exactly the one Doc,
    In macro i just changed the X amount from 1 to 200.

    Sub SingleToMultiColumn()
    Dim rng As Range
    Dim iCols As Integer
    Dim lRows As Long
    Dim iCol As Integer
    Dim lRow As Long
    Dim lRowSource As Long
    Dim x As Long
    Dim wks As Worksheet

    Set rng = Application.InputBox _
    (prompt:="Select the range to convert", _
    Type:=8)
    iCols = InputBox("How many columns do you want?")
    lRowSource = rng.Rows.Count
    lRows = lRowSource / iCols
    If lRows * iCols <> lRowSource Then lRows = lRows + 1

    Set wks = Worksheets.Add
    lRow = 1
    x = 1
    For iCol = 1 To iCols
    Do While x <= lRows And lRow <= lRowSource
    Cells(x, iCol) = rng.Cells(lRow, 1)
    x = x + 1
    lRow = lRow + 1
    Loop
    x = 1
    Next
    End Sub



    Thanks greatly for the help, it saves on streams of paper and of course
    PARTY
    TIME!


  • Closed Accounts Posts: 1,759 ✭✭✭Dr.Silly


    hehe..party !!!

    no hassles


  • Advertisement
Advertisement