工作表单元格变更时VBA宏未执行，求助实现D列非空单元格命名为SubGrupos

核心错误点 #

• 代码最后一行误写为End Function，但这是Sub过程，必须改成End Sub，语法错误直接导致Excel无法识别执行该过程。
• 自定义函数getLastRowWithContentInColumn如果未提前定义，会触发运行时错误，直接中断宏执行。
• 用Workbooks("Grupos e sub-grupos")指定工作簿，若名称存在大小写、空格偏差，会导致引用失败。
• 未禁用事件触发，修改单元格名称时可能再次触发Worksheet_Change，造成死循环或中断。

修正后的完整代码 #

将以下代码替换原代码，粘贴到目标工作表的代码窗口中（右键工作表名称→查看代码）：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim lastRowWithContentInD As Long
    
    ' 限定触发范围为当前工作表的D列
    Set KeyCells = Me.Columns("D")
    
    ' 判断变更区域是否和D列相交
    If Not Application.Intersect(KeyCells, Target) Is Nothing Then
        ' 禁用事件，防止修改名称时重复触发Change事件
        Application.EnableEvents = False
        
        ' 直接获取D列最后一行有内容的单元格行号
        lastRowWithContentInD = Me.Cells(Me.Rows.Count, "D").End(xlUp).Row
        
        ' 设置名称范围
        If lastRowWithContentInD > 1 Then
            Me.Range("D2:D" & lastRowWithContentInD).Name = "SubGrupos"
        Else
            Me.Range("D2").Name = "SubGrupos"
        End If
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

关键修改说明 #

1. 修正过程结尾的语法错误，将End Function改为End Sub。
2. 移除依赖的自定义函数，用Excel原生方法获取D列最后一行数据，避免自定义函数缺失的问题。
3. 用Me指代当前工作表，避免工作簿名称引用错误，代码更通用。
4. 添加Application.EnableEvents = False/True，防止修改名称时重复触发Change事件，避免宏中断或死循环。
5. 将Integer类型改为Long，适配Excel的大行数（避免超过32767行时溢出）。
6. 直接用Target与KeyCells相交判断，简化代码逻辑。

验证步骤 #

1. 保存代码后，手动修改D列任意单元格内容。
2. 打开Excel的「名称管理器」，检查是否生成了SubGrupos名称，且范围正确对应D列有内容的单元格。
3. 若仍不运行，按Alt+F11打开VBA编辑器，点击「调试」→「编译VBAProject」，修复出现的编译错误。

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