當在列中找到空單元格時插入日期

Question

您好目前我有一個代碼，允許我在Excel中插入特定日期的行。不過，現在我需要一個代碼，它允許我在具有空單元格的列中插入特定日期。我至今的代碼是：

Sub Update() 

    For Each cell In Range("B2:B318") 
     cell.Value = "9/4/2015" 

    Next 

End Sub 

我不知道做了必要的修改，以允許代碼通過B列第2行看行318和插入上的任何空單元格的具體日期。我希望任何人都可以幫助我。會很感激。謝謝。

Answer 1

測試每個單元：

Sub Update() 

    For Each cell In Range("B2:B318") 
     If cell.Value = "" Then 
     cell.Value = "9/4/2015" 
     End If 
    Next 

End Sub