vba - 清空修改单元格同一行中的特定单元格

Question

我对 VBA 比较陌生。

下面是我的代码，仅适用于第 2 行。

    Option Explicit

    Public precedent

    Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Me.[D2]) Is Nothing Then
            If Me.precedent <> Me.[D2].Value Then
               Me.[F2] = ""
               Me.[H2] = ""
               Me.precedent = Me.[D2].Value
            End If
        End If
    End Sub

我希望此代码在除第 1 行之外的每一行上运行，因为这是我的 header 。

我该怎么做？我会使用循环吗？

Answer 1

事情不应该这么复杂。只需检查 Target.Row 和 Target.Column 即可。如果前者大于1，后者等于4，则触发您想要的任何操作。

相应修改以下代码。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 1 And Target.Column = 4 Then
        Range("F" & Target.Row) = vbNullString
        Range("H" & Target.Row) = vbNullString
    End If
End Sub

请告诉我们这是否有帮助。