VBA复制工作表公式引用原始工作表

Sub CopyWorksheetWithFormulas()
    Dim originalSheet As Worksheet
    Dim copiedSheet As Worksheet
    Dim cell As Range
    
    ' 获取原始工作表
    Set originalSheet = ThisWorkbook.Worksheets("原始工作表")
    
    ' 复制工作表
    originalSheet.Copy After:=originalSheet
    
    ' 获取复制后的工作表
    Set copiedSheet = ThisWorkbook.ActiveSheet
    
    ' 遍历复制后的工作表中的所有单元格
    For Each cell In copiedSheet.UsedRange.Cells
        ' 检查单元格是否包含公式
        If cell.HasFormula Then
            ' 修改公式中的引用，将其指向原始工作表
            cell.Formula = Replace(cell.Formula, originalSheet.Name, copiedSheet.Name)
        End If
    Next cell
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
    
    ' 提示复制完成
    MsgBox "工作表复制完成，并且公式引用了原始工作表。"
End Sub