приведение числовых данных к единому виду

[Hugo121]

Вот такой эксперементальный вариант UDF VLOOKUPCOUPLE() - если не указан разделитель, то значения переносятся по строкам.
Работает, только формат ячейки мне пришлось поставить "Wrap Text", т.е. "перенос по словам" если не ошибаюсь.
На листе (в моём примере) выглядит как
=VLOOKUPCOUPLE4(D263:E264;1;H263;2)

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

    Dim i As Long
    Select Case TypeName(Table)
    Case "Range"
        For i = 1 To Table.Rows.Count
            If Table.Cells(i, SearchColumnNum) = SearchValue Then
                If VLOOKUPCOUPLE4 <> "" Then
                    If Separator_ <> "NewLine" Then
                        VLOOKUPCOUPLE4 = VLOOKUPCOUPLE4 & Separator_ & Table.Cells(i, RezultColumnNum)
                    Else
                        VLOOKUPCOUPLE4 = VLOOKUPCOUPLE4 & Chr(10) & Table.Cells(i, RezultColumnNum)
                    End If
                Else
                    VLOOKUPCOUPLE4 = Table.Cells(i, RezultColumnNum)
                End If
            End If
        Next i
    Case "Variant()"
        For i = 1 To UBound(Table)
            If Table(i, SearchColumnNum) = SearchValue Then
                If VLOOKUPCOUPLE4 <> "" Then
                    If Separator_ <> "NewLine" Then
                        VLOOKUPCOUPLE4 = VLOOKUPCOUPLE4 & Separator_ & Table.Cells(i, RezultColumnNum)
                    Else
                        VLOOKUPCOUPLE4 = VLOOKUPCOUPLE4 & Chr(10) & Table.Cells(i, RezultColumnNum)
                    End If
                Else
                    VLOOKUPCOUPLE4 = Table(i, RezultColumnNum)
                End If
            End If
        Next i
    End Select
    If VLOOKUPCOUPLE4 = 0 Then VLOOKUPCOUPLE4 = ""
End Function

[сантехник]

сколько текста..
в любом случае спасибо, буду ковырять)

зы. как получить справку по коду? тут все пишут без коментариев.

[Hugo121]

Текста много потому, что она такая уже была
И потому, что рассчитано на работу с открытой и закрытой книгой - Select Case TypeName(Table)
А справки не будет. Да и какая справка - тут только Select Case, If Then да For Next...