удаление строк и столбцов из массива

[drNabla]

Здравствуйте.
Есть небольшая задачка: в макросе создаю пользовательскую функцию, в ней формируется массив NxN как из этого массива убрать определённую строку и столбец?
Заранее всем благодарен.

[kuklp]

Только через другой(временный) массив.

[drNabla]

в принципе можно, тогда останется исходный массив и ещё будет второй полученный на одну строку и один столбец меньше исходного?

[kuklp]

Будет хорошим тоном поудалять ВСЕ масивы перед завершением программы(End Sub). Ну, типа
Erase a
a - имя массива.

[drNabla]

эту уже решать более опытным. я тут мало знаю таких тонкостей.

[kuklp]

Так кто не дает учиться? Ваше число сообщений вполне сопоставимо с моим. Это намек. Учитесь.

[drNabla]

после ваших высказываний и правда появилась одна идея, щас сделаю покажу, вы оцените.

[kuklp]

. Жду.

[drNabla]

Public Function minor(rgn1 As Range, k As Long, i As Long, j As Long, r As Long, e As Long) As Double
Dim n As Long, l As Long, h As Long, g As Long
Dim RR
RR = rgn1.Value
ReDim C(k, k)
ReDim A(k - 1, k - 1)

' k - размерность матрицы, i - удаляемая строка, j - удаляемый столбец, r e - для вывода на лист
For l = 0 To k - 1
For n = 0 To k - 1
C(n, l) = RR(n + l * k + 1, 1)
Next
Next

For l = 0 To k - 1
For n = 0 To k - 1
h = 0
g = 0
If n >= i - 1 Then h = n + 1 Else h = n
If l >= j - 1 Then g = l + 1 Else g = l
A(n, l) = C(h, g)
Next
Next


minor = A(r - 1, e - 1)
Erase A
Erase C
End Function

вот так получилось, или можно проще сделать?

[kuklp]

Ну, не знаю. Пока так: