модернизация функции VLOOKUP_ALL

[сантехник]

доброго времени суток, уважаемые.
Есть некая функция, которую я прилагаю, она ищет все значения для определенного значения, но, беда в том, что она "склеивает" эти значения, и приходится делать "wrap text"
иначе от этого внешний вид таблицы страдает.
помогите модернизировать ее таким образом, чтобы не нужно было делать перенос текста, чтобы функция "склеивала строки посредством
"alt+enter"
спасибо

Function VLOOKUP_ALL(SearchValue As Variant, Table As Range, SearchColumnNum As Integer, _
ResultColumnNum As Integer)
Dim i As Integer
'Dim iCount As Integer

For i = 1 To Table.Rows.Count
If Table.Cells(i, SearchColumnNum) = SearchValue Then
If VLOOKUP_ALL <> "" Then
VLOOKUP_ALL = VLOOKUP_ALL & vbNewLine & Table.Cells(i, ResultColumnNum)
Else
VLOOKUP_ALL = Table.Cells(i, ResultColumnNum)
End If
End If


Next i
End Function

[Hugo121]

Попробуйте вместо vbNewLine использовать Chr(10).
И ещё - Dim i As Integer неверно - Вы ведь строки перебираете. Нужно Dim i As Long.

[kuklp]

Или vblf..