Excel VBA：单元格转表格列后离开时转大写脚本失效求助

原代码存在的问题 #

• If语句未使用续行符_换行，直接换行导致语法错误
• 未处理表格无数据行（DataBodyRange为空）的边界场景，会触发空引用错误
• 未考虑Target是多个单元格的情况，直接赋值会报错
• 多段逻辑写在同一行，执行顺序混乱且可读性差

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tbl As ListObject
    Dim targetCol As Range
    Dim cell As Range
    
    ' 绑定目标表格对象
    Set tbl = Me.ListObjects("KEYHOLDERS")
    
    ' 表格无数据行时直接退出，避免空引用
    If tbl.DataBodyRange Is Nothing Then Exit Sub
    
    ' 获取表格第一列的数据区域
    Set targetCol = tbl.ListColumns(1).DataBodyRange
    
    ' 判断修改的单元格是否在目标列范围内
    If Not Intersect(Target, targetCol) Is Nothing Then
        Application.EnableEvents = False
        ' 遍历所有修改的单元格，逐个转为大写
        For Each cell In Intersect(Target, targetCol)
            cell.Value = UCase(cell.Value)
        Next cell
        Application.EnableEvents = True
    End If
End Sub

关键修正说明 #

• 拆分代码行并规范语法，确保VBA编译器能正常解析
• 增加表格数据行判断，避免表格为空时的运行错误
• 遍历处理所有修改的单元格，支持批量输入场景
• 严格控制事件开关的范围，防止循环触发Worksheet_Change事件

内容的提问来源于stack exchange，提问作者Wayne C.