用另一个工作表上的单元格值替换公式部分的VBA代码

Sub ReplaceFormulaWithCellValue()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceCell As Range
    Dim targetCell As Range
    Dim formula As String
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源单元格和目标单元格
    Set sourceCell = sourceSheet.Range("源单元格地址")
    Set targetCell = targetSheet.Range("目标单元格地址")
    
    ' 获取源单元格的公式
    formula = sourceCell.Formula
    
    ' 将公式中的部分替换为目标单元格的值
    formula = Replace(formula, "需要替换的部分", targetCell.Value)
    
    ' 将替换后的公式赋值给目标单元格
    targetCell.Formula = formula
End Sub