UDF til kun at udtrække nummer

Anonim

UDF til kun at udtrække nummer fra en celle ved hjælp af VBA i Microsoft Excel

I denne artikel lærer vi, hvordan du kun bruger VBA -kode til at udtrække nummer fra en celle med den brugerdefinerede funktion.

Spørgsmål): Jeg har brug for en makro til kun at hente nummer fra en celle, der indeholder alfanumeriske data.

Følgende er et øjebliksbillede af de data, hvor kolonne A indeholder alfanumeriske data, og forventede tal findes i kolonne B

For kun at få tallene fra kolonne A; vi skal følge nedenstående trin for at starte VB -editor

  • Klik på fanen Udvikler
  • Vælg Visual Basic i kodegruppen

Kopier nedenstående kode i standardmodulet

Funktion NumericOnly (mystr som variant)

Dim myOutput As String, i As Integer

For i = 1 Til Len (mystr)

Hvis IsNumeric (Mid (mystr, i, 1)) Så _

myOutput = myOutput & Mid (mystr, i, 1)

Næste

NumericOnly = myOutput * 1

Afslut funktion

  • For at få output i celle B2 er formlen
  • = NumericOnly (A2)

På denne måde kan vi kun hente tal fra en celle, der indeholder tekst og tal, ved hjælp af VBA -kode.

Download - UDF til at udtrække kun tal fra en celle ved hjælp af VBA - xlsm