Excel：如何加快查找和替换过程每个工作簿更改 32,000 个链接

Excel：如何加快查找和替换过程？

vba
Sub FindAndReplace()
    Cells.Replace What:="要查找的内容", Replacement:="要替换的内容", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

vba
Sub FindAndReplaceLinks()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") '将"Sheet1"替换为您要操作的工作表名称
    Set rng = ws.UsedRange '可根据实际情况调整范围
    
    For Each cell In rng
        If InStr(1, cell.Formula, "链接") > 0 Then '将"链接"替换为您要查找的链接关键字
            cell.Formula = Replace(cell.Formula, "链接", "新链接") '将"链接"和"新链接"替换为实际链接
        End If
    Next cell
End Sub