Excelマクロに、「検索」は記録されない？

Ａ列とB列にそれぞれ文字が入っています。

Ａ列に含まれる文字を全て検索
↓
見つかったセルを含む行を選択。（A列のセルだけでなくその横のB列のセルもとりたいのです）
↓
切り取り
↓
別のシートに貼り付け

と言う処理を順次行うマクロを作りたいのですが、自動記録してみたところ、文字列の検索・選択の部分が全く記録されません。
この部分、どのように記述したらよろしいのでしょうか？
また、A列のセルのみならず、そのセルを含む行全体を選択するにはどうしたらいいのでしょうか？

お分かりの方がいらっしゃいましたら、どうかご教示ください。

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2004/11/29 03:02

Dim 検索文字列

検索文字列 = "TESTA"
Sheets("Sheet1").Select
Range("A:A").Select
Selection.Find(What:=検索文字列, After:=ActiveCell, LookIn:=xlValues, _
lookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
Rows(ActiveCell.Row).Select
Selection.Cut
Sheets("Sheet2").Select
Rows("1:1").Select
ActiveSheet.Paste
みたいな感じかと

この回答へのお礼

ありがとうございます！　助かります。

お礼日時：2004/11/30 12:45

No.2 回答者： Raistlin 回答日時： 2004/12/01 00:42

まだ締め切られていないようなので・・・。

行全体を選択するには、EntireRowプロパティが利用できます。

切り取ると検索条件の再設定が面倒なんですよね、がんばってください。

＃＃＃Select, Activateゼロ化運動中＃＃＃

この回答へのお礼

ありがとうございました。活用させていただきます。

お礼日時：2004/12/01 22:43