VBA 行列の差(関数)
Function MM(arr1() As Double, arr2() As Double) As Double()
Dim m_m() 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_m(m, n)
For i = 1 To m
For j = 1 To n
m_m(i, j) = arr1(i, j) - arr2(i, j)
Next j
Next i
MM = m_m
End Function