Comment extraire une référence de cellule à partir de formules dans Excel?
Supposons que vous ayez de longues formules et que vous souhaitiez maintenant extraire toutes les références de cellule des formules comme illustré ci-dessous. Comment pouvez-vous extraire les références de cellules des formules aussi rapidement que possible?
Extraire des références de cellules à partir de formules avec une fonction définie par l'utilisateur
Extraire des références de cellules à partir de formules avec une fonction définie par l'utilisateur
Pour extraire les références de cellule des formules, le code VBA ci-dessous peut vous rendre service. Veuillez procéder comme suit:
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.
Code VBA: extraire les références de cellule des formules:
Function ExtractCellRefs(Rg As Range) As String
'Updateby Extendoffice
Dim xRetList As Object
Dim xRegEx As Object
Dim I As Long
Dim xRet As String
Application.Volatile
Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
With xRegEx
.Pattern = "('?[a-zA-Z0-9\s\[\]\.]{1,99})?'?!?\$?[A-Z]{1,3}\$?[0-9]{1,7}(:\$?[A-Z]{1,3}\$?[0-9]{1,7})?"
.Global = True
.MultiLine = True
.IgnoreCase = False
End With
Set xRetList = xRegEx.Execute(Rg.Formula)
If xRetList.Count > 0 Then
For I = 0 To xRetList.Count - 1
xRet = xRet & xRetList.Item(I) & ", "
Next
ExtractCellRefs = Left(xRet, Len(xRet) - 2)
Else
ExtractCellRefs = "No Matches"
End If
End Function
3. Après avoir collé le code, enregistrez le code et revenez à la feuille de calcul, puis entrez cette formule: = extractcellrefs (G2) (G2 est la cellule qui contient la formule dont vous souhaitez extraire les références de cellule) dans une cellule où vous souhaitez obtenir le résultat, puis appuyez sur Entrer clé, toutes les références de cellule ont été extraites de la formule, voir capture d'écran:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!