Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9890 / 76734

←次へ　｜　前へ→


	【72400】再:２つのシートのデータを照合し列が一致したら転記したい

kiki - 12/8/6(月) 22:07 -


	引用なし

	パスワード

▼kiki さん：
>▼ドカさん：
>>▼kiki さん　こんにちは
>>
>>一番分かり安い方法で作ってみました。
>>Sub kiki()
>>
>>For i = 1 To 500
>>　　For n = 1 To 500
>>　　　　If Cells(i, 1) = Worksheets("Sheet1").Cells(n, 4) Then
>>　　　　　　For m = 0 To 29
>>　　　　　　　　Cells(i, 3 + m) = Worksheets("Sheet1").Cells(n, 1 + m)
>>　　　　　　Next
>>　　　　　　Exit For
>>　　　　End If
>>　　Next
>>Next
>>
>>End Sub
>
>ドカさん
>ご回答ありがとうございました！
>コードの意味はわからない部分が多々ありますが・・。
>早速明日VBAの教科書を片手に検証してみたいと思います。
>
>どうやったらいいか全く思いつきませんでしたので、
>教えていただいて本当に助かりました。
>ありがとうございました。

ドカさん
追加で教えていただけると助かります。
先日は回答ありがとうございました。
実はあの後、こちらのコードを会社で作成してみました。
正確なセル番地、シートなどは多少変えましたが。

そうすると、一つ問題が発生してしまいました・・。

シートのデータを照合した際にシート1（データが記載されている)とシート2の列で照合して、一致したらシート2へ転記というものでしたが、シート1の列に同じキーワードの列があった場合、例えば二件あれば二件とも抽出転記したかったのですが、どうしても最初の一件しか転記されません。
異なる二件のキーワードをシート2に記載して検索した場合はちゃんと一件づつ、計二件転記されています。
これはなぜでしょうか？
回答いただいてから、自分なりにいろいろ検討しコードを変えてみたのですが結局わかりませんでした。

実は別サイトで回答いただいたコードもだめでした。

本日こんどはfindnextを使ってなんとか希望のものを書いてみたのですが、ちょっと怪しいかんじです。自分で作ったコードは会社にあるので今すぐにはお見せできません。

こちらのコードを手直しして使わせて頂ければ安心なのですが・・。
今後の勉強のためにも複数件あるデータを検索して転記する方法を教えて頂けますと幸いです。

6 hits

▼

【72393】２つのシートのデータを照合し列が一致したら転記したい kiki 12/8/1(水) 23:50