Insert ;; between text

[floripabay]

Hello,

I have a bouch of cells and I would like to fill each cell with ;; and if the cell has text with ;text; I can do it manually with concatenate, but the problem is that I have loads of columns. Plz help.

Thx

[zbor]

You can do concantenate and just extend formula, no matter how much columns you have...

For example on second sheet write:

=IF(Sheet1!A1="", "", ";"&Sheet1!A1&";")

and extend to all range as in frist sheet

Then select your data -> Copy

go to first page, select same range and Paste Spetial -> Values

Then delet sheet #2

[Richard Buttrey]

Hi,

One way with the following macro.

Please Login or Register  to view this content.

Just select the range and run it. Alternatively if you want to hard code the range substitute
For Each cell In Range("A2:Z10")

Regards

[DonkeyOte]

Alternative approach:

Please Login or Register  to view this content.

modify ActiveSheet.UsedRange as appropriate of course (if using ActiveSheet the .Parent is not really nec.)

[martindwilson]

alternative alternative
use asap utilitues add in http://www.asap-utilities.com/ it has an insert before/after and can include blank cells to give what you want

[noexcel=badwork]

you can use this code:

Please Login or Register  to view this content.

insert formula in column b and drage down,
suppose your data in column A.
thanks