Boa noite
Solicito a ajuda de vocês para converter a função abaixo em fórmula. A função faz com ocorra soma dentro de uma mesma célula de números separados por ",".
Estou enviando o arquivo de exemplo do uso da função. Desde já agradeço a atenção.
Option Explicit
Function SomarEspecial(Valor As Range) As Long
Dim Caracter() As String
Dim i As Long
Dim Soma As Long
Dim Número As Long
Caracter = Split(Valor.Value, ",")
For i = 0 To UBound(Caracter)
Soma = Soma + Caracter(i)
Next
SomarEspecial = Soma
End Function
Postado : 19/09/2017 3:25 pm