Excel中如何通过其他控制单元格实现目标单元格的取值逻辑控制

现有如下示意图：

你的需求可以通过VBA工作表事件实现，完全满足「手动录入内容不覆盖默认逻辑，删除录入内容自动恢复默认值」的要求，以下是两个对应场景的实现方法： #

场景1：B1控制B3显示内容 #

操作步骤 #

1. 打开目标工作表，按下Alt + F11调出VBA编辑器
2. 左侧工程列表中双击需要生效的工作表名称，打开代码编辑窗口
3. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 监听B1单元格变更事件
    If Not Intersect(Target, Range("B1")) Is Nothing Then
        ' 如果B3没有手动录入的内容，就自动赋值
        If Range("B3").Value = "" Then
            If Range("B1").Value <> "" Then
                Range("B3").Value = "HELLO"
            Else
                Range("B3").Value = "NONE"
            End If
        End If
    End If
    ' 监听B3单元格变更事件，如果B3被清空就恢复默认值
    If Not Intersect(Target, Range("B3")) Is Nothing Then
        If Range("B3").Value = "" Then
            If Range("B1").Value <> "" Then
                Range("B3").Value = "HELLO"
            Else
                Range("B3").Value = "NONE"
            End If
        End If
    End If
End Sub

效果说明 #

• B1有内容时，空的B3会自动显示HELLO；B1为空时空的B3自动显示NONE
• 手动在B3输入自定义内容后，内容会保留，不会被公式覆盖
• 删除B3的自定义内容后，会自动恢复对应默认值

场景2：D1控制Exam3列默认显示 #

对应示意图如下：

操作步骤 #

同样在对应工作表的VBA代码窗口粘贴以下代码即可：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim exam3Col As Range
    ' 此处假设Exam3列为D列，数据行从第2行开始，可根据实际调整
    Set exam3Col = Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row)
    
    ' 监听D1单元格变更事件，刷新所有空的Exam3单元格
    If Not Intersect(Target, Range("D1")) Is Nothing Then
        For Each cell In exam3Col
            If cell.Value = "" Then
                If Range("D1").Value <> "" Then
                    cell.Value = "?"
                Else
                    cell.Value = ""
                End If
            End If
        Next
    End If
    
    ' 监听Exam3列单元格变更事件，清空后恢复默认值
    If Not Intersect(Target, exam3Col) Is Nothing Then
        If Target.Value = "" Then
            If Range("D1").Value <> "" Then
                Target.Value = "?"
            Else
                Target.Value = ""
            End If
        End If
    End If
End Sub

效果说明 #

• D1有内容时，所有未手动录入成绩的Exam3列单元格自动显示?；D1为空时这些单元格自动显示为空
• 手动录入成绩后内容会保留，不会被覆盖
• 删除录入的成绩后，单元格自动恢复对应默认值

注意事项 #

• 文件需要保存为*.xlsm格式（启用宏的工作簿），否则VBA代码会丢失
• 打开文件时需要选择「启用宏」，功能才能正常生效
• 代码中的单元格范围、列号可以根据你的实际表格结构自行调整
• 如果同时需要实现两个场景的功能，将两个场景的判断逻辑合并到同一个Worksheet_Change过程中即可，不要重复定义同名事件

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