如何在单元格值被清除或删除时触发Worksheet_Change代码？

你的问题很常见——默认的Worksheet_Change事件判断逻辑太局限了，只处理单个单元格内容修改的情况，没考虑到**清除多个单元格内容、删除单元格（或整行/整列）**时的场景。我来帮你调整代码：

问题根源 #

原代码里If Target.Column = startCol Then的判断有两个明显局限：

1. 当Target是多个单元格（比如选中整列清除内容、删除整行）时，Target.Column只会返回第一个单元格的列号，如果这个列不是startCol，就不会触发自动调整。
2. 当删除单元格（右键删除并移位）时，Target是被删除的范围，这时候单纯判断列号也会失效。

修改后的代码 #

Public Const startCol = 7 '(declared in a separate module)
Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检查修改/删除的范围是否和指定列有交集
    If Not Intersect(Target, Me.Columns(startCol)) Is Nothing Then
        ' 临时禁用事件，避免AutoFit触发意外循环
        Application.EnableEvents = False
        ' 对指定列整体执行自动调整宽度
        Me.Columns(startCol).AutoFit
        ' 重新启用事件
        Application.EnableEvents = True
    End If
End Sub

代码说明 #

• Intersect函数：用来判断Target（被修改/删除的范围）和指定列是否有重叠，不管你是修改单个单元格、清除整列内容，还是删除包含指定列的整行，只要涉及到第7列，都会触发逻辑。
• 禁用事件：虽然AutoFit本身不会触发Worksheet_Change，但加上Application.EnableEvents的开关是VBA编程的好习惯，能避免后续扩展代码时出现意外的事件循环。
• 整列AutoFit：直接对整个指定列执行调整，而不是只调整Target对应的部分，这样不管是删除还是清除内容，整列的宽度都会保持自适应。

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