/ Published in: Visual Basic
![](/img/icon_sav.png?v3)
Concatenate all text in cells with defined separator
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
Option Explicit Option Compare Text 'UDF Public Function Range_to_String(tgtRange As Range, Separator As String) As String If tgtRange Is Nothing Then Exit Function Dim tCell As Range For Each tCell In tgtRange.Cells Range_to_String = Range_to_String & Separator & tCell Next tCell Range_to_String = Right(Range_to_String, Len(Range_to_String) - 1) End Function
Comments
![RSS Feed for Comments RSS Icon](/images/rss.png?v3)