Jak extrahovat odkaz na buňku ze vzorců v aplikaci Excel?
Předpokládejme, že máte nějaké dlouhé vzorce a nyní chcete ze vzorců extrahovat všechny odkazy na buňky, jak ukazuje následující snímek obrazovky. Jak byste mohli co nejrychleji extrahovat odkazy na buňky ze vzorců?
Extrahujte odkazy na buňky ze vzorců pomocí funkce definované uživatelem
Extrahujte odkazy na buňky ze vzorců pomocí funkce definované uživatelem
Chcete-li extrahovat odkazy na buňky ze vzorců, níže uvedený kód VBA vám může udělat laskavost. Postupujte prosím následovně:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Extrahujte odkazy na buňky ze vzorců:
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. Po vložení kódu kód uložte a vraťte se do listu a zadejte tento vzorec: = extractcellrefs (G2) (G2 je buňka obsahující vzorec, ze kterého chcete extrahovat odkazy na buňky) do buňky, kde chcete získat výsledek, a stiskněte vstoupit klíč, všechny odkazy na buňky byly extrahovány ze vzorce, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!