Modify a UDF please?
Could one of my valued
Function ConCatRange(CellBlock As Range) As String Dim Cell As Range Dim sbuf As String Dim pipe As Boolean pipe = True For Each Cell In CellBlock pipe = Not pipe If Len(Cell.Text) 0 Then If pipe = False Then sbuf = sbuf & Cell.Text & Chr(166) Else sbuf = sbuf & Cell.Text & "|" End If End If Next ConCatRange = sbuf End Function |
All times are GMT +1. The time now is 04:42 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com