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

Question

我将首先说我对编码不太好。

我遇到的问题是当我在单元格“L”中删除我的文本时，日期保留在单元格“J”中。如果“L”为空，我如何使它自动删除？基本上，如果“L”中的单元格为空白，我希望“J”中的相应单元格为空。

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 

的范围内根据需要只要调整。