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

如何为整个工作表重复宏

1 个答案: