Excel跨工作表公式引用时删除线格式同步问题及VBA调试求助

原代码存在几个导致失效或效率低下的问题，下面是修正后的版本，重点解决删除线等格式同步需求：

问题分析 #

1. 原代码重复提取工作表名称，完全冗余——已经提前指定了源表对象，反而容易因公式中的单引号处理逻辑出错
2. 遍历整个UsedRange效率差，会处理大量无需同步的单元格
3. 未考虑公式不带单引号的情况（比如表名不含空格时，Excel公式不会自动添加单引号）
4. 缺少错误处理，遇到无效单元格引用时会直接报错中断

修正后的代码 #

Sub SyncScheduleFormatting()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim destCell As Range
    Dim sourceCellAddr As String
    Dim sourceCell As Range
    
    ' 指定源表和目标表
    Set wsSource = ThisWorkbook.Sheets("FEBRUARY 2025")
    Set wsDest = ThisWorkbook.Sheets("FEBRUARY EZ")
    
    ' 仅遍历目标表中带公式的单元格，提升效率
    For Each destCell In wsDest.UsedRange.SpecialCells(xlCellTypeFormulas)
        ' 检查公式是否引用了源表
        If InStr(destCell.Formula, wsSource.Name) > 0 Then
            ' 提取源单元格地址，兼容带单引号和不带单引号的公式格式
            If InStr(destCell.Formula, "'") > 0 Then
                sourceCellAddr = Mid(destCell.Formula, InStrRev(destCell.Formula, "!") + 1)
            Else
                sourceCellAddr = Mid(destCell.Formula, InStr(destCell.Formula, "!") + 1)
            End If
            
            ' 错误处理：避免无效单元格引用导致崩溃
            On Error Resume Next
            Set sourceCell = wsSource.Range(sourceCellAddr)
            On Error GoTo 0
            
            ' 源单元格有效时，同步指定格式
            If Not sourceCell Is Nothing Then
                With destCell.Font
                    .Strikethrough = sourceCell.Font.Strikethrough ' 重点同步删除线格式
                    .Color = sourceCell.Font.Color
                    .Bold = sourceCell.Font.Bold
                    .Italic = sourceCell.Font.Italic
                    .Underline = sourceCell.Font.Underline
                    .Name = sourceCell.Font.Name
                End With
                Set sourceCell = Nothing ' 释放对象内存
            End If
        End If
    Next destCell
    
    MsgBox "格式同步完成！", vbInformation
End Sub

关键改进点 #

• 缩小遍历范围：只处理目标表中带公式的单元格，大幅提升运行效率
• 兼容两种公式格式：同时支持带单引号和不带单引号的跨表引用
• 添加错误防护：避免因无效引用导致代码中断
• 保留核心格式同步逻辑，重点确保删除线格式准确同步

自动触发设置（可选） #

如果需要主表格式变化时自动同步，可在源表的代码模块中添加以下事件代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 主表内容或格式变化时，自动调用同步子程序
    SyncScheduleFormatting
End Sub

内容的提问来源于stack exchange，提问作者Tracy Buckholz