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