Excel VBA实现空白列自动拼接两列值功能代码运行失效求助

原代码存在的问题 #

• 事件与作用域错误：
  1. 未指定UsedRange所属工作表，默认读取当前激活工作表，可能出现操作错表的问题
  2. 采用Workbook_AfterSave事件仅会在工作簿保存后触发，如果需要修改内容后即时生效，可更换为对应工作表的Worksheet_Change事件
• 判断逻辑不符合需求：原代码使用And条件，要求BS、BT两列同时为空才会赋值，和你要求的「两列独立判断，为空就单独赋值」的逻辑完全不符
• 拼接格式错误：拼接符写为" _"多了多余空格，会导致拼接结果出现空格+下划线，不符合直接用下划线拼接的需求
• 缺少性能优化与异常兼容：批量操作未关闭屏幕更新会导致卡顿，未显式调用单元格Value属性可能出现隐式转换错误，遇到错误值时直接判断会触发运行时错误

修正后的代码 #

如果要保留保存后触发的逻辑，可使用以下代码（放在ThisWorkbook模块中）：

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Dim ws As Worksheet
    Dim rw As Range
    ' 替换为你要处理的工作表名称，比如"Sheet1"
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 关闭屏幕更新和事件触发，提升性能避免循环触发
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    On Error GoTo ErrHandler ' 异常捕获，避免运行时错误直接崩溃
    
    For Each rw In ws.UsedRange.Rows
        ' 独立判断BS列
        If CStr(rw.Columns("BS").Value) = "" Then
            rw.Columns("BS").Value = rw.Columns("T").Value & "_" & rw.Columns("O").Value
        End If
        ' 独立判断BT列
        If CStr(rw.Columns("BT").Value) = "" Then
            rw.Columns("BT").Value = rw.Columns("T").Value & "_" & rw.Columns("O").Value
        End If
    Next rw
    
ErrHandler:
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    If Err.Number <> 0 Then
        MsgBox "运行出错：" & Err.Description, vbCritical
    End If
End Sub

补充说明 #

如果需要T、O列修改后自动填充BS/BT列，可以把代码放到对应工作表的模块中，使用Worksheet_Change事件，仅判断修改的行即可，运行性能更高。

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