Как да извлека препратка към клетка от формули в Excel?
Да предположим, че имате дълги формули и сега искате да извлечете всички препратки към клетки от формулите, както е показано на следната екранна снимка. Как можете да извлечете препратките към клетки от формули възможно най-бързо?
Извличане на препратки към клетки от формули с дефинирана от потребителя функция
Извличане на препратки към клетки от формули с дефинирана от потребителя функция
За да извлечете препратките към клетки от формули, кодът на VBA по-долу може да ви направи услуга. Моля, направете следното:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Извличане на препратки към клетки от формули:
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. След като поставите кода, запазете кода и се върнете към работния лист и въведете тази формула: =extractcellrefs(G2) (G2 е клетката, която съдържа формулата, която искате да извлечете препратките към клетки) в клетка, където искате да получите резултата, и след това натиснете Въведете ключ, всички препратки към клетки са извлечени от формулата, вижте екранната снимка:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!