1. 在EXCEL中，用ALT+F11開啟VBE。
2. 在VBE中，插入/模組，建立一個新模組。
3. 把下列程式碼，複製貼上該模組。
4. 關閉VBE，回到EXCEL
5. 每次要執行時，在EXCEL中按下ALT+F8，選renewRef並執行即可。

Sub renewRef()
    Dim thisWbk As String, n As Variant
    Dim strPath As String, oldWbk As String
    
    thisWbk = ThisWorkbook.Name
    strPath = ThisWorkbook.Path
    
    With CreateObject("vbscript.regexp")
      .Global = True
      .IgnoreCase = True
      .MultiLine = True
      .Pattern = "第(\d*)週週報表\.xlsx"
      If .test(thisWbk) Then n = .Execute(thisWbk)(0).submatches(0)
    End With
        
    If n > 1 Then
        oldWbk = Replace(thisWbk, n, n - 1)
        If Dir(strPath & "\" & oldWbk) <> "" Then
          ThisWorkbook.Worksheets(1).Range("B2").Formula = "=A2+'" & strPath & "\[" & oldWbk & "]Sheet1'!$B$2"
        Else
          ThisWorkbook.Worksheets(1).Range("B2").Value = "找不到檔案:" & oldWbk
        End If
    End If
End Sub