por Adrian » 06 Abr 2011 12:58
Hola, no pones en claro muchos factores, como ser, si la cadena puede tener numeros "al medio", "al principio", si una cadena tendrá mas de un número, ej "sdf12sdfs23", en fin, voy a tratar de adivinar, y presentarte una macro.
Supongamos que en A1 hay abcca 21, en A2 hay sfdsd32sdf, en A3 en 10sdfsd, esta macro te suma los 3 números y da un total de 63.
Sub SumarNumeros()
Dim Num As Double, Acum As Double, Celda As Range, i As Integer, Aux As String
For Each Celda In Range("A1:A3")
For i = 1 To Len(Celda)
If IsNumeric(Mid(Celda, i, 1)) Then Aux = Aux & Mid(Celda, i, 1)
Next i
Num = Val(Aux)
Acum = Acum + Num
Aux = ""
Next Celda
MsgBox "Total " & Acum
End Sub
Esto es una ayuda, ahora tienes que poner de tu parte para acondicionarla a tus necesidades.
Salu2.xlsx