Advertisement
If you have a new account but are having problems posting or verifying your account, please email us on hello@boards.ie for help. Thanks :)
Hello all! Please ensure that you are posting a new thread or question in the appropriate forum. The Feedback forum is overwhelmed with questions that are having to be moved elsewhere. If you need help to verify your account contact hello@boards.ie

[simple excel question]

Options
  • 03-08-2010 4: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