こんな簡単なことがVBAではできないのでしょうか?