In Excel, er det ingen direkte måte å takle denne oppgaven, men du kan bruke følgende VBA-kode for å bevare celleformatering når du fjerner hyperkoblinger.
1. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Fjern hyperkoblinger uten å fjerne formatering
Sub RemoveHlinks () 'Update 20141024Dim RNG Som RangeDim WorkRng Som RangeDim TempRng Som RangeDim UsedRng Som RangeDim XLink Som HyperlinkOn Error Resume NextxTitleId = "KutoolsforExcel" Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Sett UsedRng = Application.ActiveSheet.UsedRangeFor Hver XLink I WorkRng.Hyperlinks Set TempRng = Cells (1, UsedRng.Column + UsedRng.Columns.Count) Set RNG = xLink.Range Rng.Copy TempRng Rng.ClearHyperlinks Set TempRng = TempRng.Resize (Rng.Rows.Count, Rng.Columns.Count) TempRng.Copy RNG. PasteSpecial xlPasteFormats TempRng.ClearNextEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og en rask boks vil komme ut for å minne deg på å velge de cellene som inneholder hyperkoblinger, se skjermbilde:
4. Og klikk deretter på OK for å lukke dialogboksen, blir hyperkoblinger fjernet, men formatering av hyperkoblinger (inkludert understrekninger) blir holdt. Anmeldelser