Сортировка по столбцам таблицы (MS Excel) - Visual Basic .NET - Ответ 11639820

Public Class ЛистДиапазон
    Private Sub btn_reshenie_Click(sender As System.Object, e As System.EventArgs) Handles btn_reshenie.Click
        Dim Диапазон As КлассДиапазон = New КлассДиапазон(Me.Range("diapozonrange"),
                                                          Me.Range("sumelstr"))
        Диапазон.Обработать()
    End Sub
End Class
Class КлассДиапазон
    'Свойство содержащее ссылку на диапазон
    Private diapozonrange As Excel.Range
    Private sumelstr As Excel.Range
    'Конструктор класса (создает экземпляр класса)
    Sub New(diapozonrange As Excel.Range, sumelstr As Excel.Range)
        'Инициализация свойства класса
        Me.diapozonrange = diapozonrange
        Me.sumelstr = sumelstr
    End Sub
 
    'Метод для сортировки ячеек в каждом столбце с числовыми данными и записи формул рабочего листа для определения сумм элементов строк, значения которых меньше нуля.
    Sub Обработать()
        Try
            Dim i, j As Long
            Dim temp As Long
            For j = 1 To diapozonrange.Columns.Count - 1
                For i = 1 To diapozonrange.Rows.Count
                    If Not IsNothing(diapozonrange.Cells(i, j).Value) Then
                        If IsNumeric(diapozonrange.Cells(i, j).Value) Then
                            If (diapozonrange.Cells(i, j).Value > diapozonrange.Cells(i, j + 1).Value) Then
                                temp = diapozonrange.Cells(i, j).Value
                                diapozonrange.Cells(i, j).Value = diapozonrange.Cells(i, j + 1).Value
                                diapozonrange.Cells(i, j + 1).Value = temp
                            End If
                        End If
                    End If
                Next i
            Next j
 
            For i = 1 To diapozonrange.Rows.Count
                If i < 0 Then
                    sumelstr.Cells(i).Value.Formula = "=SUM(" & diapozonrange.Rows(i).Value.Address(False, False) & ")"
                End If
            Next i
 
        Catch ex As Exception
            MessageBox.Show(text:=ex.Message,
                            buttons:=MessageBoxButtons.OK,
                           caption:="Ошибка данных",
                           icon:=MessageBoxIcon.Error)
        End Try
    End Sub
End Class

sumelstr.Cells(i).formula = "=SUM(" & diapozonrange.Rows(i).address(False, False) & ")"