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

回答No.3

kokorone · ベストアンサー

訂正します
for col = 1 to 10
If Cells(col, 1).Value = Cells(1, 1).Value Then
Cells(100, 100).Select
ActiveCell.FormulaR1C1 = Cells(col, 1)
End If
next col

なんてのはいかがでしょうか？

お礼

回答ありがとうございます。
ＦＯＲ文を使えばいいのですね。
問題なく修正することができました。
ありがとうございました。

回答No.4

dsuekichi

-------------------------------------------------------
If Not (Range("A5:A10").Find(Cells(1, 1), LookAt:=xlWhole) Is Nothing) Then
Cells(100, 100) = Cells(1, 1)
End If
-------------------------------------------------------
とかで良いのかな・・・

お礼

回答ありがとうございます。
問題なく修正することができました。
ありがとうございました。

回答No.2

kokorone

for col = 1 to 10
If Cells(col, 1).Value = Cells(1, 1).Value Then
Cells(100, 100).Select
ActiveCell.FormulaR1C1 = Cells(col, 1)
End If

なんてのはいかがでしょうか？

回答No.1

noname#42041

Select Case　を使ってみてはいかがでしょうか？