Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I had a question on how to do the following:
Is there any easy way to concatenate many cells to one cell. I have row from A1:P1 with information in them. I want to connect them together in one long string. Is there an easier way to do this, other than using the formula concatenate and inserting each cell, or the "&" function? (it is to cumbersome and I think excessive) I got a response from "Jacob Skaria": Why not use a UDF..Launch VBE using short-key Alt+F11. Insert a module and paste the below code.. A1= "To be" B1 = "merged" C1 = JoinString(A1:B1," ") Function JoinString(varRange As Range, Optional varDelimiter As String) Dim varTemp As Range For Each varTemp In varRange JoinString = JoinString & varDelimiter & varTemp Next If varDelimiter < vbNullString Then JoinString = Mid(JoinString, 2) End If End Function However, I have some cells that have zero values in them Is there a way to change the VBA code to ignore the zero values. So for example, I want to use the formula like this, A1 B1 C1 D1 E1 F1 G1 1.29 2.29 3.39 4.99 0 0 0 JoinString(A1:G1,", "), it should give me: 1.29, 2.29, 3.39, 4.99 And that's it, no zero values. Thank you for your prompt response. Art. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Display Zero's (0) in blank cells | Excel Programming | |||
zero's in linked cells | Excel Discussion (Misc queries) | |||
Adding zero's to a group of cells | Excel Discussion (Misc queries) | |||
Average Non-Continuous Cells Without Zero's | Excel Worksheet Functions | |||
Average non continguous cells, excluding zero's | Excel Worksheet Functions |