Извлечение одномерного массива из массива многомерности

Как написать функцию для извлечения одного массива измерений из многомерного в VBA?

Предположим, что у меня есть:

  • 3-мерный массив a(3,3,3) ,

то теперь я хочу извлечь:

  • a(1,1,1) ,

  • a(1,2,1)

и a(1,3,1) в новый массив.

Я использую здесь 3-мерный размерный массив. Это потому, что я уже знаю, что мы можем использовать Application.WorksheetFunction.Index для извлечения из 2-мерного массива.

Заранее спасибо.

Хотя функция INDEX рабочего листа может вырезать «строку» или «столбец» 2D-массива, я не знаю, как использовать его для удаления среза трехмерного массива. Казалось бы, вам нужно назначить значения «вручную».

 Sub peel_out_arr() Dim i As Long, j As Long, k As Long Dim a() As Variant, b As Variant ReDim a(1 To 3, 1 To 3, 1 To 3) For i = LBound(a, 1) To UBound(a, 1) For j = LBound(a, 2) To UBound(a, 2) For k = LBound(a, 3) To UBound(a, 3) a(i, j, k) = i + j + k Next k Next j Next i b = Array(a(1, 1, 1), a(1, 2, 1), a(1, 3, 1)) For i = LBound(b) To UBound(b) Debug.Print b(i) '<~~ results are 3, 4, 5 Next i End Sub 

Спасибо всем за вашу помощь. Я решил написать вспомогательное использование циклов, чтобы получить второе измерение массива.

 Sub slicearray(vArr As Variant, result As Variant, i As Long, j As Long) Dim k As Long ReDim result(LBound(vArr, 2) To UBound(vArr, 2)) For k = LBound(vArr, 2) To UBound(vArr, 2) result(k) = vArr(i, k, j) Next k End Sub 

Под этим суб, если я объявляю переменную b как динамический массив типа Variant , я могу получить результат

 Call slicearray(a,b,1,1) 
  • IText Sharp извлекает текст из pdf с французским скриптом MT
  • Вывод данных SQL Server Management Studio с вкладками
  • Получить данные с веб-страницы, использующей функцию ajax с помощью VBA Excel
  • Извлечение строк на основе критериев поиска
  • Извлечение частей из текстового файла
  • Любой быстрый способ экспортировать данные из Filemaker?
  • VBA: извлеките столбец до пустого, повторите на следующем листе
  • R: Как извлечь диаграммы из электронной таблицы MS Excel?
  • Каков наилучший способ извлечения содержимого таблицы из группы файлов HTML?
  • Отдельные элементы адреса из 1 ячейки в Excel
  • Импорт полей PDF в базу данных
  • Interesting Posts

    Как настраивать сортировку и добавлять ячейки?

    Отсутствует рабочий лист Excel, но формулы и определяемые имена по-прежнему работают?

    Как выбрать несколько элементов в OLAP Slicer с помощью VBA?

    Преобразование таблицы в javabean

    сделать одно значение ячейки 0, если другое значение ячейки> 0, используя excel

    Excel vba для создания любой возможной комбинации диапазона

    Как использовать do до Loop для следующего примера?

    Ищите месяц и цвет значения ячейки

    сопоставить и изменить случаи с условием в Excel

    Импорт CSV в колонку формата XLSX в виде текста

    Запросы на собрания в Outlook с использованием VBA, совместимого с Календарем Google

    Автоматизировать создание диаграмм в нескольких файлах excel?

    Использование выделения с объектами Excel

    Как вытащить данные и цвет ячейки таблицы, которые точно такие же, как Excel, используя python, pandas, django

    Правильный способ поиска значения из таблицы и заполнения ее данными

    Давайте будем гением компьютера.