Excel VBA如何为带指定边框格式的单元格前置添加文本

• 边框常量使用错误：代码中使用的xlEdgeLeft、xlEdgeTop代表的是选中区域整体外边缘的左、上边框，并非单个单元格自身的左、上边框，因此无法正确匹配目标格式的单元格，这是格式识别失效的核心原因。匹配单个单元格边框需要使用xlLeft、xlTop常量。
• Replace方法逻辑不符合需求：Cells.Replace搭配通配符*会直接覆盖匹配单元格的全部内容，无法实现「在原有文本前追加|」的效果，同时通配符+格式匹配的组合对非空单元格、不同数据类型单元格兼容性极差，这也是非空单元格替换失效的原因。
• 缺少异常兜底机制：代码直接关闭了屏幕更新、事件触发、弹窗提示，如果运行中途报错中断，这些设置不会自动恢复，会导致Excel后续操作异常。此外直接遍历全表所有单元格的逻辑性能极低，还容易出现误匹配。

不要用Find/Replace做格式匹配后的内容追加，改为遍历工作表实际使用的单元格区域，逐个判断边框属性后追加标记，同时加入错误处理保证Excel设置正常恢复，代码如下：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim targetRng As Range, cell As Range
    On Error GoTo ErrorHandler
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    
    ' 仅遍历当前工作表已使用区域，避免全表遍历浪费性能
    Set targetRng = ActiveSheet.UsedRange
    
    For Each cell In targetRng
        ' 若需要给符合条件的空单元格也加标记，删除下面这行If判断即可
        If Not IsEmpty(cell.Value) Then
            ' 同时判断单元格上、左边框是否为连续线型
            If cell.Borders(xlTop).LineStyle = xlContinuous _
                And cell.Borders(xlLeft).LineStyle = xlContinuous Then
                ' 避免重复添加|标记
                If Left(CStr(cell.Value), 1) <> "|" Then
                    cell.Value = "|" & cell.Value
                End If
            End If
        End If
    Next cell

ErrorHandler:
    ' 无论代码是否报错，都恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    If Err.Number <> 0 Then
        MsgBox "单元格标记运行出错：" & Err.Description, vbExclamation
    End If
End Sub

• 如果需要指定固定工作表而非活动工作表，将ActiveSheet.UsedRange替换为目标工作表引用即可，例如Sheets("导出数据表").UsedRange
• 逐单元格判断边框的逻辑比Find/Replace的格式匹配准确率更高，不会出现边框类型识别错误的问题，在常规数据量场景下运行效率完全够用
• 代码自带重复标记判断，多次触发保存事件也不会重复追加|字符

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