當其他單元格空白時刪除單元格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 

的範圍內根據需要只要調整。