Need VBA code to concatenate and preserve formatting

[Lexic0n]

Could anyone show me some code to automatically concatenate a range of cells whilst preserving the original formatting?

My document consists of around 200 columns and 16000 rows. Each row needs to be concatenated into column A with a "/" delimiter and preserve the original font (around 20 columns have red font which needs to be included in the destination cell).

Many thanks

[stanleydgromjr]

Lexic0n,

Welcome to the Excel Forum.

To get the most precise answer, it is best to upload/attach a sample workbook (sensitive data scrubbed/removed/changed) that contains an example of your raw data on one worksheet, and on another worksheet your desired results.

The structure and data types of the sample workbook must exactly duplicate the real workbook. Include a clear and explicit explanation of your requirements.

To attach your workbook, scroll down and click on the Go Advanced button, then scroll down and click on the Manage Attachments button.

[Lexic0n]

If this helps, here is some code that I picked up previously and was trying to adapt for my needs (Credit to Erik Van Geit from Mr.Excel boards).

Please Login or Register  to view this content.

How can I make this work automatically for all 16000 rows in my document and include the "/" delimiter?

[Lexic0n]

Lexic0n,

Welcome to the Excel Forum.

To get the most precise answer, it is best to upload/attach a sample workbook (sensitive data scrubbed/removed/changed) that contains an example of your raw data on one worksheet, and on another worksheet your desired results.

The structure and data types of the sample workbook must exactly duplicate the real workbook. Include a clear and explicit explanation of your requirements.

To attach your workbook, scroll down and click on the Go Advanced button, then scroll down and click on the Manage Attachments button.

I've now attached a cut-down example of what I'm trying to do (my original data set in 16000 rows x 200 columns).

[AlphaFrog]

Here's your code modified.

Please Login or Register  to view this content.

[Lexic0n]

Thank you very much AlphaFrog, that works perfectly.

[yykok]

Hi, LexicOn,

Could you please provide the sample file with the correct VBA code for reference.