Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Значения в ячейках столбца переписать в строку - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вопросы по Excel для Mac » Значения в ячейках столбца переписать в строку (Как столбец превратить в ячейку?)
Значения в ячейках столбца переписать в строку
militta Дата: Пятница, 22.01.2016, 14:13 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Нужно значения в столбик вписать в одну ячейку через запятую.
Пример "столбика" во вложении. Как это сделать?
К сообщению приложен файл: 2178034.xlsx(30Kb)
 
Ответить
СообщениеНужно значения в столбик вписать в одну ячейку через запятую.
Пример "столбика" во вложении. Как это сделать?

Автор - militta
Дата добавления - 22.01.2016 в 14:13
Udik Дата: Пятница, 22.01.2016, 14:41 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1587
Репутация: 191 ±
Замечаний: 0% ±

Excel 2016 х 64
Лучше всего макросом, но можно и через формулы.
Протягиваете по строке
Код
=B1&ИНДЕКС($A$1:$A$14;СТОЛБЕЦ()-2)&ЕСЛИ((СТОЛБЕЦ()-2)<ЧСТРОК($A$1:$A$14);", ";"")

на длину столбца :)
В последней ячейке требуемый результат, его можно в других формулах использовать или копировать+вставить значение.
К сообщению приложен файл: 6504603.xlsx(10Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеЛучше всего макросом, но можно и через формулы.
Протягиваете по строке
Код
=B1&ИНДЕКС($A$1:$A$14;СТОЛБЕЦ()-2)&ЕСЛИ((СТОЛБЕЦ()-2)<ЧСТРОК($A$1:$A$14);", ";"")

на длину столбца :)
В последней ячейке требуемый результат, его можно в других формулах использовать или копировать+вставить значение.

Автор - Udik
Дата добавления - 22.01.2016 в 14:41
Hugo Дата: Пятница, 22.01.2016, 14:45 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2676
Репутация: 599 ±
Замечаний: 0% ±

А можно такой UDF:
Код
=VLOOKUPCOUPLE2(A:A,1,"*",1,",")

[vba]
Код
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
[/vba]


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069
 
Ответить
СообщениеА можно такой UDF:
Код
=VLOOKUPCOUPLE2(A:A,1,"*",1,",")

[vba]
Код
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
[/vba]

Автор - Hugo
Дата добавления - 22.01.2016 в 14:45
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вопросы по Excel для Mac » Значения в ячейках столбца переписать в строку (Как столбец превратить в ячейку?)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!