Ранг матрицы

Function MatrixRank(matrix As Range) As Integer
    Dim invMatrix As Variant
    invMatrix = Application.WorksheetFunction.Transpose(matrix)
    Dim rows As Integer, cols As Integer
    rows = matrix.Rows.Count
    cols = matrix.Columns.Count
    Dim rank As Integer
    rank = 0
    Dim tempMatrix() As Double
    ReDim tempMatrix(1 To rows, 1 To cols)
    Dim row As Integer, col As Integer
    For row = 1 To rows
        For col = 1 To cols
            tempMatrix(row, col) = matrix(row, col)
        Next col
    Next row
    Dim pivot As Integer, temp As Double
    For pivot = 1 To rows
        If (pivot > cols) Then
            Exit For
        End If
        If (tempMatrix(pivot, pivot) <> 0) Then
            rank = rank + 1
            temp = tempMatrix(pivot, pivot)
            For col = 1 To cols
                tempMatrix(pivot, col) = tempMatrix(pivot, col) / temp
            Next col
            For row = 1 To rows
                If (row <> pivot) Then
                    temp = tempMatrix(row, pivot)
                    For col = 1 To cols
                        tempMatrix(row, col) = tempMatrix(row, col) - tempMatrix(pivot, col) * temp
                    Next col
                End If
            Next row
        End If
    Next pivot
    MatrixRank = rank
End Function

Function MRang(Matrix) As Integer
Dim X, N As Integer, i As Integer, j As Integer, k As Integer, Mat() As Single, Zeile() As Single, Z As Byte, S As Byte
N = 0
For Each X In Matrix
    N = N + 1
Next
N = Sqr(N)
ReDim Mat(1 To N, 1 To N) As Single, Zeile(N) As Single

k = 0
For Each X In Matrix    ' Инициирует матрицу-----
    k = k + 1
    i = Int((k - 0.5) / N)
    j = k - i * N
    Mat(i + 1, j) = X
Next
' ----------------------------------- Приведение к треугольному виду ---------------------
For k = 1 To N      ' Ведущая строка
    For i = k To N   ' текущая строка
        X = Mat(i, k)
'-------------------------------- Перестановка строк -------------------------------------
        If X = 0 And i < N Then     ' поиск строки с X<>0
                    For Z = i To N: Zeile(Z) = Mat(i, Z): Next Z        'запомнить строку номер i
                    Z = i
                    Do                      'поиск строки с X<>0
                        Z = Z + 1
                        X = Mat(Z, k)
                    Loop While X = 0 And Z < N
                    If Z < N Then
                            For S = i To N: Mat(i, S) = Mat(Z, S): Mat(Z, S) = Zeile(S): Next S            ' собственно перестановка
                    End If
        End If
'-------------------------------- конец перестановки -------------------------------------
        X = Mat(i, k)
        If X <> 0 And X <> 1 Then
                    For j = k To N
                        Mat(i, j) = Mat(i, j) / X       'Нормировка строк на первый ненулевой элемент
                    Next j
        End If
    Next i
    
    For i = k + 1 To N                                            ' Вычитаемая строка ( k-тая ), уменьшаемая строка (i-тая)
        If Mat(i, k) <> 0 Then
                    For j = k To N                                  ' элементы уменьшаемой строки
                        Mat(i, j) = Mat(i, j) - Mat(k, j)
                    Next j
        End If
    Next i
    
Next k
'-----------------------  вычисление ранга = число ненулевых элементов (равных 1) на главной диагонали  --------------------
X = 0
For i = 1 To N
     If Mat(i, i) <> 0 Then X = X + 1
Next i
MRang = X
End Function