Split column by bold-normal text

[thebigbopper]

Hi,

First of all I've tried searching for this here (and other sites) but I haven't found anything that has worked for my data so far. So I would be endlessly appreciative of any help.

I have a worksheet that currently comprises of a single column.

The data, taken from an Italian to English dictionary, comprises headwords, definitions, grammatical indicators, and example sentences/phrases. It's these phrases that I'm interested in extracting.

They're formatted in a single cell as: italian phrase english translation

I want to separate the two phrases into two different columns, so that the result is:

A______________B
Italian phrase____English translation

There are no regular markers (e.g. a semicolon or hyphen), otherwise I'd go to "text to columns". Is it possible to split a single cell according to bold/non-bold formatting? (The rest of the data I'm not interested in, so I'd like to delete/disregard them.)

Any help would be massively appreciated, as I've got 28,000 rows to sort through!

[Glenn Kennedy]

What I know about VBA is sooooo small that it could all fit on the head of a pin. Here's a workaround. I've plagiarised a bit of code that will copy the text in bold into column B.

Enable macros on opening, select the cells to be treated (A2 to A116 or thereabouts). Developer/Macros/Run.

The bold text will appear in column B. I then used SUBSTITUTE to remove what's in column B from column A and place the result in column C =SUBSTITUTE(A2,B2,"") copied down.

Then filter column B, to show all except blanks. Do the same for column C. That's your data. Copy and paste columns B & C.

someone who knows VBA will fix it up for you...

when you do this, wjhjat you get should be the same as what's currently in Sheet2.

[GC Excel]

Hi,
Here's an other suggestion:

In B, to get bold text, use : =ExtractBold(A1, True)
In C, to get non bold text, use: = ExtractBold(A1, False) or the formula suggested by Glenn

Please Login or Register  to view this content.