UDF för att extrahera endast nummer från en cell med VBA i Microsoft Excel
I den här artikeln kommer vi att lära oss hur man använder VBA -kod för att extrahera nummer endast från en cell med den användardefinierade funktionen.
Fråga): Jag behöver ett makro för att bara hämta nummer från en cell som innehåller alfanumeriska data.
Följande är ögonblicksbilden av data där kolumn A innehåller alfanumeriska data och förväntade nummer finns i kolumn B
För att bara få siffrorna från kolumn A; vi måste följa stegen nedan för att starta VB -editor
- Klicka på fliken Utvecklare
- Välj Visual Basic i kodgruppen
Kopiera nedanstående kod i standardmodulen
Funktion NumericOnly (mystr som variant)
Dim myOutput As String, i As Integer
För i = 1 Till Len (mystr)
If IsNumeric (Mid (mystr, i, 1)) Då _
myOutput = myOutput & Mid (mystr, i, 1)
Nästa
NumericOnly = myOutput * 1
Avsluta funktion
- För att få utmatningen i cell B2 är formeln
- = NumericOnly (A2)
På detta sätt kan vi endast hämta nummer från en cell som innehåller text och nummer, med hjälp av VBA -kod.
Ladda ner - UDF för att extrahera endast nummer från en cell med VBA - xlsm