Доброго времени суток
2003
sub no
Всех с наступающим
Есть строка с N ячейками
Надо все ячейки "склеять"
Если этих ячеек 7-10 шт, тогда применяю амперсанд или сцепить()
Если ячеек больше 10, тогда серое вещество посылает сигнал блокировки и руки категорически отказываются нажимать клавиатуру.
Как все N ячеек загнать в какой-нибудь массив ? т.е. не топтать амперсанд N раз
Цитата: 0mega от 28.12.2014, 18:29Как все N ячеек загнать в какой-нибудь массив ?
Никак. Конкатенация не работает с массивами. Альтернатива: аналогичная тема =СЦЕПИТЬ(A1:An;", ") (http://www.excelworld.ru/forum/7-5056-1)
Числа в столбце A, формула в В2:
=A2&", "&B2
и потягушки вниз.
Сергей, с наступающим.
Прошелся по ссылке. А где можно ознакомиться с ответом Елены
Pelena Дата: Суббота, 08.06.2013, 13:35 | Сообщение № 11
Это очень мощный экселевед. Она вполне могла выдать что-нибудь "Эдакое-нетрадиционное"
vikttur, вас также с наступающим.
Не-е-е ... потягушки мне не надо
Я хочу что-то типа {=СЦЕПИТЬ(А1:N1)}
Цитата: 0mega от 28.12.2014, 18:54
Сергей, с наступающим.
Прошелся по ссылке. А где можно ознакомиться с ответом Елены?
И Вас так же. Полтора года назад ответ Елены был в моей личной почте. Сейчас уже никак его не восстановить. Да и смысла нет, потому что Ваша задача по иному никак не решается в Excel. Нет такой возможности, даже теоретически
Цитата: Serge 007 от 28.12.2014, 19:03... смысла нет, потому что Ваша задача по иному никак не решается
даже если и нет решения , то все равно хотелось бы отведать изюм от Елены
Такие "изюминки" нельзя удалять. Их надо собирать в отдельную баночку
Цитата: 0mega от 28.12.2014, 19:11...хотелось бы отведать изюм от Елены
Такие "изюминки" нельзя удалять. Их надо собирать в отдельную баночку...
1. Если хотите - напишите ей в личку. Возможно она ответит.
2. Её ответ никто не удалял, ответа на форуме никогда и не было
3. Повторюсь: Данная тема одна из немногих, в которых ответ очевиден
Цитата: Serge 007 от 28.12.2014, 19:18
3. Повторюсь: Данная тема одна из немногих, в которых ответ очевиден
Это я уже понял и на вопросе поставил крест.
придется "ее величество Лень" засунуть куда подальше и прессовать клавиатуру в ручную
Издевательство над клавиатуры меняем на функцию:
Function ConcVaue(Rng As Range) As String
Dim ArrVal
Dim i As Long
Dim Str As String
ArrVal = Rng.Value
For i = 1 To UBound(ArrVal, 2)
Str = Str & ArrVal(1, i)
Next i
ConcVaue = Str
End Function
Цитата: 0mega от 28.12.2014, 19:28...прессовать клавиатуру в ручную...
Я дал ссылку на то как можно сцепить несколько значений не вручную. Что не так?
Цитата: vikttur от 28.12.2014, 19:31
Издевательство над клавиатуры меняем на функцию:
Значит, пальчиками по клаве, пальчиками :)
0mega, боюсь Вас разочаровать, но полтора года назад мой "уровень" не позволял мне претендовать на "изюм" :D
Я сейчас даже не могу вспомнить, что я там такое напридумывала, но уверена, что если бы это было что-то стоящее, Сергей бы опубликовал ответ в теме
Лена, с наступающим
Цитата: Pelena от 29.12.2014, 18:06
...полтора года назад мой "уровень" не позволял мне претендовать на "изюм" ...
Сергей не даст соврать что я не вчера появился на форуме.
У меня есть свой рейтинг о рангах.
И я вижу кто здесь делает погоду