Ինչպե՞ս Excel- ում բանաձևերից դուրս բերել բջջային տեղեկանք:
Ենթադրելով, որ դուք ունեք մի քանի երկար բանաձևեր, և այժմ, դուք ուզում եք քաղվածքների բոլոր հղումները քաղել բանաձևերից, ինչպես ցույց է տրված հետևյալ նկարը: Ինչպե՞ս կարող եք բջիջների հղումները բանաձևերից հանել որքան հնարավոր է արագ:
Օգտագործողի կողմից սահմանված գործառույթով արդյունահանել բջիջների հղումները բանաձևերից
Օգտագործողի կողմից սահմանված գործառույթով արդյունահանել բջիջների հղումները բանաձևերից
Բջիջների հղումները բանաձևերից հանելու համար ստորև ներկայացված VBA կոդը կարող է ձեզ լավություն բերել: Խնդրում ենք անել հետևյալը.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
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 Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: