Please Note: This article is written for users of the following Microsoft Excel versions: 2007, 2010, 2013, 2016, 2019, 2021, and Excel in Microsoft 365. If you are using an earlier version (Excel 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Excel, click here: Pulling Apart Characters in a Long String.

Pulling Apart Characters in a Long String

Written by Allen Wyatt (last updated May 27, 2023)
This tip applies to Excel 2007, 2010, 2013, 2016, 2019, 2021, and Excel in Microsoft 365


3

John has a worksheet that, in column A, has a large number of very long text strings. He needs to individually pull the first 249 characters from each string, placing a single character in each cell to the right of the string.

There are a couple of ways that you can accomplish this task. It is quite easy to do through the use of a simple formula. For instance, if your first text string is in cell A1, put the following formula to its right, in cell B1:

=MID($A1,COLUMN()-1,1)

This formula uses Excel worksheet functions to pull apart the text string. The COLUMN function, in this case, returns the value 2 since the formula is in column B and that is the second column in the worksheet. This value is decremented by 1, and then used as a pointer into the string in cell A1, marking where the extracted character should come from. When you copy this formula right, for however many cells desired, you end up with individual characters from the string, in consecutive order.

Of course, if you have quite a few strings in the worksheet (as John does), then copying this formula over 249 columns and down, say, several hundred rows can make for a very sluggish worksheet. In such situations it may be desirable to use a macro to split apart the strings instead of a formula. The following macro, SplitUp, is one approach to doing the actual tearing apart.

Sub SplitUp()
    Dim c As Range
    Dim r As Range
    Dim sTemp As String
    Dim z As Integer

    Set r = Range("A1", Range("A1048576").End(xlUp))
    For Each c In r
        sTemp = Left(c, 249)
        For z = 1 To Len(sTemp)
            c.Offset(0, z) = Mid(sTemp, z, 1)
        Next z
    Next
End Sub

The macro starts by defining a range (r) that consists of all the cells in column A that contain values. The c variable is then used to represent each cell in the range, and the first 249 characters pulled from each cell. A For ... Next loop is then used to pull each character from the string and stuff it into a cell to the right of the string.

Note:

If you would like to know how to use the macros described on this page (or on any other page on the ExcelTips sites), I've prepared a special page that includes helpful information. Click here to open that special page in a new browser tab.

ExcelTips is your source for cost-effective Microsoft Excel training. This tip (12059) applies to Microsoft Excel 2007, 2010, 2013, 2016, 2019, 2021, and Excel in Microsoft 365. You can find a version of this tip for the older menu interface of Excel here: Pulling Apart Characters in a Long String.

Author Bio

Allen Wyatt

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company. ...

MORE FROM ALLEN

Deleting Footnotes and Endnotes

Deleting either footnotes or endnotes is a simple process. Just select the reference mark and delete it. Assuming you are ...

Discover More

Cannot Open Multiple Word Documents

What are you to do if you try to open a document and Word automatically closes your previous document? Word is not ...

Discover More

Converting Individual Endnotes and Footnotes

Word makes it easy to convert all your footnotes to endnotes and vice versa. You may want to only convert a couple of ...

Discover More

Dive Deep into Macros! Make Excel do things you thought were impossible, discover techniques you won't find anywhere else, and create powerful automated reports. Bill Jelen and Tracy Syrstad help you instantly visualize information to make it actionable. You’ll find step-by-step instructions, real-world case studies, and 50 workbooks packed with examples and solutions. Check out Microsoft Excel 2019 VBA and Macros today!

More ExcelTips (ribbon)

Using InputBox to Get Data

Need your macro to get some input from a user? The standard way to do this is with the InputBox function, described in ...

Discover More

Maximum Length Limit for a Macro

Make your macros too long, and Excel may just refuse to run them at all. This tip explains what the limit is for macros ...

Discover More

Setting Row Height in a Macro

Macros can be used to change the formatting of your worksheet, if desired. One change you might want to make is to the ...

Discover More
Subscribe

FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."

View most recent newsletter.

Comments

If you would like to add an image to your comment (not an avatar, but an image to help in making the point of your comment), include the characters [{fig}] (all 7 characters, in the sequence shown) in your comment text. You’ll be prompted to upload your image when you submit the comment. Maximum image size is 6Mpixels. Images larger than 600px wide or 1000px tall will be reduced. Up to three images may be included in a comment. All images are subject to review. Commenting privileges may be curtailed if inappropriate images are posted.

What is 9 + 5?

2023-05-30 05:01:56

Andy

@Calogero Cumbo, I think =BIN2DEC would be an easier approach?


2023-05-29 10:22:00

Calogero Cumbo

I love this tip. I'm using it to splice out the digits in a binary number, which I then multiply by the powers of 2 and then sum these up to covert it to decimal.


2023-05-27 06:11:31

Andy

For users with Excel 365, this also works, and doesn't require filling across:

=MID(A1,SEQUENCE(1,MIN(LEN(A1),249)),1)

Without the requirement to stop at 249 characters:

=MID(A1,SEQUENCE(1,LEN(A1)),1)


This Site

Got a version of Excel that uses the ribbon interface (Excel 2007 or later)? This site is for you! If you use an earlier version of Excel, visit our ExcelTips site focusing on the menu interface.

Newest Tips
Subscribe

FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."

(Your e-mail address is not shared with anyone, ever.)

View the most recent newsletter.