教えてください

質問

VBAでデータを検索してそのデータを別のセルにコピー、ペーストする方法を教えてください。

まず、InputBoxにキーワードとなる文字を入力してもらい、それに合うものをデータの中から探し出し、別のセルにコピーしたいのですが・・・・。

入力してもらう文字は

　例）　　AB-C　　１２３４５６　

　　　　こんな感じです。

既にあるデータからこの文字列に合うものを検索してその行をコピーし別の指定した行にペーストしたいのです。
合うものがなかった場合”データはありません”と表示もしたいのですが・・・。

多分、慣れている方にはとても簡単な作業であるとは思いますが私はVBA初心者にも関わらず
早急に作成するように頼まれてしまいました（涙

どなたか哀れな私を救ってください。

回答No.1

nattocurry · ベストアンサー

質問文からは、「既にあるデータの範囲」と「別の指定した行」をどうコーディングすれば良いのか分からなかったので、[既にあるデータの範囲][別の指定した行]としました。

Sub test()
Dim Keyword
Dim Fnd
'入力されたキーワードを変数Keywordに入れる
Keyword = InputBox("キーワードを入力してください")
'[既にあるデータの範囲]からキーワードを検索し、検索結果のセルをオブジェクト変数Fndにセットする
Set Fnd = [既にあるデータの範囲].Find(Keyword)

'もし、キーワードが見つからなかったら
If Fnd Is Nothing Then
MsgBox "データはありません"
'もし、キーワードが見つかったら
Else
'キーワードが見つかったセルを含む行全体を、[別の指定した行]にコピペ
Fnd.EntireRow.Copy [別の指定した行]
End If
End Sub

お礼

明日、早速職場に行って使ってみます。

ありがとうございました！

こういうことすらすらできる人って尊敬します。
また何か困ったことがあったらお願いします。

補足

思い出した捕捉です。

AB-Cと123456はセットですが列が別になっています。
英語の列と数字の列になっています。

InputoBoxに続けて入力しても検索できますか？

それとも2段階に分けた方が良いですか？

たとえば、先に英語を聞き、次に数字と・・・・。

回答No.3

imogasi

#2です。
＞マクロの記録でInputBoxから入力情報を検索して・・・
そういうことを言ってない。
検索語をInputboxで指定するなんて部分は、検索をするコードの付け足し部分です。
本体の骨格部分がマクロの記録でわかるということ。
もちろん部分的に、マクロの記録を変更したり、繰り返しに持ち込んだりする必要がある場合がほとんどだが、まず丸なげしないで、結果的に行き詰まっても、やって見ることが必要だと言っている。

回答No.2

imogasi

こんなタイプの質問は、マクロの記録を取ってコードをみて、何処を変えるべきか勉強のこと。
それにこの質問はエクセルか、ワードか。どちらでも成り立つような質問だ。
エクセルかワードぐらい、質問のはじめに書くべきです。
セルとあるからエクセルか。
ワードVBAは慣れている人も少ないと思うし解説書もWEBに断片的にあるぐらい。
ーー
判らないからといって丸投げする人が多いが、マクロの記録で相当程度頼れる課題と思うので
まずやってみること。
ーー
操作は検エクセルでは、編集ー検索のそうさです。
ーー
ただ該当が２（個所）つ以上ありえる場合は、コーf度は初心者には難しいものになる。
検索の終わりをとらえるやり方が、多少VBAをやった者にも難しい。
ーー
場合によっては依頼を断らざるをえないだろう。
。

お礼

初めて質問だったので至らないことだらけですみませんでした。

マクロの記録でInputBoxから入力情報を検索して・・・・・なんてできるのですか？

知りませんでした。