Excel VBA質問箱 IV

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

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


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

15797 / 76807

←次へ　｜　前へ→


	【66485】ループ処理を教えてください

Gobou - 10/9/5(日) 23:27 -


	引用なし

	パスワード

もし、あシートのG1セルがＡの場合には
　あシートの1列目には、いシートの1列目がコピーされる
　あシートの2列目には、うシートの1列目がコピーされる
　あシートの3列目には、えシートの1列目がコピーされる
　あシートの4列目には、おEシートの1列目がコピーされる
あシートのG1セルがＢの場合には
　あシートの1列目には、いシートの2列目がコピーされる
　あシートの2列目には、うシートの2列目がコピーされる
　あシートの3列目には、えシートの2列目がコピーされる
　あシートの4列目には、おEシートの2列目がコピーされる
あシートのG1セルがＣの場合には
　あシートの1列目には、いシートの3列目がコピーされる
　あシートの2列目には、うシートの3列目がコピーされる
　あシートの3列目には、えシートの3列目がコピーされる
　あシートの4列目には、おEシートの3列目がコピーされる

としたい。
しかし、ループ処理が苦手なので、以下のようになってしまった。
ループ処理を使う場合。どう書くとよいのですか？

Sub sample()
　If Worksheets("あ").Range("G1") = "Ａ" Then
　 Worksheets("い").Range("A:A").Copy Destination:=Worksheets("あ").Range("A:A")
　 Worksheets("う").Range("A:A").Copy Destination:=Worksheets("あ").Range("B:B")
　 Worksheets("え").Range("A:A").Copy Destination:=Worksheets("あ").Range("C:C")
　 Worksheets("お").Range("A:A").Copy Destination:=Worksheets("あ").Range("D:D")
　End If
　If Worksheets("あ").Range("G1") = "Ｂ" Then
　 Worksheets("い").Range("B:B").Copy Destination:=Worksheets("あ").Range("A:A")
　 Worksheets("う").Range("B:B").Copy Destination:=Worksheets("あ").Range("B:B")
　 Worksheets("え").Range("B:B").Copy Destination:=Worksheets("あ").Range("C:C")
　 Worksheets("お").Range("B:B").Copy Destination:=Worksheets("あ").Range("D:D")
　End If
　If Worksheets("あ").Range("G1") = "Ｃ" Then
　 Worksheets("い").Range("C:C").Copy Destination:=Worksheets("あ").Range("A:A")
　 Worksheets("う").Range("C:C").Copy Destination:=Worksheets("あ").Range("B:B")
　 Worksheets("え").Range("C:C").Copy Destination:=Worksheets("あ").Range("C:C")
　 Worksheets("お").Range("C:C").Copy Destination:=Worksheets("あ").Range("D:D")
　End If
End Sub

2 hits

▼

【66485】ループ処理を教えてください Gobou 10/9/5(日) 23:27

≪