添加行时添加公式vba

Question

添加行时，我想在 L 到 R 列中添加以下公式。到目前为止，这就是我所拥有的。

但我似乎无法弄清楚如何确保此宏仅在添加一行时出现，并且我不希望它运行到最后一行，而仅适用于添加的最新行。 谁能帮我这个。我还是 VBA 的新手，虽然我环顾四周如何做到这一点，但我无法捕获有助于我仅在添加的行上添加此公式的信息。 谢谢你的帮助

---

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Long

For i = 2 To LastRow

        Range("L" & i).Value = "=NETWORKDAYS(RC[-8],RC[-7],Holidays)"
        Range("M" & i).Value = "=NETWORKDAYS(RC[-8],RC[-7],Holidays)"
        Range("N" & i).Value = "=NETWORKDAYS(RC[-8],RC[-7],Holidays)"
        Range("O" & i).Value = "=NETWORKDAYS(RC[-8],RC[-7],Holidays)"
        Range("P" & i).Value = "=NETWORKDAYS(RC[-8],RC[-7],Holidays)"
        Range("Q" & i).Value = "=NETWORKDAYS(RC[-8],RC[-7],Holidays)"
        Range("R" & i).Value = "=NETWORKDAYS(RC[-8],RC[-7],Holidays)"
Next      
End Sub

Answer 1

我想到了几种方法（可能还有其他方法）。

---

测试Target 范围以查看其Address 是否为完整行：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim test As Range
    Set test = Target.EntireRow
    If test.Address = Target.Address Then
        Debug.Print "Entire row changed"
    End If
End Sub

---

测试Target范围的列数，看它是否包含每一列：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Columns.Count = Me.Columns.Count Then
        Debug.Print "Entire row changed"
    End If
End Sub

---

手动跟踪最后一行并与缓存值进行比较：

Private previousBottom As Long   '<--Worksheet level variable.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim bottom As Long
    bottom = Me.Cells(Me.Rows.Count, 1).End(xlUp).Row
    If bottom <> previousBottom Then
        previousBottom = bottom
        Debug.Print "Row inserted or deleted."
    End If
End Sub