buchlotnik, посмотрел, но не подходит т.к. конечный результат должен иметь такой вид 005074752, 005070036, 005070998, 005071086, 005071081, 005072510, 005072511, 005072512 используя амперсанд получается 50747525072505
buchlotnik, посмотрел, но не подходит т.к. конечный результат должен иметь такой вид 005074752, 005070036, 005070998, 005071086, 005071081, 005072510, 005072511, 005072512 используя амперсанд получается 50747525072505akaDemik
ну так замените амперсанд на запятую с пробелом [vba]
Код
Function СЦЕПКА(a As Range) Application.Volatile Dim s As String s = "" For Each cell In a If cell <> "" Then s = s & cell.Value & ", " Next s = Left(s, Len(s) - 2) СЦЕПКА = s End Function
[/vba]
Цитата
должен иметь такой вид
ну так замените амперсанд на запятую с пробелом [vba]
Код
Function СЦЕПКА(a As Range) Application.Volatile Dim s As String s = "" For Each cell In a If cell <> "" Then s = s & cell.Value & ", " Next s = Left(s, Len(s) - 2) СЦЕПКА = s End Function
buchlotnik, если не возражаете, я позволил себе несколько модернизировать Вашу функцию для сохранения формата данных, которые находились в ячейках[vba]
Код
Function СЦЕПКА(a As Range, Optional Delim As String = " ") Application.Volatile Dim s As String s = "" For Each cell In a If cell <> "" Then s = s & cell.Text & Delim Next If s <> "" Then s = Left(s, Len(s) - Len(Delim)) СЦЕПКА = s End Function
[/vba]
buchlotnik, если не возражаете, я позволил себе несколько модернизировать Вашу функцию для сохранения формата данных, которые находились в ячейках[vba]
Код
Function СЦЕПКА(a As Range, Optional Delim As String = " ") Application.Volatile Dim s As String s = "" For Each cell In a If cell <> "" Then s = s & cell.Text & Delim Next If s <> "" Then s = Left(s, Len(s) - Len(Delim)) СЦЕПКА = s End Function
МВТ, только запятую пропустили ;) но все равно, всем плюсы [moder]Не нужно цитировать посты целиком (тем более, что Вы больше половины под спойлер спрятали) Поправила[/moder]
МВТ, только запятую пропустили ;) но все равно, всем плюсы [moder]Не нужно цитировать посты целиком (тем более, что Вы больше половины под спойлер спрятали) Поправила[/moder]akaDemik
Сообщение отредактировал Manyasha - Вторник, 10.11.2015, 16:24