Получить перечисление в одну строку по условию из массива

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Получить перечисление в одну строку по условию из массива (Формулы/Formulas)

skais

Дата: Вторник, 12.12.2023, 16:20 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 236

Репутация: 29 ±

Замечаний: 20% ±

Excel 2010

Нужно получить список имен в одной ячейке, у кого даты совпадают с заявленной.

К сообщению приложен файл: book1.xlsx (9.6 Kb)

Ответить

jakim

Дата: Вторник, 12.12.2023, 17:49 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1216

Репутация: 316 ±

Замечаний: 0% ±

Excel 2010

Power Query

[vba]

Код

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Column1", type text}, {"Column2", type date}}),
    #"Grouped Rows" = Table.Group(#"Changed Type", {"Column2"}, {{"Count", each _, type table [Column1=text, Column2=date]}}),
    #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each [Count][Column1]),
    #"Extracted Values" = Table.TransformColumns(#"Added Custom", {"Custom", each Text.Combine(List.Transform(_, Text.From), ", "), type text})
in
    #"Extracted Values"

[/vba]

К сообщению приложен файл: book1_4.xlsx (18.0 Kb)

Ответить

AlexM

Дата: Вторник, 12.12.2023, 18:02 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

VBA функция[vba]

Код

Function MergeName(nRange As Range, sRange As Range, tRange As Range, Delimiter As String) As String
    Dim Arr(), x(), y()
    x = sRange.Value: y = tRange.Value
    If UBound(x) <> UBound(y) Then Exit Function
    For i = 1 To UBound(x)
        If x(i, 1) = nRange.Value Then
            ReDim Preserve Arr(1 To 1, 0 To n)
            Arr(1, n) = y(i, 1): n = n + 1
        End If
    Next i
    MergeName = Join(Application.Transpose(Application.Transpose(Arr)), Delimiter)
End Function

[/vba]