Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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:
Join the community of 500,000 technology professionals and ask your questions.