Страницы: 1
RSS
Отображать данные с большого диапазона ячеек в отдельно выведенную
 
Подскажите пожалуйста, с помощью какой функции можно автоматически отображать данные с большого диапазона ячеек (столбца) в отдельно выведенную, объединенную ячейку, через запятую.
В приложенном мной скрин шоте нужно чтобы данные с диапазона Р56-Р70 при добавлении автоматически отображались в строках E42, B44, через запятую, но при незаполненных полях, запятые не отображались, как при формуле =P56&", "&P57&", "&P58&", "&P59&", "&P60&", "&P61&", "&P62&", "&P63&", "&P64&"....

С нетерпением жду Ваших ответов)
Заранее спасибо!
С уважением,
Елена.
 
VLOOKUPCOUPLE()
искать в копилке

P.S. Вернее вот такая работает:

Код
Function VLOOKUPCOUPLE2(Table As Variant, SearchColumnNum As Integer, SearchValue As Variant, _
                        RezultColumnNum As Integer, Separator_ As String)
'Table - таблица, где ищем
'SearchColumnNum - столбец, где ищем
'SearchValue - данные, которые ищем
'RezultColumnNum - колонка, откуда берём результат
'Separator_ - разделитель, желательно вводить с пробелом в конце

    Dim i As Long

    If TypeName(Table) = "Range" Then Table = Table.Value
    For i = 1 To UBound(Table)
        If Table(i, SearchColumnNum) Like SearchValue Then
            If VLOOKUPCOUPLE2 <> "" Then
                VLOOKUPCOUPLE2 = VLOOKUPCOUPLE2 & Separator_ & Table(i, RezultColumnNum)
            Else
                VLOOKUPCOUPLE2 = Table(i, RezultColumnNum)
            End If
        End If
    Next i
    If VLOOKUPCOUPLE2 = 0 Then VLOOKUPCOUPLE2 = ""
End Function
 
VLOOKUPCOUPLE() нужно приспосабливать или меняя чуть код, или забивая на лист метки сравнения.
Изменено: Hugo - 06.02.2015 17:00:52
 
Код
 =ПСТР(ЕСЛИ(P56="";"";", "&P56)&ЕСЛИ(P57="";"";", "&P57)&ЕСЛИ(P58="";"";", "&P58);3;99999)
например так
 
Спасибо, родные! Вы мне очень помогли! :)
 
В моём варианте будут дублироваться разделители - убивайте дубли заменой.
Страницы: 1
Наверх