Пользовательская функция,возвращающая массив

[savraska]

Необходимо заменить каждое числовое значение диапазона произведением составляющих его цифр,а строковые значение оставить неизменными.
Option Base 1
Function mas(diap)
Dim i As Integer
Dim j As Integer
n = diap.Rows.Count
m = diap.Columns.Count
c = 1
For i = 1 To m
For j = 1 To n
c = c * (diap(i, j) - (diap(i, j) \ 10) * 10)'определяет последнюю цифру
Next j
Next i
mas = c
End Function

[IgorGO]

Function Transfer(rg As Range)
  ReDim ar(rg.Rows.Count - 1, rg.Columns.Count - 1)
  For r = 1 To rg.Rows.Count
    For c = 1 To rg.Columns.Count
      ar(r - 1, c - 1) = Conv(rg.Cells(r, c))
    Next
  Next
  Transfer = ar
End Function

Function Conv(d)
  If IsNumeric(d) Then
    s = "" & d
    v = 1
    For i = 1 To Len(s)
      c = Mid(s, i, 1)
      If c = "0" Then Conv = 0: Exit Function
      If c >= "1" And c < "9" Then v = v * Val(c)
    Next
    Conv = v
  Else
    Conv = d
  End If
End Function

[savraska]

спасибо большое за помощь!