Function ДЛСУММ(ParamArray Ячейки()) As String

   Dim i As Long, j As Long
   Dim mlen As Integer, peren As Integer, ds As Integer
   Dim Знач() As String
   Dim cell As Range
   Dim Пром As Collection

   Set Пром = New Collection
   For i = 0 To UBound(Ячейки)
      For Each cell In Ячейки(i)
         Пром.Add cell.Value
      Next cell
   Next i
   If Пром.Count = 1 Then
      ДЛСУММ = Пром(1)
      Exit Function
   End If
   ReDim Знач(1 To Пром.Count)
   For i = 1 To Пром.Count
      Знач(i) = Пром(i)
   Next i
   ДЛСУММ = ""
   mlen = 0
   For i = 1 To Пром.Count
      If Len(Знач(i)) > mlen Then mlen = Len(Знач(i))
   Next i
   peren = 0
   For j = mlen To 0 Step -1
      ds = peren
      For i = 1 To Пром.Count
         If Len(Знач(i)) > 0 Then
            ds = ds + Right(Знач(i), 1)
            Знач(i) = IIf(Len(Знач(i)) = 1, "", Left(Знач(i), Len(Знач(i)) - 1))
         End If
      Next i
      ДЛСУММ = Right(ds, 1) & ДЛСУММ
      peren = IIf(ds > 9, Int(ds / 10), 0)
   Next j

End Function