0
votes

Extraire des mots entre deux caractères spécifiques ou un nombre

Je veux extraire les deux mots spécifiques de la cellule Excel, c'est-à-dire: cellule A1 contient des données xxx

maintenant je veux extraire 306973918 et sddcharo de la cellule. Ceux-ci aux valeurs seront dynamiques dans d'autres cellules, c'est-à-dire A2 A3 ...

J'ai essayé formule xxx

Mais cela ne fonctionne pas.


5 commentaires

L'analyse JSON utilisant Pure Excel va être un mal de tête (et également une erreur d'erreur). Si vous avez besoin de le faire dans Excel, je suggère d'utiliser VBA qui devrait avoir une bibliothèque JSON disponible.


Merci tim. Pouvez-vous me partager le script VBA qui peut fonctionner pour cela.


Je ne peux pas parce que je n'ai jamais travaillé avec Json de VBA avant. Si vous gérez Google, vous trouverez probablement un code utilisable sur la toute première page de résultats de recherche.


Et si j'ai besoin de TI extraire le nombre de 10 caractères à partir de 03 (10 caractères) ou 3 (9 caractères)


Si vous voulez analyser Simple JSON (non multijoutée) dans VBA, utilisez Tim Hall's VBA-JSON sur Git-HUB ... Je l'utilise et vraiment utile ..... pour la formule, essayez ..... < Code> MID (D5,1, Trouver ("@", MID (D5, Trouver ("2020:", D5,1) + 7, LEN (D5)), 1) -1)


3 Réponses :


0
votes

Si toutes les cellules sont un peu le même format, vous pouvez également utiliser du texte sur des colonnes sur cette cellule avec délimité et votre espace et votre numéro sera sur la colonne "C"


0 commentaires

0
votes

Le plus facile serait d'utiliser UDF.
Pour définir UDF, vous devez écrire une fonction simple dans le module de feuilles de calcul, comme dans la photo ci-dessous: Entrez la description de l'image ici

alors vous pouvez l'utiliser dans la feuille de calcul comme ci-dessous: Entrez la description de l'image ici p>

ci-dessous est le code de fonction que vous pouvez ajuster à vos besoins: p>

Function ExtractText(text As String)
    text = StrReverse(text)
    colonIdx = InStr(1, text, ":")
    apostropheIdx = InStr(1, text, """")
    text = Mid(text, apostropheIdx + 1, colonIdx - apostropheIdx - 2)
    ExtractText = StrReverse(text)
End Function


0 commentaires

0
votes

in A2 , formule copiée vers A3 : xxx

 Entrez la description de l'image ici < / p>


0 commentaires