UDF per estrarre solo numero
UDF per estrarre solo il numero da una cella utilizzando VBA in Microsoft Excel
In questo articolo, impareremo come utilizzare il codice VBA per estrarre il numero solo da una cella con la funzione definita dall’utente.
Domanda): ho bisogno di una macro per recuperare il numero solo da una cella che contiene dati alfanumerici.
Di seguito è l’istantanea dei dati in cui la colonna A contiene dati alfanumerici e i numeri attesi sono nella colonna B
Per ottenere solo i numeri dalla colonna A; è necessario seguire i passaggi seguenti per avviare l’editor VB Fare clic sulla scheda Sviluppatore Dal gruppo Codice, selezionare Visual Basic
Copia il codice seguente nel modulo Standard
Funzione NumericOnly (mystr As Variant)
Dim myOutput As String, i As Integer
For i = 1 To Len (mystr)
If IsNumeric (Mid (mystr, i, 1)) Then _
myOutput = myOutput & Mid (mystr, i, 1)
Avanti
NumericOnly = myOutput * 1
Fine funzione
===
-
Per ottenere l’output nella cella B2, la formula è
* = NumericOnly (A2)
===
===
In questo modo, possiamo recuperare i numeri solo da una cella che contiene testo e numeri, utilizzando il codice VBA.
