当其他单元格为空白时删除单元格VBA excell

Question

我首先要说的是我对编码不太满意。

我遇到的问题是当我在单元格中删除我的文本时＃L;＃＆＃34;日期留在单元格＆＃34; J＆＃34;。如果＆＃34; L＆＃34;如何使其自动删除？是空白的？基本上如果在＆＃34; L＆＃34;是空白我希望相应的单元格在＆＃34; J＆＃34;是空白的。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim L As Range, Inte As Range, r As Range
    Set L = Range("L:L")
    Set Inte = Intersect(L, Target)
    If Inte Is Nothing Then Exit Sub
    Application.EnableEvents = False
        For Each r In Inte
            ActiveSheet.Range("J" & r.Row).Value = Date
            Next r
    Application.EnableEvents = True
End Sub

Answer 1

您可以将其用于代码：

Range("L1:L10").SpecialCells(xlCellTypeBlanks).Offset(0, -2).ClearContents

根据需要调整范围。