|
もし、あシートのG1セルがAの場合には
あシートの1列目には、いシートの1列目がコピーされる
あシートの2列目には、うシートの1列目がコピーされる
あシートの3列目には、えシートの1列目がコピーされる
あシートの4列目には、おEシートの1列目がコピーされる
あシートのG1セルがBの場合には
あシートの1列目には、いシートの2列目がコピーされる
あシートの2列目には、うシートの2列目がコピーされる
あシートの3列目には、えシートの2列目がコピーされる
あシートの4列目には、おEシートの2列目がコピーされる
あシートのG1セルがCの場合には
あシートの1列目には、いシートの3列目がコピーされる
あシートの2列目には、うシートの3列目がコピーされる
あシートの3列目には、えシートの3列目がコピーされる
あシートの4列目には、おEシートの3列目がコピーされる
としたい。
しかし、ループ処理が苦手なので、以下のようになってしまった。
ループ処理を使う場合。どう書くとよいのですか?
Sub sample()
If Worksheets("あ").Range("G1") = "A" 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") = "B" 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") = "C" 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
|
|