|
はじめまして。
初心者で、とりとめもない質問になってしまうかもしれませんが
ご教授願います。
1.やりたいこと
・A列には日付が行によって入力されていたり、しなかったりランダムにが入力さ れています。
・C列には文字列で20070221と入力されているか#N/Aとなっています。
・これをA列にもし入力されていなかったら日付に変換して貼り付ける。
と、いうことをやりたいと思っています。
2.現在の状況
=IF(ISERROR(A1),"",IF(A1=0,"",DATE(LEFTB(A1,4),MIDB(A1,5,2),RIGHTB(A1,2))))
という関数を作ってD列に日付か空白を入力しています。
・これをFor〜Next文で空白""でなければA列に貼り付けるということを実施
している。
3.問題点
・For〜Next文だと1500行もあるので非常に時間がかかる。
・A列に入力してあるところはそのままにしておきたいので、
ただ、列をコピーして張り付けると上書きされてしまう。
・「空白を無視して張り付ける」を使用しても""には0文字となってしまって
おり空白とは認識されない。
・A列の書式は保ちたい。
以上のような問題を解決する方法がありましたら、是非ご教授願います。
素人で伝わりづらかったら申し訳ありません。長文ですみません。
|
|