質問: subjectname '値を出力 End Sub 宜しくお願いします。
回答: 該当するセルが決まっているなら、 * CHOOSE関数を使う * Forループを回す * なんらかの判断をする か * 評価するセル範囲を配列に入れる * Forループを回す * なんらかの判断をする でよいのでは? 前者は評価するセルの個数が29個までになります(CHOOSE関数の仕様) ``` '評価するセル範囲を配列に入れる Dim EvaluateRange(1 To 6) As String EvaluateRange(1) = "B4" EvaluateRange(2) = "C4" EvaluateRange(3) = "D4" EvaluateRange(4) = "E7" EvaluateRange(5) = "F7" EvaluateRange(6) = "G7" 'Forループを回してなんらかの判断をする(今回はMsgBoxで値を表示してみた) Dim i As Integer For i = LBound(EvaluateRange) To UBound(EvaluateRange) MsgBox (Evaluate(EvaluateRange(i))) Next i ``` もっと効率的なやり方もあると思いますが、最初は泥臭いやり方でやってみるのが良いでしょう