Сцепить(A1;В1;...;N1)

[0mega]

Доброго времени суток
2003
sub no

Всех с наступающим
Есть строка с N ячейками
Надо все ячейки "склеять"
Если этих ячеек 7-10 шт, тогда применяю амперсанд или сцепить()
Если ячеек больше 10, тогда серое вещество посылает сигнал блокировки и руки категорически отказываются нажимать клавиатуру.
Как все N ячеек загнать в какой-нибудь массив ? т.е. не топтать амперсанд N раз

[Serge 007]

Как все N ячеек загнать в какой-нибудь массив ?

Никак. Конкатенация не работает с массивами. Альтернатива: аналогичная тема =СЦЕПИТЬ(A1:An;", ")

[vikttur]

Числа в столбце A, формула в В2:

Код Выделить Развернуть

=A2&", "&B2
и потягушки вниз.

[0mega]

Сергей, с наступающим.
Прошелся по ссылке. А где можно ознакомиться с ответом Елены
Pelena    Дата: Суббота, 08.06.2013, 13:35 | Сообщение № 11
Это очень мощный экселевед. Она вполне могла выдать что-нибудь "Эдакое-нетрадиционное"

[0mega]

vikttur, вас также с наступающим.
Не-е-е ... потягушки  мне не надо
Я хочу что-то типа {=СЦЕПИТЬ(А1:N1)}

[Serge 007]

Сергей, с наступающим.
Прошелся по ссылке. А где можно ознакомиться с ответом Елены?

И Вас так же. Полтора года назад ответ Елены был в моей личной почте. Сейчас уже никак его не восстановить. Да и смысла нет, потому что Ваша задача по иному никак не решается в Excel. Нет такой возможности, даже теоретически

[0mega]

... смысла нет, потому что Ваша задача по иному никак не решается

даже если и нет решения , то все равно хотелось бы отведать изюм от Елены
Такие "изюминки" нельзя удалять. Их надо собирать в отдельную баночку

[Serge 007]

...хотелось бы отведать изюм от Елены
Такие "изюминки" нельзя удалять. Их надо собирать в отдельную баночку...

1. Если хотите - напишите ей в личку. Возможно она ответит.
2. Её ответ никто не удалял, ответа на форуме никогда и не было
3. Повторюсь: Данная тема одна из немногих, в которых ответ очевиден

[0mega]

3. Повторюсь: Данная тема одна из немногих, в которых ответ очевиден

Это я уже понял и на вопросе поставил крест.
придется "ее величество Лень" засунуть куда подальше и прессовать клавиатуру в ручную

[vikttur]

Издевательство над клавиатуры меняем на функцию:

Код Выделить Развернуть

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


[Serge 007]

...прессовать клавиатуру в ручную...

Я дал ссылку на то как можно сцепить несколько значений не вручную. Что не так?

[0mega]

Издевательство над клавиатуры меняем на функцию:

[vikttur]

Значит, пальчиками по клаве, пальчиками

[Pelena]

0mega, боюсь Вас разочаровать, но полтора года назад мой "уровень" не позволял мне претендовать на "изюм" 
Я сейчас даже не могу вспомнить, что я там такое напридумывала, но уверена, что если бы это было что-то стоящее, Сергей бы опубликовал ответ в теме

[0mega]

Лена, с наступающим

...полтора года назад мой "уровень" не позволял мне претендовать на "изюм" ...

Сергей не даст соврать что я не вчера появился на форуме.
У меня есть свой рейтинг о рангах.
И я вижу кто здесь делает погоду