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

Вход

Регистрация

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

 

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

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

Excel 2010
Всем доброго вечера!

Уже часа 4 мучаюсь над задачей - файл пример прикреплен снизу - необходимо перечислить в одной ячейке все значения из столбика С без учета значения 3 и Свойства

Подскажите пожалуйста формулу.
К сообщению приложен файл: 8183306.xlsx(10.9 Kb)
 
Ответить
СообщениеВсем доброго вечера!

Уже часа 4 мучаюсь над задачей - файл пример прикреплен снизу - необходимо перечислить в одной ячейке все значения из столбика С без учета значения 3 и Свойства

Подскажите пожалуйста формулу.

Автор - MelkijNub
Дата добавления - 04.11.2018 в 20:00
ABC Дата: Воскресенье, 04.11.2018, 20:38 | Сообщение № 2
Группа: Друзья
Ранг: Обитатель
Сообщений: 392
Репутация: 110 ±
Замечаний: 0% ±

Excel 2007
Скорее тему надо в раздел "Вопросы по VBA" перенести
[vba]
Код
Sub Test1()
    Dim i, a(), c()
    a = Range("C1:C" & Cells(Rows.Count, 3).End(xlUp).Row)
    ReDim c(1 To 1, 1 To 1)
    With New Collection
        On Error Resume Next
        For Each i In a
            .Add i, CStr(i)
            If i <> "Свойства" And i <> 3 And i <> "" Then
                If Err = 0 Then
                    c(1, 1) = c(1, 1) & ", " & i
                Else: Err.Clear
                End If
            End If
        Next
        [f9].Resize(1, 1) = Mid(c(1, 1), 3)
    End With
End Sub
[/vba]


MS Excel 2007 and 2010...
-------------------------------
С Уважением, Даулет
 
Ответить
СообщениеСкорее тему надо в раздел "Вопросы по VBA" перенести
[vba]
Код
Sub Test1()
    Dim i, a(), c()
    a = Range("C1:C" & Cells(Rows.Count, 3).End(xlUp).Row)
    ReDim c(1 To 1, 1 To 1)
    With New Collection
        On Error Resume Next
        For Each i In a
            .Add i, CStr(i)
            If i <> "Свойства" And i <> 3 And i <> "" Then
                If Err = 0 Then
                    c(1, 1) = c(1, 1) & ", " & i
                Else: Err.Clear
                End If
            End If
        Next
        [f9].Resize(1, 1) = Mid(c(1, 1), 3)
    End With
End Sub
[/vba]

Автор - ABC
Дата добавления - 04.11.2018 в 20:38
Pelena Дата: Воскресенье, 04.11.2018, 20:43 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 13220
Репутация: 2908 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Или вариант с пользовательской функцией из Готовых решений
[vba]
Код
Function JoinWithoutDuplicates(rng As Range, Optional sep As String = "; ") As String
    Dim v
    With CreateObject("Scripting.Dictionary")
        For Each v In Intersect(rng, rng.Worksheet.UsedRange).Value
            If Len(v) > 0 And v <> "Свойства" And v <> "3" Then .Item(v) = 0
        Next v
        JoinWithoutDuplicates = Join(.keys, sep)
    End With
End Function
[/vba]
К сообщению приложен файл: 8183306.xlsm(16.9 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеИли вариант с пользовательской функцией из Готовых решений
[vba]
Код
Function JoinWithoutDuplicates(rng As Range, Optional sep As String = "; ") As String
    Dim v
    With CreateObject("Scripting.Dictionary")
        For Each v In Intersect(rng, rng.Worksheet.UsedRange).Value
            If Len(v) > 0 And v <> "Свойства" And v <> "3" Then .Item(v) = 0
        Next v
        JoinWithoutDuplicates = Join(.keys, sep)
    End With
End Function
[/vba]

Автор - Pelena
Дата добавления - 04.11.2018 в 20:43
MelkijNub Дата: Воскресенье, 04.11.2018, 20:43 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ABC, добрый вечер!

Извините, если Вам покажется вопрос глупым, но что такое VBA и где можно подробнее про это прочитать? Желательно для человека, который с этим раньше не сталкивался.
Спасибо за быстрый отзыв))
 
Ответить
СообщениеABC, добрый вечер!

Извините, если Вам покажется вопрос глупым, но что такое VBA и где можно подробнее про это прочитать? Желательно для человека, который с этим раньше не сталкивался.
Спасибо за быстрый отзыв))

Автор - MelkijNub
Дата добавления - 04.11.2018 в 20:43
Pelena Дата: Воскресенье, 04.11.2018, 20:47 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 13220
Репутация: 2908 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеПро макросы VBA

Автор - Pelena
Дата добавления - 04.11.2018 в 20:47
MelkijNub Дата: Воскресенье, 04.11.2018, 21:03 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, Благодарю за информацию. Пока немного не понимаю как прописать данный макрос в своем листе, скорее уже завтра буду читать про макросы и как ими пользоваться. Благодарю за помощь.
 
Ответить
СообщениеPelena, Благодарю за информацию. Пока немного не понимаю как прописать данный макрос в своем листе, скорее уже завтра буду читать про макросы и как ими пользоваться. Благодарю за помощь.

Автор - MelkijNub
Дата добавления - 04.11.2018 в 21:03
Nic70y Дата: Воскресенье, 04.11.2018, 21:26 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4883
Репутация: 1060 ±
Замечаний: 0% ±

Excel 2013
Подскажите пожалуйста формулу
одной не обойтись (наверное)
с доп.столбцом можно
К сообщению приложен файл: 8183306-1-.xlsx(11.4 Kb)


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщение
Подскажите пожалуйста формулу
одной не обойтись (наверное)
с доп.столбцом можно

Автор - Nic70y
Дата добавления - 04.11.2018 в 21:26
MelkijNub Дата: Суббота, 17.11.2018, 07:24 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Nic70y, интересное решение, а можно разъяснить как работает твоя формула, понять логическую цепочку не могу.
 
Ответить
СообщениеNic70y, интересное решение, а можно разъяснить как работает твоя формула, понять логическую цепочку не могу.

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

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