Ｅｘｃｅｌマクロでの処理 おしえてください

質問

ある列を検索して 指定の文字があったら、当該セルが activecell になるマクロを作成したいのですがどうしたらいいでしょうか。

回答No.1

tsubu-yuki · ベストアンサー

普通に「検索」をマクロの記録してやれば良いですよ。

回答No.2

imogasi

マクロの記録からやるのがよかろう。
ーー
というよりも、ここまでなら、質問者のレベルでは、「検索」操作をして（ＣＴＲＬ＋Ｆ）やれば済むことだよ。
あまりＶＢＡの勉強もしてないようだが、なんで「マクロ」で、となったのか。
質問者にとって、丸移ししか手が無い状態では、回答者を使っただけになる。
ーー
見つかった後はどういう作業を予期しているのか、説明が必要。それとマクロを
（別のマクロで）連携させないと便利にならないものだ。
ーー
一番素人臭い、やり方を書いてみる（Ａ列のデータ全セルを繰り返し聞く方法）。セルの値に「ab」が見つかったら、Ａ列セルのデータをそのままＢ列に抜き出している。
例データ　Ａ列に
s
daa
f
ggh
s
sab
s
daa
dddab
ーー
Sub test01()
lr = Range("a10000").End(xlUp).Row
k = 2
For i = 2 To lr
If Cells(i, "A") Like "*ab*" Then
Cells(k, "B") = Cells(i, "A")
k = k + 1
End If
Next i
End Sub
ーー
結果
Ｂ列にＢ２セル以下に
sab
dddab