Excel：如何修复损坏的链接

通过应用编辑链接修复损坏的链接

使用 VBA 代码修复损坏的链接

Sub ResetInvalidLinks() UpdatedbyExtendoffice20220701 Dim xWB As Workbook Dim xLks As Variant Dim xFNum, xStatus As Integer Dim xStrLk, xLinAddress As String Dim xF Dim xLk Set xWB = Application.ActiveWorkbook xLks = xWB.LinkSources(xlExcelLinks) If IsEmpty(xLks) Then MsgBox "Select updated source" Exit Sub End If On Error Resume Next For xFNum = LBound(xLks) To UBound(xLks) xStrLk = xLks(xFNum) xStrLk = Right(xStrLk, Len(xStrLk) - InStrRev(xStrLk, "\")) xStatus = ActiveWorkbook.LinkInfo(xStrLk, xlLinkInfoStatus) If xStatus <> 0 And xStatus <> 3 Then MsgBox xStrLk & " the link is broken, please select new source" xF = Application.GetOpenFilename() If xF <> "" Then For Each xLk In ActiveSheet.UsedRange.Hyperlinks xLinAddress = Right(xLk.Address, Len(xLk.Address) - InStrRev(xLk.Address, "\")) If InStr(xStrLk, GetAddress) <> 0 Then ActiveSheet.Hyperlinks.Add Anchor:=xLk.Range, Address:=xF End If Next ActiveWorkbook.ChangeLink xLks(xFNum), xF, xlLinkTypeExcelLinks End If End If Next End Sub

其他操作（文章）

如何在工作表中修复/锁定背景颜色有时，当您与其他人共享工作表以进行编辑时，您可能希望锁定一系列单元格中的背景颜色并防止它们被更改。

如何减小 Excel 文件大小？有时，如果 Excel 文件太大，打开或保存需要几分钟。 为了解决这个问题，在本教程中，它告诉您如何通过删除不必要或从未使用过的内容或格式来减小 Excel 文件的大小。

Excel：如何创建或插入书签您有没有想过在工作表或工作簿中有大量数据时创建或插入书签以快速跳转到特定数据范围？

如何在Excel中将阴影应用于奇数或偶数（替代）行/列？在设计工作表时，许多人倾向于对奇数或偶数（替代）行或列应用阴影，以使工作表更直观。 本文将向您展示两种将阴影应用于Excel中奇数或偶数行/列的方法。

更多文章