excel - 如何为整个工作表重复宏

Question

第一次在这里发帖，如果放错地方或信息不足，我很抱歉。希望是一个非常简单的。我目前在我的工作表上运行了一个宏，但这仅适用于此特定行。我想在整个工作表中继续这个宏。我知道在代码中我只引用特定的单元格，但我不知道要输入什么来引用整个工作表重复的每一行的特定单元格。有人可以帮忙吗？我知道这是基础，但非常感谢您的帮助。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C383")) Is Nothing Then
        Range("F383").ClearContents
    End If
End Sub

Answer 1

您需要遍历这些行并执行与此特定行相同的操作。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim AffectedRange As Range
    Set AffectedRange = Intersect(Target, Me.Range("C383:C500")) 'check rows 383 to 500 or use Me.Range("C:C") for entire column C

    If Not AffectedRange Is Nothing Then
        Dim Cell As Range
        For Each Cell In AffectedRange 
            Me.Range("F" & Cell.Row).ClearContents
        Next Cell
    End If
End Sub