2014-02-19 3 views

ответ

0

Попробуйте User Defined Function:

Public Function conkat(rIn As Range) As String 
    conkat = "" 
    For Each r In rIn 
     conkat = conkat & "," & r.Value 
    Next r 
    conkat = Mid(conkat, 2) 
End Function 

используется как:

= conkat (A1: A50)

+0

Спасибо вам большое! – Victor

+0

Добро пожаловать! –

Смежные вопросы