Массивы в vba excel

[sabrishat]

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

Sub maximum()
Dim i As Single
Dim j As Single
Dim n As Single
Dim m As Single
Dim max As Integer
n = InputBox("введи n= ")
m = InputBox("введи m= ")
ReDim A(m, n)
For i = 1 To n
For j = 1 To m
A(i, j) = InputBox("введи A (" & i & "," & j & ")=")
Next j
Next i
max = A(1, 1): k1 = 1: l1 = 1
For i = 1 To n
For j = 1 To m
If Abs(A(i, j)) > max Then max = Abs(A(i, j))
k1 = i
l1 = j
Next j
Next i
MsgBox ("max=") & max
end sub

[Stilet]

If Abs(A(i, j)) > max Then max = Abs(A(i, j))

Тебе нужно находить не только максимум а и его координаты, а твой IF распространяется только на одну строку:

 If Abs(A(i, j)) > max Then 
  max = Abs(A(i, j)) 
  k1 = i
  l1 = j
 End If
Next j

Массивы ты создавать умеешь. Создавай новый массив но A(m-1, n-1)
Далее в цикле переносишь данные из первого массива

if k1<>j and l1<>i then
 переписываем из старого массива в новый
 b(x,y)=a(i,j)
 x=x+1
 y=y+1
end if

координаты элемента (x и y), вносимого в новый массив нужно отдельно инкрементировать
Идея понятна?

[sabrishat]

идея понятна, спасибо!!!

[sabrishat]

Сообщение от Stilet

Идея понятна?

Еще вопрос как вывести эти два массива на лист? есть заготовка:

Sheets("Лист1").Activate
Range("A1").CurrentRegion.Select
m = Selection.Columns.Count
n = Selection.Rows.Count
ReDim A(m, n)
For i = 1 To n
For j = 1 To m
Next j
Next i

не пойму в каком месте вставлять функцию inputbox . Перепробовал многое, но все равно или ругается, или вылетает программа...