Excel VBA質問箱 IV

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

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


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

4175 / 76734

←次へ　｜　前へ→


	【78185】エクセル内のデータ転送に関して

TODD - 16/5/20(金) 8:24 -


	引用なし

	パスワード

VBAを使用し始めた初心者です。
宜しくお願い致します。　Excel 2010

(ご質問内容)
列Fに入力している言葉を検索ワードとし列Aを検索、検索ワードと一致した場合、
同じ行のB列、C列に入力された情報をG、Hに移動させ、次の行に入力されている
検索ワードで同様のことをしたいと考えております。

　　　　　　　　　　　　　　　　　　　　一回目　　　　　　　　2回目
　　　A　　　　 B　　　C　　　　　F　　　　G　　　H　　　 I　　 J　 K
1　りんご1　　100円　青森　　りんご1　　100円　青森　りんご1　
2　バナナ1　　 80円　沖縄　　りんご2　　　　　　　　　りんご2
3　みかん1 　 120円　兵庫　　りんご3　　　　　　　　　りんご3
4　りんご2 　 110円　長野　　みかん1　　　　　　　　　みかん1
5　　　　　　　　　　　　　　みかん2　　　　　　　　　みかん2
6　　　　　　　　　　　　　　みかん3　　　　　　　　　みかん3
7　　　　　　　　　　　　　　バナナ1　　　　　　　　　バナナ1

sub くだもの
Dim i as Integer
Dim LastRow as Interger

LastRow = Range("A65500").end(xlup).Row
For i = 1 to LastRow

If range("A" & i).value = "りんご1" then
　 Range("G1").value = Range("B" & i)
　 Range("H1").value = Range("C" & i)

End if
Next
End sub

りんご1検索後、自動で次にりんご2で検索を行い、
データをG、Hに転送させるには、どうすればよいでしょうか？

また全てのF列の検索ワードのデータを転送後、
A、B、Cに新しい情報を上書きし、I、J、Kにデータを転送できるように
したいと考えております。

大変申し訳御座いませんが、ご教授して頂けないでしょうか？
宜しくお願い致します。

以上

3 hits

▼

【78185】エクセル内のデータ転送に関して TODD 16/5/20(金) 8:24