XLA routines: EE_Concatenate

EE_Concatenate concatenates a range like the CONCATENATE Excel function should work
Function EE_Concatenate(rng As range, strDelimiter As String) As String '-concatenates the cells in the range 'Returns string.. Actually, add 2nd parameter called Delimiter..add cols then rows. Dim arr Dim iRow As Integer Dim iCol As Integer Dim strConc As String 'http://excelexperts.com/xla-routines-eeConcatenate for updates on this function If rng.Cells.Count = 1 Then EE_Concatenate = rng.value Else arr = rng For iRow = LBound(arr, 1) To UBound(arr, 1) For iCol = LBound(arr, 2) To UBound(arr, 2) strConc = strConc & strDelimiter & arr(iRow, iCol) Next iCol Next iRow strConc = Trim(Mid(Trim(strConc), 2)) EE_Concatenate = strConc End If End Function
»
- Nick's blog
- Login or register to post comments
- 3580 reads
Recent comments
5 years 50 weeks ago
6 years 36 weeks ago
6 years 47 weeks ago
6 years 50 weeks ago
6 years 51 weeks ago
7 years 5 weeks ago
7 years 13 weeks ago
7 years 13 weeks ago
7 years 13 weeks ago
7 years 13 weeks ago