Menu

Merge various cells value in one row into one cell

Search this Thread

Prev

Previous Post

Next Post

Next

#4

Report Post

Posted to microsoft.public.excel.programming

Don Guillett Don Guillett is offline

Don Guillett is offline

external usenet poster

Posts: 10,124

Default

Merge various cells value in one row into one cell

Glad to help.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"K" wrote in message
...
On Aug 28, 10:33 pm, "Don Guillett" wrote:
Try this
Sub putcolstogetherinonecell()
Columns("f").ClearContents
For i = 2 To Cells(Rows.Count, "a").End(xlUp).Row
ms = ""
lc = Cells(i, Columns.Count).End(xlToLeft).Column
For j = 2 To lc
ms = ms & "-" & Cells(i, j)
Next j
Cells(i, lc + 1) = Right(ms, Len(ms) - 1)
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"K" wrote in message

...
Hi all, I have data in my sheet (see below)
A B C D E………col
xx 01 02 06 07
zz 55 90 22 78
tt 15 02 05 09
ss 66 58 02 04
aa 18 20 10 03

I want macro which should combine each row cells value from coloum B
to E and put result in coloum F something like this (see below)
A B C D E F……col
xx 01 02 06 07 01-02-06-07
zz 55 90 22 78 55-90-22-78
tt 15 02 05 09 15-02-05-09
ss 66 58 02 04 66-58-02-04
aa 18 20 10 03 18-20-10-03

macro should put result in column F down to last value cell in column
A and macro should make sure that those values in cells which have
zero on the start like 01 or 02 when they will get combine by macro
they should stay in same format like "01-02" instead of "1-2". I hope
I was able to explain my question. Can any friend can help me in this.

Thanks Don it works perfect

Reply With Quote

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to Merge Two Cells IF Another Cell Matches	suzikeith	Excel Worksheet Functions	2	October 13th 09 02:49 AM
Merge Cells in a Row to one Cell and text is NOT in a line	VCKW	Excel Discussion (Misc queries)	5	December 10th 07 04:55 PM
How can I merge 3 cells into 1 cell?	Lucky1423	Excel Worksheet Functions	3	May 1st 07 07:59 PM
merge several cells with text into 1 cell	chum	Excel Discussion (Misc queries)	4	July 25th 06 04:30 PM
How do I merge one cell into two cells?	auntieboop	Excel Discussion (Misc queries)	1	May 30th 06 04:00 PM

All times are GMT +1. The time now is 05:59 PM.

About Us

"It's about Microsoft Excel"

Contact Us ExcelBanter forum home Privacy Statement