如何基于其他单元格值为现有公式追加文本？求Excel VBA宏代码

以下是满足需求的VBA宏代码，包含新建月度工作表和更新OVERVIEW单元格公式两个功能：

Sub AddNewMonthSheetAndUpdateFormula()
    Dim wsOverview As Worksheet
    Dim newSheetName As String
    Dim newWs As Worksheet
    Dim originalFormula As String
    
    ' 指定OVERVIEW工作表
    Set wsOverview = ThisWorkbook.Worksheets("OVERVIEW")
    
    ' 从O3单元格获取新建工作表的月份名称
    newSheetName = wsOverview.Range("O3").Value
    
    ' 校验月份名称是否为空
    If newSheetName = "" Then
        MsgBox "O3单元格不能为空，请输入有效的月份名称！", vbExclamation
        Exit Sub
    End If
    
    ' 校验同名工作表是否已存在
    On Error Resume Next
    Set newWs = ThisWorkbook.Worksheets(newSheetName)
    On Error GoTo 0
    If Not newWs Is Nothing Then
        MsgBox "名为" & newSheetName & "的工作表已存在！", vbExclamation
        Exit Sub
    End If
    
    ' 在最后位置新建月份工作表并命名
    Set newWs = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
    newWs.Name = newSheetName
    
    ' 更新OVERVIEW工作表B1单元格的公式
    originalFormula = wsOverview.Range("B1").Formula
    
    ' 处理原公式为空的情况
    If originalFormula = "" Then
        wsOverview.Range("B1").Formula = "=(" & newSheetName & "!$A$1)"
    Else
        ' 移除原公式末尾可能存在的等号，避免公式错误
        If Right(originalFormula, 1) = "=" Then
            originalFormula = Left(originalFormula, Len(originalFormula) - 1)
        End If
        ' 追加新的引用内容
        wsOverview.Range("B1").Formula = originalFormula & "+(" & newSheetName & "!$A$1)"
    End If
    
    MsgBox "已成功新建" & newSheetName & "工作表并更新B1单元格公式！", vbInformation
End Sub

功能说明 #

• 新建工作表校验：先检查O3单元格是否为空、目标工作表是否已存在，避免无效操作或重复创建
• 公式更新逻辑：兼容B1单元格原公式为空的情况，同时处理原公式末尾可能的等号，保证公式语法正确
• 操作反馈：关键节点加入提示框，明确告知操作结果

内容的提问来源于stack exchange，提问作者dev'n