[[20200604130904]]　『結合したセルが空白の時にTarget.valueでエラー』（鰊御殿）　ページの最後に飛ぶ

『結合したセルが空白の時にTarget.valueでエラー』（鰊御殿）

こんにちは。よろしくお願いします。

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Value = "" Then Exit Sub
　　Debug.print Target.Value
End Sub

結合したセルでセルの値を空白に変えたときにエラーになります。
（「型が一致しません」と出ます）
Mergeareaを加えてみても結果は変わりません。
どのようにすればよいかエラーが起きないようになりますか？
どうかよろしくお願いします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

すみませんでした。自己解決しました。

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Cells(1).Value = "" Then Exit Sub
　　Debug.print Target.Value
End Sub

結合セルかどうかにかかわらず、これでエラーが起きなくなりました。
どうもお騒がせしました。
（鰊御殿） 2020/06/04(木) 13:36

コメント返信：