excel BVでTarget.Offset

質問

勤務表を作成しています。
勤務「Ｃ」の翌日は「休」にするところまでは出来たのですが、「Ｃ」が連続する日は「休」も連続させたいのです。例）３日と４日が「Ｃ」の時は、５日、６日は連休にしたいのですが、作った下のマクロでは７日も「休」になってしまいます。何が間違ってるんでしょうか？。
If Target.Count > 1 Then Exit Subの意味も良く解っていませんが…。
どなたか教えてください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub

If Target.Value = "Ｃ" Then
Target.Offset(0, 1).Value = ("休")
End If

If Target.Offset(0, -2).Value = "Ｃ" Then
Target.Offset(0, 1).Value = ("休")
End If
End Sub

回答No.1

merlionXX · ベストアンサー

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Count > 1 Then Exit Sub '複数セルの入力は無視
　　If Target.Value <> "Ｃ" Then Exit Sub 'Ｃ以外の入力は無視
　　If Target.Offset(0, -1).Value = "Ｃ" Then 'Ｃが連続したら
　　　　Target.Offset(0, 1).Resize(1, 2).Value = ("休") '連休に
　　Else
　　　　Target.Offset(0, 1).Value = ("休") 'そうでなければ休に
　　End If
End Sub

お礼

早速のご回答、大変ありがとうございました。出来ました。