Keskustelu: Ohjelmointikysymykset: VBA: Excel

Moi,

millä tavalla pitäisi toteuttaa sellainen, että excelistä pitäisi poimia kaikki muut merkit pois paitsi numerot?

Eli rivit on:

absd-12345
a,1234134
12312312-asdt

Ja ne pitäisi saada muotoon:
12345
1234134
12312312

Onko tällainen mahdollista?

Extreme kirjoitti:

millä tavalla pitäisi toteuttaa sellainen, että excelistä pitäisi poimia kaikki muut merkit pois paitsi numerot?

Laitat työkirjaan moduulin ja moduuliin seuraavan koodin

Option Explicit
Public Function VainNumerot(Expression As String) As String
    Dim i As Long, ch As String
    VainNumerot = ""
    For i = 1 To Len(Expression)
        ch = Mid(Expression, i, 1)
        If ch >= "0" And ch <= "9" Then VainNumerot = VainNumerot & ch
    Next
End Function

Sitten voit käyttää sitä excel funktiona ( tyyliin =VainNumerot(A1) ) tai tehdä skriptin joa käy läpi kaikki solut ja ajaa niiden arvot ko. funktion läpi.