Esera,

Это не Visual Basic

Esera,

Я накидал код. Он почти наверняка сходу не заработает : нужно доводить до ума, проверять границы массивов и т.д. Берите его как идею и дорабатывайте:

Private mintMatrix(5, 3) As Integer 'поставите свои размерности

Private Sub Command1_Click()
LoadMatrix 'Здесь заполните матрицу

If ThrowMessage(0, 5, 0, 3) Then
MsgBox "Слишком много строк содинаковыми элементами!"
Else
DeleteRows
End If

End Sub

Private Function ElementsTheSameInRow(ByVal pintRow As Integer, _
ByVal pintLowColBound As Integer, _
ByVal pintUpperColBound As Integer) As Boolean

Dim intCol As Integer
Dim blnReturn As Boolean

For intCol = pintLowColBound To pintUpperColBound - 1
blnReturn = mintMatrix(pintRow, intCol) = mintMatrix(pintRow, intCol + 1)
If Not blnReturn Then Exit For
Next intCol

ElementsTheSameInRow = blnReturn

End Function

Private Function ThrowMessage(ByVal pintLowRowBound As Integer, _
ByVal pintUpperRowBound As Integer, _
ByVal pintLowColBound As Integer, _
ByVal pintUpperColBound As Integer) As Boolean
Dim blnReturn As Boolean
Dim intRow As Integer
Dim intRows As Integer

For intRow = pintLowRowBound To pintUpperRowBound
If ElementsTheSameInRow(intRow, pintLowColBound, pintUpperColBound) Then
intRows = intRows + 1
End If
If intRows >= Int(pintUpperRowBound / 2) + 1 Then
blnReturn = True
Exit For
End If
Next intRow

ThrowMessage = blnReturn
End Function

Private Sub DeleteRows(ByVal pintLowRowBound As Integer, _
ByVal pintUpperRowBound As Integer, _
ByVal pintLowColBound As Integer, _
ByVal pintUpperColBound As Integer)

Dim intRow As Integer

For intRow = pintUpperRowBound To pintLowRowBound Step -1
If ElementsTheSameInRow(intRow, pintLowColBound, pintUpperColBound) Then
ReDim Preserve mintMatrix(pintUpperRowBound - 1)
End If
Next intRow

End Sub

ReDim Preserve у меня как есть работать не будет. Воспользуйтесь для удаления строк советом AndreTM.

Я подразумеваю, что строки - это первое измерение, а его в ReDim Preserve менять нельзя, если измерений хотя бы два. А это большое неудобство. Метода Transpose тоже нет.

Ага. Будет еще сложнее, когда дело дойдет до удаления строк.

А реальные программы какие сложные! Раз в 500.

http://www.developerfusion.co.uk/show/3653/8/
Здесь показано, как удалять отдельные элементы из массивов.