こんにちは。
基本的な処理の考え方が違っていますね。
>On Error GoTo Err
エラールーチンは、良く理解したうえで行うべきで、
>基本的に2007/05/08のような日付データが入っている
なら、日付データであるかチェックすべきで、エラールーチンは、避けようのないものに対して行うものです。設定そのものは、他の方が書いたとおりです。
Dim LineNo As Long
Dim WrkDate As Date
LineNo = 1
Do
If IsDate(Range("S" & LineNo).Value) Then
WrkDate = Range("S" & LineNo).Value
Range("X" & LineNo).Value = WrkDate + 7
End If
LineNo = LineNo + 1
Loop While Range("S" & LineNo).Value <> ""
お礼
いつもありがとうございます。 たしかにこの通りですね。