Страницы: 1
RSS
Транспонировать из столбцов в ячейку через запятую
 
Привет всем! Кто поможет? Надо транспонировать данные из столбцов в ячейку, но так, чтобы данные встали через запятую. Буду благодарен очень, если такое возможно.
 
Цитата
NB88 написал: Кто поможет?
Спасение утопающего - дело рук самого утопающего... ;)
Правила, Приемы, Поиск, Копилка и пр.пр.пр...
- http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=2&TID=10&TITLE_SEO=10
Изменено: Z - 07.06.2016 11:06:20
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
http://www.planetaexcel.ru/blog/novye-funktsii-excel-2016-v-aprele/
 
Не понимаю, что я не так делаю????? Почему не выдает результат??  
 
вы смотрели название статьи по ссылке Александр, "Новые функции Excel 2016 в апреле",  у вас Excel 2016 и он обновлен
Лень двигатель прогресса, доказано!!!
 
точно(( а как легко было бы...))
а в 2010 есть подобная функция? может кто подскажет?
 
вы по ссылке которую дал Z, сходили, посмотрели, попробовали  
Лень двигатель прогресса, доказано!!!
 
Для меня там таааакой дремучий лес, что и не знаю даж с чего начать  :qstn: :(
 
начали бы с того что приложили адекватный пример в соответствии с правилами форума а так смотрите пример разбирайтесь
Лень двигатель прогресса, доказано!!!
 
То что по ссылке не сработает, там критерия нет.
Но есть вариант2:
Код
=VLOOKUPCOUPLE2(A1:A4,1,"*",1,",")
Код
Function VLOOKUPCOUPLE2(Table As Variant, SearchColumnNum As Integer, SearchValue As Variant, _
                        RezultColumnNum As Integer, Separator_ As String)
'Table - таблица, где ищем
'SearchColumnNum - столбец, где ищем
'SearchValue - данные, которые ищем
'RezultColumnNum - колонка, откуда берём результат
'Separator_ - разделитель, желательно вводить с пробелом в конце

    Dim i As Long

    If TypeName(Table) = "Range" Then Table = Intersect(Table.Parent.UsedRange, Table).Value
    For i = 1 To UBound(Table)
        If Table(i, SearchColumnNum) Like SearchValue Then
            If VLOOKUPCOUPLE2 <> "" Then
                VLOOKUPCOUPLE2 = VLOOKUPCOUPLE2 & Separator_ & Table(i, RezultColumnNum)
            Else
                VLOOKUPCOUPLE2 = Table(i, RezultColumnNum)
            End If
        End If
    Next i
    If VLOOKUPCOUPLE2 = 0 Then VLOOKUPCOUPLE2 = ""
End Function
 
Hugo, если сильно захотеть можно и критерий заварганить  :)
Лень двигатель прогресса, доказано!!!
 
Ну можно конечно где-то с боку протянуть единиц...
 
Проще всего оказалось сработать через Word: Вставить нужные столбцы в Word как текст, а потом с помощью ctrl+h заменить ненужные знаки абзаца на запятые с пробелом.
Страницы: 1
Наверх