Вывод целого массива на рабочий лист

[drNabla]

Здравствуйте.
Столкнулся с проблемой вывода целого массива на лист. Вот пример небольшого кода:

Public Function sm(rgn1 As Range, k As Long, r As Long, e As Long) As Double
Dim n As Long, l As Long, j As Long
Dim RR1
RR1 = rgn1.Value
ReDim C(k, k)
ReDim CA(k, k)

For j = 0 To (UBound(RR1) / (k ^ 2)) - 1
For l = 0 To k - 1
For n = 0 To k - 1
C(n, l) = RR1(n + j * k ^ 2 + l * k + 1, 1)
CA(n, l) = CA(n, l) + C(n, l)
Next
Next
Next

sm = CA(r - 1, e - 1)
Erase C
Erase CA
End Function

В конце результатом функции есть одно число из массива СА, заранее заданное в аргументе функции, а мне в общем то надо вывести весь массив СА на рабочий лист, я это делаю перебором r и e, но из-за этого получается что функция пересчитывается k^2 раз, хотя вся информация есть уже послы первого выполнения, вот и хочется сократить время пересчёта.
Ещё былоб не плохо сохранить все массивы С (их там j штук) в отдельном .txt файле.

Заранее всем благодарен.

[Hugo121]

Попробуйте

[a1].Resize(UBound(CA, 1), UBound(CA, 2)).Value = CA    'выгружаем результат

[drNabla]

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

Попробуйте

[a1].Resize(UBound(CA, 1), UBound(CA, 2)).Value = CA    'выгружаем результат

А куда это вставлять надо и как этим пользоваться, не очень понимаю, первый раз вижу эту функцию...

[doober]

Ещё былоб не плохо сохранить все массивы С (их там j штук) в отдельном .txt файле

Противоречит

хотя вся информация есть уже послы первого выполнения, вот и хочется сократить время пересчёта.

Если выводить CA(r - 1, e - 1) в момент его уже расчитанного значения то не получим ,С (их там j штук) в полном объеме
Нада определится либо время,либо запись в тект

[drNabla]

я себе это представлял как СА выводится перед концом функции, и этот массив полностью сосчитан, а сохранение С производится в цикле, перед переход на следующее j... или так нельзя?

[doober]

чтобы было понимание,выложите файл с матрицей 10Х10.

и образец текстового файла с результатом после выполнения вашей функции,а то мы можем говорить на разных языках

В итоге что есть,что где должно быть

[drNabla]

вот то что получилось

[doober]

Подкорректируете под свои нужды,ТХТ на диск С сохраняется.
Укажете свой путь.Функцию немного переделал

[drNabla]

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

[doober]

Пишите,можно на мыло.