VBAでIF文を作成したが、もう少しまとめたい。
以下のようなＶＢＡを作成しました。
動作に問題はないのですが、
もっと簡単にまとめることができる気がしますが、うまくできません。
何かやりかたはあるのでしょうか。
宜しくお願い致します。
If Cells(5, 1).Value = Cells(1, 1).Value Then
Cells(100, 100).Select
ActiveCell.FormulaR1C1 = Cells(5, 1)
End If
If Cells(6, 1).Value = Cells(1, 1).Value Then
Cells(100, 100).Select
ActiveCell.FormulaR1C1 = Cells(6, 1)
End If
If Cells(7, 1).Value = Cells(1, 1).Value Then
Cells(100, 100).Select
ActiveCell.FormulaR1C1 = Cells(7, 1)
End If
If Cells(8, 1).Value = Cells(1, 1).Value Then
Cells(100, 100).Select
ActiveCell.FormulaR1C1 = Cells(8, 1)
End If
If Cells(9, 1).Value = Cells(1, 1).Value Then
Cells(100, 100).Select
ActiveCell.FormulaR1C1 = Cells(9, 1)
End If
If Cells(10, 1).Value = Cells(1, 1).Value Then
Cells(100, 100).Select
ActiveCell.FormulaR1C1 = Cells(10, 1)
End If
お礼
親切に教えていただきましてありがとうございます また、keithinさんには以前にも教えていただきました 変数の使い過ぎと素人ゆえに、ＩＦ文が長くなってしまいました ベーシックの時からの悪い癖で、なんでもＩＦ文で条件判断してしまいます 変数を数値（文字）に直して補足を試みましたが、元のマクロがおかしくなってしまいました 私のレベルでは、教えていただいた方法で十分なので、使わせていただきます またマクロが正常になったら、再度質問させてください ありがとうございました