Function myEvalAry(ParamArray ItemR()) As Variant
'引数を文字列結合後数式に変換し演算結果を返す関数
'配列を丸ごと渡すことも可(配列のネストは１回のみ)
'2006/03/04 pPoy
    Dim re As Variant
    Dim strTmp As String
    Dim varR As Variant
    Dim i As Variant, j As Variant
    
    strTmp = ""
    varR = ItemR()

    For Each i In varR
        If IsArray(i) Then
            '引数が配列の場合
            For Each j In i
                If IsNumeric(j) Then
                    re = CStr(j)
                Else
                    re = j
                End If
                strTmp = strTmp & re
            Next
        Else
            '引数が配列以外
            If IsNumeric(i) Then
                re = CStr(i)
            Else
                re = i
            End If
            strTmp = strTmp & re
        End If
    Next
    myEvalAry = Application.Evaluate(strTmp)
End Function

• この関数は、引数としてセル番地を範囲指定することができます。
  　例：　=myEvalAry(A1:C1)
  
  カンマで区切って入力することもできます。
  　例：　=myEvalAry(A1,B1,C1)
  
  
• このマクロでは引数として配列も渡せますが、配列の中に配列を入れて渡すことはできません。
  
  
• この関数をワークシートに入力した場合、シートの再計算の度にマクロも再計算されます。
  シートに大量に使用するとレスポンスが悪くなると思います
  
  
• Excel 4.0 マクロ関数を使用する方法は、こちら や、こちら を参照してください。