and the function to enter into the spreadsheet is here:
Function strcat(rng As Range, Optional dlm As String = ",", Optional bUseFormat As Boolean = True) Dim cel As Range For Each cel In rng If cel.Value <> "" Then strcat = strcat & dlm & IIf(bUseFormat, cel.Text, cel.Value) Next cel strcat = Mid$(strcat, Len(dlm)) End Function
Something I noticed just recently that I had not noticed previously is that when using this code, a delimiter is inserted prior to the first cell's contents. For example, if the contents of five cells to be concatenated are:
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.