VBA 行列の和(関数)
Function MP(arr1() As Double, arr2() As Double) As Double()
Dim m_p() As Double
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim m As Integer
n = UBound(arr1, 2)
m = UBound(arr1, 1)
ReDim m_p(m, n)
For i = 1 To m
For j = 1 To n
m_p(i, j) = arr1(i, j) + arr2(i, j)
Next j
Next i
MP = m_p
End Function