根据单元格的变化清除所有下一行的单元格值并保留公式

Posted 2021-05-07

我想创建一个VBA代码，该代码基于D列中任何单元格的更改来清除所有下一行的值，但保留公式。

例如：

如果我更改了D3，我希望范围A4：J100仅清除值但保留公式，并且如果我更改了D4，范围将为A5：j100

我发现一些代码可以部分满足y的要求，但是我无法将它们组合在一起。

此代码用于清除值但保留公式

Sub RemoveConstants()

    Dim rConstants As Range

    Set rConstants = Sheet1.Range("A1:B2").SpecialCells(xlCellTypeConstants)
    rConstants.ClearContents

End Sub
以及此代码用于基于删除同一行中的单元格（并删除公式）来删除单元格

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("L:L")) Is Nothing Then
        Range("M" & Target.Row).ClearContents
    End If
End Sub
任何想法？

例如，基于D列中任何单元格的更改，我想创建一个VBA代码来清除所有下一行的值，但保留公式，例如：如果我更改了D3，我希望范围A4：J100仅清除.. 。

答案

尝试一下。