Здраствуйте уважаемые!
Делаю в excel что-то на подобие базы клиентов.
Есть лист обзвона, где пишется название предприятия, контактное лицо, номер телефона, о чем говорили и тд.
На другом листе делаю как бы карточку клиента:
В одной ячейке вписывается название предприятия. В другой нужно вывести все контактные лица и их телефоны этого предприятия.
Нашел такую функцию:
На первом листе делаю дополнительный столбец в котором объединяю в одной ячейке конт.лицо и телефон.
Функция делает выборку по названию предприятия и выводит мне нужные значения в одну ячейку. Но они повторяются.
Можно ли доделать функцию чтоб выводились только уникальные значения?
Или как можно сделать это иначе?
Зарание спасибо!
Делаю в excel что-то на подобие базы клиентов.
Есть лист обзвона, где пишется название предприятия, контактное лицо, номер телефона, о чем говорили и тд.
На другом листе делаю как бы карточку клиента:
В одной ячейке вписывается название предприятия. В другой нужно вывести все контактные лица и их телефоны этого предприятия.
Нашел такую функцию:
Код |
---|
Function ConcatIf(ByVal compareRange As Range, ByVal xCriteria As Variant, _ Optional ByVal stringsRange As Range, Optional Delimiter As String) As String Dim i As Long, j As Long, criteriaMet As Boolean Set compareRange = Application.Intersect(compareRange, _ compareRange.Parent.UsedRange) If compareRange Is Nothing Then Exit Function If stringsRange Is Nothing Then Set stringsRange = compareRange Set stringsRange = compareRange.Offset(stringsRange.Row - compareRange.Row, _ stringsRange.Column - compareRange.Column) For i = 1 To compareRange.Rows.Count For j = 1 To compareRange.Columns.Count If (Application.CountIf(compareRange.Cells(i, j), xCriteria) = 1) Then ConcatIf = ConcatIf & Delimiter & CStr(stringsRange.Cells(i, j)) End If Next j Next i ConcatIf = Mid(ConcatIf, Len(Delimiter) + 1) End Function |
На первом листе делаю дополнительный столбец в котором объединяю в одной ячейке конт.лицо и телефон.
Функция делает выборку по названию предприятия и выводит мне нужные значения в одну ячейку. Но они повторяются.
Можно ли доделать функцию чтоб выводились только уникальные значения?
Или как можно сделать это иначе?
Зарание спасибо!