UDF pentru a extrage numai numărul dintr-o celulă utilizând VBA în Microsoft Excel
În acest articol, vom învăța cum să utilizați codul VBA pentru a extrage numărul numai dintr-o celulă cu funcția definită de utilizator.
Întrebare): Am nevoie de o macro pentru a extrage numărul numai dintr-o celulă care conține date alfanumerice.
Urmează instantaneul datelor în care coloana A conține date alfanumerice și numerele așteptate sunt în coloana B
Pentru a obține doar numerele din coloana A; trebuie să urmăm pașii de mai jos pentru a lansa editorul VB
- Faceți clic pe fila Dezvoltator
- Din grupul de coduri, selectați Visual Basic
Copiați codul de mai jos în modulul Standard
Function NumericOnly (mystr As Variant)
Dim myOutput As String, i Integer
For i = 1 To Len (mystr)
Dacă IsNumeric (Mid (mystr, i, 1)) Atunci _
myOutput = myOutput & Mid (mystr, i, 1)
Următorul
NumericOnly = myOutput * 1
Funcția de sfârșit
- Pentru a obține ieșirea în celula B2, formula este
- = NumericOnly (A2)
În acest fel, putem prelua numere numai dintr-o celulă care conține text și numere, utilizând codul VBA.
Descărcare - UDF pentru a extrage numai numărul dintr-o celulă folosind VBA - xlsm