编译错误：sub or function not defined 处理方案 #

• 检查代码中是否存在与内置函数IsEmpty重名的自定义变量/函数，重命名冲突项即可解决
• 清除代码中的隐藏格式或特殊字符：将代码复制到纯文本编辑器（如记事本）后重新粘贴到VBA编辑器
• 确认工作簿宏权限：打开文件时启用宏，或在Excel设置中调整宏安全级别为"启用所有宏"（仅信任的文件使用）

E列始终为空的问题排查与修复 #

核心问题分析 #

1. 事件未触发：Worksheet_Calculate事件可能因宏禁用、代码位置错误未执行
2. 行范围判断错误：基于D列获取最后一行可能遗漏数据（D列为公式，若未填充到对应行则无值）
3. 文本匹配问题：D列公式返回的文本可能带前后空格，导致判断失败
4. 逻辑冗余：原代码仅当E列值与D列不等时才赋值，初始为空时虽能触发，但事件未执行则无效果

修复步骤 #

1. 确认事件触发：在VBA代码开头添加MsgBox "Calculate event triggered"，修改C列值后若未弹出提示：
   • 检查代码是否放在Sheet1的代码窗格（而非标准模块）
   • 确认工作簿已启用宏
2. 修正行范围获取：基于数据源C列计算最后一行，避免因D列公式未填充导致的范围遗漏
3. 优化判断逻辑：去除冗余判断，直接根据D列值同步E列，同时用Trim()处理空格问题
4. 检查E列权限：若工作表被保护，需取消E列的锁定状态（右键E列→设置单元格格式→保护→取消勾选"锁定"）

修正后的VBA代码 #

Private Sub Worksheet_Calculate()
    Dim cell As Range
    Dim lastRow As Long
    Dim eCell As Range

    Application.EnableEvents = False ' 防止递归触发
    Application.ScreenUpdating = False ' 提升运行效率

    ' 基于C列（数据源）获取最后一行
    lastRow = Me.Cells(Me.Rows.Count, "C").End(xlUp).Row

    For Each cell In Me.Range("D1:D" & lastRow)
        If Not IsEmpty(cell.Value) Then
            Set eCell = Me.Cells(cell.Row, "E")
            ' 去除前后空格，确保文本匹配准确
            Select Case Trim(cell.Value)
                Case "TBC"
                    eCell.Value = ""
                Case "VALUE"
                    eCell.Value = "VALUE"
            End Select
        End If
    Next cell

    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

额外验证 #

• 确认D列公式为=IF(C1="Y", "VALUE", "TBC")，并已下拉填充至所有有数据的行
• 测试修改C列值为"Y"，检查D列是否显示"VALUE"，E列是否同步；修改为"N"时E列是否清空

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