1. Merk området som contanis den hyperkoblinger som du ønsker å liste.
2. Klikk Utvikler > Visual Basic, en ny Microsoft Visual Basic for Applications-vinduet vises, klikker du Sett > Module, og skriv inn følgende kode i modulen:
Alternativ ExplicitPrivate Funksjon GetHyperAddy (Cell As Range) Som StringOn Error Resume NextGetHyperAddy = Cell.Hyperlinks.Item (1) .AddressIf err.number < > 0 Then GetHyperAddy = "Ingen" On Error GoTo 0End FunctionSub DistillHyperlinks () Dim HyperAddy As String, cl As Range, wsTarget Som regneark, clSource Som RangeApplication.ScreenUpdating = FalseSet clSource = SelectionOn Error Resume NextSet wsTarget = Sheets ("link List") Hvis err.number < > 0 Then Sett wsTarget = Worksheets.AddWith wsTarget.Name = "link List" Med .Range ("A1"). Value = "Location" .ColumnWidth = 20.Font.Bold = TrueEnd WithWith .Range ("B1"). Verdi = "viste teksten" .ColumnWidth = 25.Font.Bold = TrueEnd WithWith .Range ("C1"). value = "link Target" .ColumnWidth = 40.Font.Bold = TrueEnd WithEnd WithSet wsTarget = Sheets ("link List" ) End IfOn Error GoTo 0 ° C i hver cl I clSourceHyperAddy = GetHyperAddy (cl) Hvis ikke HyperAddy = "Ingen" ThenWith wsTarget.Range ("A65536"). End (xlUp) .Offset (1, 0) .Parent.Hyperlinks.Add Anchor .: = Offset (0, 0), _Address: = "", underadresse: = (cl.Parent.Name) & "!" & (cl.Address) .Offset (0, 1) .Value = cl.Text.Hyperlinks.Add Anchor:. = Offset (0, 2), Adresse: = HyperAddyEnd WithEnd IfNext clwsTarget.SelectEnd Sub
3. Klikk deretter på knappen for å kjøre koden. Og alle de hyperkoblinger vil bli vist i et nytt regneark kalt link List. Se skjermbilde:
Pakk alle aktuelle adresser fra hyperkoblinger med Kutools for Excel
Med Kutools for Excel Konverter Hyperkoblinger-funksjonen, kan du raskt hente ut de virkelige adresser fra hyperkoblinger .
Kutools for Excel: med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce
Etter å ha installert Kutools for Excel, kan du gjøre som følger :( Gratis Last ned Kutools for Excel nå)
1. Velg hyperkoblinger som du vil trekke ut de virkelige destinasjonene.
2. Klikk deretter Kutools > Link > Konverter Hyperkoblinger, se skjermbilde:
3. I Convert Hyper dialogboksen velge hyperlenker adresser erstatte celleinnholdet alternativ fra Konverter typen delen, og deretter angi en celle der du vil sette resultatet under Resultat utvalg seksjonen, se skjermbilde:
4. Klikk deretter på OK-knappen, alle de virkelige adressene er hentet fra de hyperkoblinger, se skjermbilde:
Merk: Konverter kilde utvalg: de utpakkede resultatene vil bli plassert på den opprinnelige celleområdet hvis du sjekke dette alternativet.
Klikk for å vite mer om dette Convert Hyper verktøyet.
gratis nedlasting Kutools for Excel Nå
Fjern alle hyperkoblinger fra et utvalg /regneark /arbeidsbok med Kutools for Excel
Hvis du vil fjerne alle hyperkoblinger fra regnearket eller arbeidsboken, Slett Hyper trekk ved Kutools for Excel kan også hjelpe deg
Kutools for Excel. med mer enn 120 hendig Excel-ins, gratis prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce
Hvis du har installert Kutools for Excel, kan du gjøre som følger :( Gratis Last ned Kutools for Excel nå)
1. Klikk Kutools > Link > Slette hyperkoblinger, se skjermbilde:
2. Deretter angir omfanget av hyperkoblinger som du vil fjerne, kan du fjerne dem fra et utvalg, et regneark, flere valgte ark og en hel arbeidsbok.
3. I dette tilfellet vil jeg slette hyperkoblinger i et regneark, og en rask boks vil komme ut, se skjermbilde:
4. Klikk deretter på Ja-knappen, vil alle hyperkoblinger i gjeldende regneark fjernes straks.
Klikk for å vite mer om dette Slett Hyper funksjonen.
Gratis nedlasting Kutools for Excel Nå