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

質問

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

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

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

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

回答No.1

BLUEPIXY · ベストアンサー

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
みたいな感じかと

お礼

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

回答No.2

Raistlin

まだ締め切られていないようなので・・・。
行全体を選択するには、EntireRowプロパティが利用できます。

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

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

お礼

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