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
お礼
ありがとうございます。 コンパクトで理想です。