Macro to break work in column to letter per column

    Re: Macro to break work in column to letter per column


    Hello Excel_DJ


    Maybe a formula such as:
    =MID($A$1,COLUMN(A1),1)
    change the range and drag to the right


    Code could be:

    Code
    Sub Splitter()
Dim i As Integer
With Range("a1")  '<< Adjust to your range
    For i = 1 To Len(.Value)
        .Offset(, i) = Mid(.Value, i, 1)
    Next
End With
End Sub


    Or else, please explain more or post a file.

    Re: Macro to break work in column to letter per column


    Hi thank you so much, this is exactly what I was looking for. Would you also know how to assign a font to a letter. Example if the letter in a cell is A then it is font Arial if the letter is a B then the font used is Helvetica if the cell has a number then it uses font Vendena and so on. There would be 3 or 4 different fonts used. The letter could be in any cell but is always the same font as assigned.

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!

Register Yourself Login