Kirjaimen korvaaminen

piece of cake VBA:lla
et kertonut tuleeko tulos yhteen soluun vaiko esim. koko sarakkeeseen tai riviin
no molemmat versiot nyt tossa
yksittäisessä soluversiossa
tieto esim A1 ja tulos B1
solussa B1 laita solumuotoiluksi oma: Luku, desimaalit 0
ja kaava =Luvuksi(A1)

solualue suoria alla oleva makro LuvuksiAlie

moduuliin...

Function Luvuksi(Solu As Range) As Double
Dim sobj As Object
Set sobj = CreateObject("vbscript.regexp")
sobj.Global = True
sobj.Pattern = "[^0-9]"
'vaihda allaolevaan riviin korvattava numero nyt siis 0
Luvuksi = sobj.Replace(Solu, 0)
End Function

Sub LuvuksiALue()

Dim sobj As Object
Dim solu As Range

Set sobj = CreateObject("vbscript.regexp")
sobj.Global = True
sobj.Pattern = "[^-0-9]"
'muuta solualue sopivaksi nyt A-sarake
For Each solu In Range("A1", Range("A65536").End(xlUp))
solu = sobj.Replace(solu, 0)
solu.NumberFormat = "0"
Next solu
End Sub