Excel VBA强制大写代码删除表格列时覆盖数据问题求助

问题根源 #

原代码在处理整列/整行操作（比如删除列）时，Target = UCase(Target.Cells(1))会将目标范围的第一个单元格值批量填充到整个范围，导致右侧列数据被覆盖。同时原代码未实现外部开关的控制逻辑。

方案1：直接修复列操作问题 #

修改代码，跳过整列/整行操作，同时逐个单元格转换大写，避免批量赋值的风险：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 跳过公式单元格、整列/整行操作
    If Target.HasFormula Or Target.Columns.Count = Me.Columns.Count Or Target.Rows.Count = Me.Rows.Count Then Exit Sub
    
    Application.EnableEvents = False
    ' 遍历每个单元格转换为大写
    Dim cell As Range
    For Each cell In Target
        cell.Value = UCase(cell.Value)
    Next cell
    Application.EnableEvents = True
End Sub

方案2：添加外部开关控制（结合其他工作表的Up_Case单元格） #

如果需要通过其他工作表的命名单元格Up_Case控制代码启停，使用以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim switchCell As Range
    ' 定位到命名单元格"Up_Case"（位于其他工作表）
    On Error Resume Next
    Set switchCell = ThisWorkbook.Names("Up_Case").RefersToRange
    On Error GoTo 0
    
    ' 开关无效或值不为"Yes"时直接退出
    If switchCell Is Nothing Or UCase(switchCell.Value) <> "YES" Then Exit Sub
    
    ' 跳过公式单元格、整列/整行操作
    If Target.HasFormula Or Target.Columns.Count = Me.Columns.Count Or Target.Rows.Count = Me.Rows.Count Then Exit Sub
    
    Application.EnableEvents = False
    Dim cell As Range
    For Each cell In Target
        cell.Value = UCase(cell.Value)
    Next cell
    Application.EnableEvents = True
End Sub

说明 #

• 开关判断不区分大小写，输入"Yes"或"YES"都会触发代码
• 当删除列/行时，代码会直接跳过，不会覆盖任何数据
• 命名单元格Up_Case无需在主工作表，完全不影响打印

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