VBA编译错误：检测到模糊名称Worksheet_Change 求助

错误原因 #

同一个工作表模块里不能存在两个同名的Worksheet_Change事件过程，VBA无法区分要执行哪一段逻辑，因此触发"Ambiguous name detected"编译错误。

修复方案 #

把两个功能合并到同一个Worksheet_Change事件过程中，同时做好事件禁用恢复、错误处理，避免逻辑冲突：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 禁用事件防止递归触发
    Application.EnableEvents = False
    
    On Error GoTo Cleanup ' 错误处理，确保事件能恢复
    
    ' 处理A1单元格的时间戳功能
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If Target.Value = "" Then
            Range("B1").Value = ""
        Else
            Range("B1").Value = Format(Now, "dd/mm/yyyy HH:mm:ss AM/PM")
        End If
    End If
    
    ' 处理G列的行移动功能
    If Not Intersect(Target, Range("G:G")) Is Nothing Then
        ' 支持一次性修改多个G列单元格的场景
        Dim cell As Range
        For Each cell In Intersect(Target, Range("G:G"))
            If cell.Value = "yes" Then
                cell.EntireRow.Copy Sheets("s2").Cells(Sheets("s2").Rows.Count, "A").End(xlUp).Offset(1)
            End If
        Next cell
    End If

Cleanup:
    ' 恢复事件触发，避免后续功能失效
    Application.EnableEvents = True
    If Err.Number <> 0 Then Err.Raise Err.Number ' 抛出错误方便调试
End Sub

关键优化说明 #

• 合并事件过程：将两个功能逻辑整合到唯一的Worksheet_Change中，从根源解决同名冲突
• 错误防护：添加错误捕获，确保哪怕代码出错，事件触发功能也能正常恢复
• 多单元格兼容：遍历修改的单元格，支持批量修改G列内容的场景
• 递归避免：一开始禁用事件，防止修改单元格时重复触发Worksheet_Change导致死循环

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