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

Вход

Регистрация

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

 

= Мир MS Excel/Объединить значения столбца в одной строке - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Объединить значения столбца в одной строке (Формулы/Formulas)
Объединить значения столбца в одной строке
Селена Дата: Суббота, 07.04.2018, 13:05 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
Помогите, пожалуйста! Нужно транспортировать значения из столбца в ячейку по условию. Пример прилагаю.
К сообщению приложен файл: 6851286.xlsx(10.9 Kb)
 
Ответить
СообщениеДобрый день!
Помогите, пожалуйста! Нужно транспортировать значения из столбца в ячейку по условию. Пример прилагаю.

Автор - Селена
Дата добавления - 07.04.2018 в 13:05
abtextime Дата: Суббота, 07.04.2018, 13:27 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
Привет

Если Вы не имеете ничего против UDF, то ловите
[vba]
Код

Public Function Art(No As Long, R As Range) As String

For i = 1 To R.Rows.Count
    If i <> No And R.Cells(i, 2).Value = R.Cells(No, 2).Value And R.Cells(i, 3).Value = R.Cells(No, 3).Value Then
        If Art = "" Then
            Art = R.Cells(i, 1)
        Else
            Art = Art & "," & R.Cells(i, 1)
        End If
    End If
Next i

End Function
[/vba]
К сообщению приложен файл: 6851286.xlsm(17.6 Kb)
 
Ответить
СообщениеПривет

Если Вы не имеете ничего против UDF, то ловите
[vba]
Код

Public Function Art(No As Long, R As Range) As String

For i = 1 To R.Rows.Count
    If i <> No And R.Cells(i, 2).Value = R.Cells(No, 2).Value And R.Cells(i, 3).Value = R.Cells(No, 3).Value Then
        If Art = "" Then
            Art = R.Cells(i, 1)
        Else
            Art = Art & "," & R.Cells(i, 1)
        End If
    End If
Next i

End Function
[/vba]

Автор - abtextime
Дата добавления - 07.04.2018 в 13:27
Селена Дата: Суббота, 07.04.2018, 13:53 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо большое! Попробую вечером разобраться))
 
Ответить
СообщениеСпасибо большое! Попробую вечером разобраться))

Автор - Селена
Дата добавления - 07.04.2018 в 13:53
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Объединить значения столбца в одной строке (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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