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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
Например, 
Так оно реально симпатичнее выглядит
