Excel VBA开发需求：F/G列单元格变更时更新指定范围D列数据

核心VBA代码 #

将这段代码粘贴到目标工作表的代码窗口中（右键工作表标签→查看代码）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 声明变量
    Dim watchRange As Range
    Dim changedRow As Long
    Dim targetValue As Variant
    Dim matchValue As Variant
    Dim i As Long
    
    ' 限定监控范围：仅响应F2:G31区域内的变更
    Set watchRange = Intersect(Target, Me.Range("F2:G31"))
    
    ' 若变更不在监控范围内，直接退出
    If watchRange Is Nothing Then Exit Sub
    
    ' 禁用事件，避免更新单元格时循环触发代码
    Application.EnableEvents = False
    
    ' 提取变更行的E列值、G列值
    changedRow = Target.Row
    targetValue = Me.Cells(changedRow, "E").Value
    matchValue = Me.Cells(changedRow, "G").Value
    
    ' 遍历2-31行，匹配A列值并更新D列
    For i = 2 To 31
        If Me.Cells(i, "A").Value = matchValue Then
            Me.Cells(i, "D").Value = targetValue
        End If
    Next i
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

关键知识点拆解 #

• 循环触发控制：

  • 用Worksheet_Change事件实现单元格变更触发，仅作用于当前工作表。
  • 通过Intersect判断变更单元格是否在目标监控范围，过滤无关操作。
  • 操作前后切换Application.EnableEvents状态，防止更新D列时重复触发事件造成死循环。

• 变量声明与赋值：

  • 用Dim明确变量类型，比如changedRow As Long存储行号，Variant类型兼容单元格的文本、数字等多种数据。
  • 通过Me.Cells(行号, 列标识).Value提取单元格值，赋值给对应变量，Me指代当前工作表，避免跨表错误。

• 单元格值更新：
  直接通过Me.Cells(i, "D").Value = targetValue给指定单元格赋值，定位行号i来自循环遍历，列标识可使用字母（如"D"）或数字（如4）。

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