VBAコードが遅れを遅らせる原因

Question

以下のマイコードは、入力された最初の日付に基づいて日付をデクリメントするために、また列Bが入力された場合に使用されます。 Excelにインポートされたデータは非常に大きいので、この計算は今や私のExcelの遅れを引き起こしています。それをスピードアップする方法はありますか？

For i = 1 To rowNow - 3 

newDate = DateAdd("d", -i, oldDate) 

For Each Cell In Range("A:A").Cells 

If IsEmpty(Cell) = True And IsEmpty(Range("B:B")) = False Then Cell.Value = newDate: Exit For 

Next 
Next 

Answer 1

多分これは、列Bに何があるかに応じて：

For i = 1 To rowNow - 3 
    newDate = DateAdd("d", -i, oldDate) 
    With Range("A:A") 
     On Error Resume Next 
     Intersect(.SpecialCells(xlCellTypeBlanks), .Offset(, 1).SpecialCells(xlCellTypeConstants).Offset(, -1))(1).Value = newDate 
    End With 
Next i