Вам было бы проще изменить структуру данных, объединив три двумерные матрицы в один трехмерный массив (используя библиотеку abind
). Тогда решение будет более прямым, используя apply
и указав размеры для усреднения.
РЕДАКТИРОВАТЬ:
Когда я ответил на вопрос, он был помечен homework
, поэтому я просто дал подход. Оригинальный плакат удалил этот тег, поэтому я возьму его / ее на слово, что это не так.
library("abind")
all.matrix <- abind(all.dat, along=3)
apply(all.matrix, c(1,2), mean)
Используйте другую ссылку для своей «копии»:
Dim selBkUp As Range
Set selBkUp = ActiveDocument.Range(Selection.Range.Start, Selection.Range.End)
Или используйте дубликат:
Dim selBkUp As Range
selBkUp = Selection.Range.Duplicate