Datorn iFokus

Datorn

Etikettvarningar
Läst 6305 ggr
Tywysoges
2008-09-15 01:09
14

Ta bort hyperlänkar

Jobbar i Excel och har en massa hyperlänkar i cellerna. Vill bli av med dessa, men vill så klart ha texten kvar.

Finns det inget enklare sätt än att ta bort dom en och en?

Margareta
2008-11-11 16:39
1
#1

Gammal fråga utan svar, kanske inte aktuell längre men jag gör ett försöka.

  1. Om cellen med hyperlänken heter A2 kan du i nästa kolumn B2 skriva formeln =A2

  2. Kopiera formeln i B2 till samtliga rader i B-kolumnen som har motsvarande värden i A
    Då får du bara namnet, men det går ännu inte att använda eftersom det är en formel under.

  3. Ta bort formlerna genom att göra så här
    Markera hela kolumnen B genom att klicka på rubriken B

  4. Högerklicka och välj "Klistra in special…"

  5. Välj alternativet som heter "Värden" och klicka OK

  6. Tryck sen Enter för att placera "kopieringen" på samma plats som innan

Numer pensionär i Nynäshamn

Margareta
2008-11-11 16:46
0
#2

Min egen fråga som gjorde att jag hittade den här frågan är precis tvärtom

Jag har en kolumn med 350 rader hyperlänkar och vill komma ut url:en (webadressen) ur hyperlänken, texten som är skriven för att visa länken bryr jag mig inte om.

Numer pensionär i Nynäshamn

Kaj
2008-11-12 11:13
3
#3

Ett sätt som visserligen är en och en men som kan gå fortare än att högerklicka och välja ta bort hyperlänk är att ställa sig i cellen och trycka ctrl+d då försvinenr länken och texten är kvar.
Sedan är det bara att med piltangenten söka upp nästa och göra samma sak.

Ett annat bättre sätt är:

  1. markera alla celler med hyperlänkar du vill ta bort länken på men vill behålla texten i
  2. Gå till Redigera menyn
  3. Välj Radera
  4. Välj Format
  5. Nu tas hyperlänken bort men texten är kvar
Kaj
2008-11-12 11:52
3
#4

Om dina hyperlänks celler är många och ligger på olika cell serier eller utspridda kan det vara tidskrävande att söka upp och markera alla cellerna. Följande macro gör jobbet åt dig.

  1. Öppna ditt dokument med dina hyperlänkar som du vill ta bort men låta texten vara kvar på
  2. Gå till verktyg
  3. Välj Macro
  4. Välj sedan Macron
  5. Ange ett namn (tex TaBortMig)
  6. Välj skapa
  7. I fönstret som nu kommer upp rensa allt (Dvs även tabortmig subben) och klistra nedanstående kod, sedan från Arkivmenyn väljer du sedan Stäng och gå tillbaka till Microsoft Excel.
  8. Detta skapar 4 macros åt dig
    DeleteAllHyperlinks = tar bort alla hyperlänkar i bladet
    ReportAndDelteHyperlinks = Låter dig välja ja/nej för varje förekomst av en hyperlänk
    ReportHyperLinksLocation = ger en popup ruta med cell adress till varje hyperlänk
    SelectAllHyperlinksCells = markerar alla celler som har en hyperlänk
  9. För att köra macrona på ditt excel blad går du återigen till Verktyg, Macro, Macron och väljer den som passar dig bäst.

 'This Sub procedure deletes all hyperlinks in the active worksheet.
      Sub DeleteAllHyperlinks()
          For Each xLink In ActiveSheet.Hyperlinks
              xLink.Delete
          Next xLink
      End Sub

      'This Sub procedure displays a series of message boxes indicating
      'the location of each hyperlink in the active worksheet.
      Sub ReportHyperlinkLocations()
          For Each xLink In ActiveSheet.Hyperlinks
              MsgBox xLink.Range.Address
          Next xLink
      End Sub

      'This Sub procedure identifies each hyperlink and asks if you want
      'to delete it. If you click Yes, the hyperlink is deleted.
      Sub ReportAndDeleteHyperlinks()
          For Each xLink In ActiveSheet.Hyperlinks
              Response = MsgBox("Delete hyperlink in cell " & _
                  xLink.Range.Address & " ?", vbYesNo)
              If Response = vbYes Then xLink.Delete
          Next xLink
      End Sub

      'This Sub procedure selects all cells in the worksheet that contain
      'hyperlinks. You can then clear the selected cells to delete all of
      'the hyperlinks.
      Sub SelectAllHyperlinkCells()
          FirstCell = 1
          For Each xLink In ActiveSheet.Hyperlinks
              If FirstCell = 1 Then
                  Set xRange = xLink.Range
                  FirstCell = 0
              Else
                  Set xRange = Application.Union(xRange, xLink.Range)
              End If
          Next xLink
          xRange.Select
      End Sub