Задача по удаления строк/столбцов из массива по условию

[kukulza]

Приветствую, помогите пожалуйста.

необходимо что бы из матрицы вырезались строки и столбцы.
Критерием служит то что значения в строке/столбце меньше соответствующих значений в другой строке/столбце.

Пример:
имеем матрицу
__ В1 _ В2 _ В3_ В4 _ В5
А1 200 400 600 400 700
А2 300 400 600 500 800
А3 400 500 600 500 800
А4 700 300 500 200 100

видим что все значения А1 200 400 600 400 700
меньше соответствующих значений А2 300 400 600 500 800
следовательно строку А1 удаляем.
Такой же принцип удаления и столбцов.

Пожалуйста помогите подступится к решения задачи.

если можно отправте меня в хорошее место где я разберусь с основами синтаксиса VBA для работы с ячейкаи Excel,
что бы в этом месте был какой либо примерчик в котором забивают из Екселя в массив и потом обратно в Ексель

Заранее огоромное спасибо!

[HaSH]

Добавь к проeкту (Project - References...) Microsoft Excel Object Library.

Кад для чтения из экселя

Код: Выделить всё


Option Explicit

Public WorkSheet As Excel.WorkSheet
Public mObjXLS As Object
Dim arrTable() As String


Private Sub Command1_Click()
Dim Cols As Integer
Dim Rows As Integer


Set mObjXLS = GetObject("c:\table.xls")
Set WorkSheet = mObjXLS.Worksheets(1)
ReDim arrTable(1 To WorkSheet.UsedRange.Rows.Count, 1 To WorkSheet.UsedRange.Columns.Count)

For Rows = 1 To UBound(arrTable, 1)
    For Cols = 1 To UBound(arrTable, 2)
        arrTable(Rows, Cols) = WorkSheet.Cells(Rows, Cols)
    Next
Next

Set mObjXLS = Nothing
Set WorkSheet = Nothing

End Sub


Писать в ячейки также, только "наоборот"

Код: Выделить всё


WorkSheet.Cells(Rows, Cols)=arrTable(Rows, Cols)


Сейчас пишу ф-цию для удаления строк