|
エクセル初心者です。以下の構文を簡単にする方法があれば教えて下さい。宜しくお願いします。
If Range("A10") = "I-1" Then
Range("H10").Select
Selection.Copy
Sheets("Products").Select
Range("F3").Select
Selection.PasteSpecial Paste:=xlValues
End If
If Range("A10") = "I-2" Then
Range("H10").Select
Selection.Copy
Sheets("Products").Select
Range("F4").Select
Selection.PasteSpecial Paste:=xlValues
End If
If Range("A10") = "I-3" Then
Range("H10").Select
Selection.Copy
Sheets("Products").Select
Range("F5").Select
Selection.PasteSpecial Paste:=xlValues
End If
If Range("A10") = "I-4" Then
Range("H10").Select
Selection.Copy
Sheets("Products").Select
Range("F6").Select
Selection.PasteSpecial Paste:=xlValues
End If
If Range("A10") = "I-5" Then
Range("H10").Select
Selection.Copy
Sheets("Products").Select
Range("F7").Select
Selection.PasteSpecial Paste:=xlValues
End If
|
|