[[20120501082530]]　『文字列を検索して削除』（take）　ページの最後に飛ぶ

『文字列を検索して削除』（take）

Excel2003です。

sheet1で日付が入力されたセルがアクティブになっています。
セルの位置は決まっていません。

Sheet2はA列の上から下に番号が入力されていて、B列以降は日付のデータで、1行で一つの単位になっています。
アクティブセルは必ずA列のどこかにあります。

sheet1のアクティブセルの日付でsheet2のアクティブセルの行を検索し、そのセル1個を削除して左に詰めたいです。
削除する目的の日付は検索する行に必ずあります。

部分的にはマクロの記録で書けるのですが、希望の動作は出来ません。
よろしくお願いします。

 >部分的にはマクロの記録
 この部分的と仰っている箇所を提示して、ここから何を希望するか、提示してください。
 もちろん、具体例を示してですよ！！

 ichinose

申し訳ありません。
では、最後の2行はないものとして回答いただけないでしょうか。
（take）

 >最後の2行はないもの
 マクロの記録のコードを提示して、そのコードのここはわかるけど、ここがわからない
 と言う情報がほしいので、もっと具体的に記述してください　と申し上げたのですが・・・。

 私は、ここのところ、そのまま使えるようなコードを極力投稿しないようにしています。

 まず、セルの削除は、

 Range("削除するセルアドレス　例A1").Delete Shift:=xlToLeft

 こんなコードで出来そうです（このままでは、作動しませんので、よく調べてください）。

 また、日付でセルの検索は、RangeオブジェクトのFindメソッドを使ってみてください。
 Match関数でもよさそうですが、まずは、Findメソッドで試してみてください。

 Findメソッドのコードは、編集----検索　の操作を　マクロの記録でコードを生成させれば、
 参考になるコードが見ることが出来ます。

 この辺りを探ってみて、分からないところを今度は、絞り込んだ投稿をしてみてください。

 ichinose

 >マクロの記録のコードを ～ ～ と申し上げたのですが・・・。
もちろん意味は通じています。

ご意見、お考え、アドバイスありがとうございます。

 >そのまま使えるようなコード
を求める初心者もいます。

また勉強してわからなければ質問いたします。
（take）

コメント返信：