excel2003 複数の行のデータを連動して消す

質問

excel2003 のvbaで質問です。

changeイベントで、とある列で複数行のデータを消すと、
それと同じ複数行の指定列を連動して消せるようにしたいです。
https://www.dropbox.com/s/01saveqkt1u93zj/%E3%82%AD%E3%83%A3%E3%83%...

私がやると、どうしても先頭の一行しか消すことができず投稿いたしました。
どのように記述したらいいか、教えていただけないでしょうか。

回答No.1

keithin · ベストアンサー

例：Ａ列を削除するとＣ列も連動する

private sub Worksheet_Change(byval Target as excel.range)
　dim h as range
　on error resume next
　for each h in application.intersect(target, range("A:A"))
　　if h = "" then cells(h.row, "C").clearcontents
　next
end sub

お礼

ご返事が遅くなり、申し訳ございません。
期待通りに動作することができました。
無理じゃないかと諦めていただけに、とても有り難いです。VBAの世界は色んな技術がまだまだたくさんあって、本当に面白いです。
素晴らしい回答をありがとうございました。