Уже часа 4 мучаюсь над задачей - файл пример прикреплен снизу - необходимо перечислить в одной ячейке все значения из столбика С без учета значения 3 и Свойства
Подскажите пожалуйста формулу.
Всем доброго вечера!
Уже часа 4 мучаюсь над задачей - файл пример прикреплен снизу - необходимо перечислить в одной ячейке все значения из столбика С без учета значения 3 и Свойства
Скорее тему надо в раздел "Вопросы по 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]
Скорее тему надо в раздел "Вопросы по 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]
Код
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]
Или вариант с пользовательской функцией из Готовых решений [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 и где можно подробнее про это прочитать? Желательно для человека, который с этим раньше не сталкивался. Спасибо за быстрый отзыв))
ABC, добрый вечер!
Извините, если Вам покажется вопрос глупым, но что такое VBA и где можно подробнее про это прочитать? Желательно для человека, который с этим раньше не сталкивался. Спасибо за быстрый отзыв))MelkijNub
Pelena, Благодарю за информацию. Пока немного не понимаю как прописать данный макрос в своем листе, скорее уже завтра буду читать про макросы и как ими пользоваться. Благодарю за помощь.
Pelena, Благодарю за информацию. Пока немного не понимаю как прописать данный макрос в своем листе, скорее уже завтра буду читать про макросы и как ими пользоваться. Благодарю за помощь.MelkijNub