Excel -使用VBA代码替换公式中日期形式的工作表名称

Sub ReplaceWorksheetName()
    Dim ws As Worksheet
    Dim formula As String
    Dim newFormula As String
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 获取工作表的名称
        Dim wsName As String
        wsName = ws.Name
        
        ' 遍历工作表中的所有公式
        For Each cell In ws.UsedRange.Cells
            If cell.HasFormula Then
                formula = cell.Formula
                
                ' 判断公式中是否包含日期形式的工作表名称
                If InStr(formula, "'[") > 0 And InStr(formula, "]") > 0 Then
                    ' 替换日期形式的工作表名称为当前工作表的名称
                    newFormula = Replace(formula, "'[" & wsName & "]", "'" & wsName & "'")
                    
                    ' 更新公式
                    cell.Formula = newFormula
                End If
            End If
        Next cell
    Next ws
End Sub