UDF zum Extrahieren nur einer Zahl aus einer Zelle mit VBA in Microsoft Excel
In diesem Artikel erfahren Sie, wie Sie mit VBA-Code nur Zahlen aus einer Zelle mit der benutzerdefinierten Funktion extrahieren.
Frage): Ich benötige ein Makro, um Zahlen nur aus einer Zelle abzurufen, die alphanumerische Daten enthält.
Es folgt die Momentaufnahme der Daten, in denen Spalte A alphanumerische Daten enthält und erwartete Zahlen in Spalte B sind
Um nur die Zahlen aus Spalte A zu erhalten; Wir müssen die folgenden Schritte ausführen, um den VB-Editor zu starten
- Klicken Sie auf die Registerkarte Entwickler
- Wählen Sie in der Gruppe Code die Option Visual Basic . aus
Kopieren Sie den folgenden Code in das Standardmodul
Funktion NumericOnly(mystr als Variante)
Dim myOutput As String, i As Integer
Für i = 1 zu Len(mystr)
If IsNumeric(Mid(mystr, i, 1)) Then _
myOutput = myOutput & Mid(mystr, i, 1)
Nächste
NumericOnly = myOutput * 1
Endfunktion
- Um die Ausgabe in Zelle B2 zu erhalten, lautet die Formel
- =Nur numerisch(A2)
Auf diese Weise können wir mit VBA-Code nur Zahlen aus einer Zelle abrufen, die Text und Zahlen enthält.
Herunterladen - UDF zum Extrahieren nur einer Zahl aus einer Zelle mit VBA - xlsm