Function Zifra(RNG As Range) As Double
Dim RegEx As Object
Dim ssl As String, S_Summ As Double
For n = 1 To RNG.Columns.Count
For m = 1 To RNG.Rows.Count
ssl = ssl & RNG.Cells(m, n)
Next: Next
Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Global = True
        .Pattern = "\D"
       ssl = .Replace(ssl, " ")
    End With
Set objRegEx = Nothing
  ssl = RTrim(LTrim(ssl))
     For n = 1 To Len(ssl)
      sl = Mid(ssl, n, 1)
     If sl <> " " Then
     S_Summ = S_Summ + sl
     End If: Next
  Zifra = S_Summ
End Function

Function Zifra(RNG As Range) As Double
Dim RegEx As Object
Dim ssl As String, S_Summ As Double
For n = 1 To RNG.Columns.Count
For m = 1 To RNG.Rows.Count
ssl = ssl &amp; RNG.Cells(m, n)
Next: Next
Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Global = True
        .Pattern = "\D"
       ssl = .Replace(ssl, " ")
    End With
Set objRegEx = Nothing
  ssl = RTrim(LTrim(ssl))
     For n = 1 To Len(ssl)
      sl = Mid(ssl, n, 1)
     If sl      S_Summ = S_Summ + sl
     End If: Next
  Zifra = S_Summ
End Function

Гость guest_1482740178656

Создать скрипт для Google таблиц аналогично макросу MS Excel