VBA Excel : Comment faire pour extraire le numéro d'une chaîne de caractères?

Je veux extraire les numéros à partir d'une chaîne. Les chaînes de caractères sont écrits dans chaque cellule de ce genre.

1, 1
1, 2
1, 3

Chiffres sont tout simplement divisé par des virgules.

Comment puis-je extraire les numéros d'eux dans Excel VBA?

Merci beaucoup.

Vous pouvez utiliser Split(value, ",") - ce qui va retourner un tableau de type variant
Qu'est-ce que la chaîne souhaitée résultat de la ci-dessus? 11 12 13?

OriginalL'auteur js0823 | 2011-11-11

6

Si j'ai reçu votre question, vous avez "1 à 1" dans la cellule A1, "1, 2" dans la cellule A2, "1 à 3" dans la cellule A3.

Si vous voulez respectivement les chiffres avant la virgule dans les cellules B1, B2 et B3, et les chiffres après la virgule dans les cellules C1, C2 et C3, vous pouvez effectuer les opérations suivantes:

SOLUTION VBA:
```
Public Sub test()
    'the variables' declaration has been corrected, check 
    'the post's comments below to find out which correction were made
    Dim lngLeft as Long, lngRight as Long, lngCommaPos As Long
    Dim intI As Integer
    For intI = 1 To 3
        lngCommaPos = InStr(1, Range("A" & intI).Value, ",")
        lngLeft = Left(Range("A" & intI).Value, lngCommaPos - 1)
        lngRight = Right(Range("A" & intI).Value, Len(Range("A" & intI).Value) - lngCommaPos - 1)
        Range("B" & intI).Value = lngLeft
        Range("C" & intI).Value = lngRight
    Next intI
End Sub
```
NON solution VBA:

Insérer la formule suivante dans la cellule B1:

=VALEUR(GAUCHE(A1,FIND (","; A1)-1))

Insérer la formule suivante dans la cellule C1:

=VALEUR(DROITE(A1; NBCAR(A1)-FIND (","; A1)-1))

Copier les cellules B1 et C1
Coller dans les cellules B2 C3

Si vous voulez avoir des chaînes dans les colonnes B et C (au lieu d'avoir les numéros de), vous pouvez déposer la fonction de VALEUR, et les formules dans les cellules B1 et C1 sera

=GAUCHE(A1,FIND (","; A1)-1)

=DROITE(A1; NBCAR(A1)-FIND (","; A1)-1)

Pense que =LEFT(A1;FIND(",";A1)-1) devrait être =LEFT(A1,FIND(",",A1)-1) et ainsi de suite
J'ai un italien installation d'Excel, et les arguments de la fonction sont séparés par des points-virgules. Je pensais que ça fonctionnait de la même manière dans une autre langue. Mon mauvais. Eh bien au moins je viens d'apprendre quelque chose de nouveau sur Excel 🙂
Un peu non, mais vous vous rendez compte que lngLeft et lngRight sont déclarés ici comme une variable, non? VBA ne vous permet pas de déclarer les variables, comme vous êtes en train de faire dans le code. 🙂
Je ne pouvais pas vraiment comprendre ce que vous avez dit, puis j'ai fait une recherche sur internet et a découvert que si je déclare mes variables de cette manière: Dim lngLeft, lngRight, lngCommaPos Tant lngLeft et lngRight sera dimensionnée en tant que Variante. Avez-vous dire que je suis censé déclarer les variables Dim lngLeft tant, lngRight tant, lngCommaPos Tant? @Issun
Vous avez obtenu, à la perfection. Dans visual basic, vous pouvez omettre tous les "Tant"s, mais en VBA, vous avez à mettre chacun dans il y, sinon, la dernière variable est déclarée comme le type que vous vouliez. 🙂 Non pas que votre code ne fonctionne pas du tout, mais j'ai pensé que vous ne saviez pas que depuis que vous avez été en utilisant le préfixe "gnl". 🙂

OriginalL'auteur Bruno 82

*Hypothèse est que le résultat souhaité est 11, 12, et 13.

Ci-dessous ont été écrits comme des fonctions, mais peut être facilement modifié pour les sous routines de la place. Je ne veux pas entrer dans les plages de réglage et juste se concentrer sur la fonction.

Si vos données sont seulement des chiffres séparés par des virgules et des espaces, alors il suffit d'utiliser le remplacer:

Function ExtractNumber(ByVal text As String) As String

ExtractNumber = Replace(text, ", ", "")

End Function

Si vous voulez une version plus sophistiquée de la fonction qui va extraire tous les numéros indépendamment de ce que peut être d'autre dans la chaîne, voici mon RegexExtract fonction. Par défaut, je l'ai configuré de sorte qu'il sera virgules séparer tous les enregistrements, mais vous pouvez spécifier comme aucun:

=RegexExtract(A1, "(\d)", "")

(\d) des moyens pour capturer les chiffres de 0 à 9
3ème paramètre est comment voudriez vous que toutes les captures d'être séparés (si)

Voici la fonction:

Function RegexExtract(ByVal text As String, _
                      ByVal extract_what As String, _
                      Optional seperator As String = ", ") As String

Application.ScreenUpdating = False
Dim allMatches As Object
Dim RE As Object
Set RE = CreateObject("vbscript.regexp")
Dim i As Long, j As Long
Dim result As String

RE.Pattern = extract_what
RE.Global = True
Set allMatches = RE.Execute(text)

For i = 0 To allMatches.Count - 1
    For j = 0 To allMatches.Item(j).submatches.Count - 1
        result = result & (seperator & allMatches.Item(i).submatches.Item(j))
    Next
Next

If Len(result) <> 0 Then
    result = Right$(result, Len(result) - Len(seperator))
End If

RegexExtract = result
Application.ScreenUpdating = True

End Function

OriginalL'auteur aevanko

1

I vous ne voulez pas utiliser VBA vous pouvez aussi utiliser des Colonnes de Texte, voir: http://support.microsoft.com/kb/214261

OriginalL'auteur LeasMaps

Vous devez vous connecter pour publier un commentaire.