Excel中条件为假时如何同时执行两个单元格操作？

首先明确：Excel的普通公式只能修改它所在的单元格，没办法直接操控其他单元格——这就是你用Substitute失败的核心原因，它本来就只能处理当前单元格的文本内容，没有跨单元格修改的能力。

给你两种可行的解决思路：

一、用辅助列+普通公式（无需编程） #

假设你要处理的目标单元格是A1，要同步修改的相邻单元格是B1：

1. 插入一个辅助列（比如C列），在C1写入你的多条件判断公式，返回TRUE或FALSE：

   =IF(AND(条件1, 条件2, ...), TRUE, FALSE)
   

   把AND(条件1,条件2,...)替换成你实际的多条件逻辑。
2. 修改A1的公式：

   =IF(C1, 原条件为真时的结果, "你要的特定值")
   

3. 修改B1的公式：

   =IF(NOT(C1), "你想设置的相邻单元格内容", B1原本的内容/逻辑)
   

   这样当C1为FALSE（原条件不满足）时，A1自动变成指定值，B1也同步修改。

二、用VBA宏（自动触发，适合复杂场景） #

如果需要自动触发修改（比如单元格内容变化时自动执行），可以用工作表事件宏：

1. 右键点击工作表标签 → 查看代码，粘贴以下代码：

   Private Sub Worksheet_Change(ByVal Target As Range)
       ' 只监控你需要处理的单元格范围，比如A列第1行到第100行
       If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
           Dim isConditionMet As Boolean
           ' 替换成你的多条件判断逻辑，示例：A1的值在10到20之间
           isConditionMet = (Target.Value > 10 And Target.Value < 20)
           
           If Not isConditionMet Then
               ' 关闭事件防止循环触发
               Application.EnableEvents = False
               ' 设置当前单元格为特定值
               Target.Value = "特定值"
               ' 修改右侧相邻单元格（Offset(0,1)表示右移1列，要下移就用Offset(1,0)）
               Target.Offset(0, 1).Value = "相邻单元格的修改内容"
               Application.EnableEvents = True
           End If
       End If
   End Sub
   

2. 修改代码里的监控范围、条件判断逻辑和目标值，保存文件为.xlsm格式（启用宏的工作簿）。

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