- 670 名前：デフォルトの名無しさん mailto:sage [2012/01/04(水) 19:20:53.96 ]
- >>669
これが最後ね
Sub 逆行列2()
Dim A
Dim x As Double
Dim z
Dim i As Long, j As Long, k As Long
A = Range("a1").Resize(3, 6)
For k = 1 To 3
x = A(k, k)
For j = k To 6
A(k, j) = A(k, j) / x
Next j
For i = 1 To 3
If i <> k Then
x = A(i, k)
For j = k To 6
A(i, j) = A(i, j) - x * A(k, j)
Next j
End If
Next i
Next k
Range("a10").Resize(3, 6) = A
End Sub
