Item(1).Value = Join(WorksheetFunction.Transpose(Selection), Delimiter) Item(2).Resize(1, Selection.Count - 1).ClearĪnd, if we want to generalize the code to handle either a selection down a column or across a row automatically, then this code will do that. Item(1).Value = Join(WorksheetFunction.Index(Selection.Value, 1, 0), Delimiter) By the way, we can modify this code to handle merging across a single row instead of down a column. If this instruction is followed, then there would be no need to wrap the text. Adjust the column width so that you can fit allĬontents in one cell. here is the JoinAndMerge() macro I have written that works for pretty much all types of data.ĭecemat 3:32 reason I asked why were you setting the the WrapText property to True was because of this instruction you gave above.Ģ. Of course there is, You can write a simple macro to do this job for you.įor eg. Shouldn’t there be a better way to merge cells without losing data?!?

It only works for cells in a single column, if the cells are spread across several columns, justify will not work.It doesnt work if the selected cells have numbers or formulas.See this simple animation aside to understand how it works.īut wait, this technique has some limitations, If you see the text spreading 2 rows, just make the column wider and repeat the process. The text from selected cells will be magically re-arranged in top-most cell. Adjust the column width so that you can fit all contents in one cell.(All the cells need to be in one area in one column). Select all the cells where your data is.You can use simple features in Excel to do this with ease. That got me thinking, there should be a way to merge cells without losing data?!? It would save a great amount of my time if i could get a solution to this !

But Excel wont help as it cannot merge values from all cells.Ĭan you tell me how to merge rows without losing the data in the format given below.

Either for alignment or structure, we would like to merge the cell contents in to one big cell.

How to merge and center in excel easy