Как правильно перенести данные из массива в массив в таком случае?

@Kkarn · Регистрация: 02.12.2014

Студворк — интернет-сервис помощи студентам

Добрый день. Подскажите, пожалуйста, или хотя бы натолкните на мысль)

В экселе при создании макроса имеется двумерный массив данных (выгруженный в массив с листа) с полями примерно такого плана:
"Дата", "Магазин", "Наименование1", "Цена1", "Наименование2", "Цена2".

И есть итоговый массив, в который надо перенести эти же данные, но только он уже вида "Дата", "Магазин", "Наименование", "Цена". То есть в процессе заполнения записей массива нужно переносить примерно так:
1. "Дата", "Магазин", "Наименование1", "Цена1"
2. "Дата", "Магазин", "Наименование2", "Цена2".

То есть происходит как бы консолидация данных, когда в итоговый массив пишутся для каждой записи значения первых двух полей - и потом соответствующей им пары "Наименование" и "Цена" (в первую запись - первая пара значений, во вторую запись - вторая, и т.д.

В исходном массиве возможно могут быть и "Наименование3", "Цена3" и т.д., т.е. он может быть довольно большим "в ширину". Я для примера упростил до двух "пар" полей, если я пойму, как делать с двумя, то там уже разберусь и как обработать остальные возможные поля.

Теоретически я понимаю, что это все нужно делать циклами, но пока что-то не могу сформулировать для себя механизм обработки... Буду признателен, если натолкнете на мысль) Заранее спасибо.

Аксима · 05.12.2014, 16:39

Здравствуйте, Kkarn,

Для меня самое простое решение в вашем случае - использовать SQL-запрос.

Программа, использующая SQL-запрос, будет выглядеть примерно так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ReorganizeMyDatabase()
    Dim i As Long, db As String, qry As String, cnn As Object, rst As Object
    db = "[" & Sheets(InputBox("Введите название листа, где находится ваша база данных:", "Расположение данных")).Name & "$]"
    qry = "SELECT Дата,Магазин,Наименование1,Цена1 FROM " & db
    For i = 2 To Val(InputBox("Введите количество пар ""Наименование-Цена"" в исходной таблице:", "Количество пар"))
        qry = qry & " UNION SELECT Дата,Магазин,Наименование" & i & ",Цена" & i & " FROM " & db
    Next i
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";Extended Properties=""Excel 12.0 Macro;HDR=YES"";"
    Set rst = CreateObject("ADODB.Recordset")
    rst.Open qry, cnn
    Sheets.Add.Cells(1).CopyFromRecordset rst
    rst.Close
    cnn.Close
End Sub

С уважением,

Аксима

@Kkarn · 06.12.2014, 10:35 **[ТС]**

Хм, решение красивое, спасибо. Но в моем случае не может быть использовано ничего, кроме массива. То есть мы работаем не с данными на листе, а с двумерным массивом VBA. А ведь к массиву, насколько я понимаю, не применишь SQL-запрос... А запрос мне понравился, еще раз спасибо. Буду думать в этом направлении. Жаль, что задача для меня стоит именно в Excel, через Access мне было бы гораздо ближе, роднее и проще)...
Если у кого-нибудь будут еще варианты - заранее благодарен.

Добавлено через 17 часов 33 минуты
Все, уже сам придумал. Все работает.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@Kkarn 902 / 292 / 50 Регистрация: 02.12.2014 Сообщений: 1,229

	Как правильно перенести данные из массива в массив в таком случае? 05.12.2014, 15:28. Показов 1887. Ответов 2 Метки нет (Все метки) Добрый день. Подскажите, пожалуйста, или хотя бы натолкните на мысль) В экселе при создании макроса имеется двумерный массив данных (выгруженный в массив с листа) с полями примерно такого плана: "Дата", "Магазин", "Наименование1", "Цена1", "Наименование2", "Цена2". И есть итоговый массив, в который надо перенести эти же данные, но только он уже вида "Дата", "Магазин", "Наименование", "Цена". То есть в процессе заполнения записей массива нужно переносить примерно так: 1. "Дата", "Магазин", "Наименование1", "Цена1" 2. "Дата", "Магазин", "Наименование2", "Цена2". То есть происходит как бы консолидация данных, когда в итоговый массив пишутся для каждой записи значения первых двух полей - и потом соответствующей им пары "Наименование" и "Цена" (в первую запись - первая пара значений, во вторую запись - вторая, и т.д. В исходном массиве возможно могут быть и "Наименование3", "Цена3" и т.д., т.е. он может быть довольно большим "в ширину". Я для примера упростил до двух "пар" полей, если я пойму, как делать с двумя, то там уже разберусь и как обработать остальные возможные поля. Теоретически я понимаю, что это все нужно делать циклами, но пока что-то не могу сформулировать для себя механизм обработки... Буду признателен, если натолкнете на мысль) Заранее спасибо. 0

@Kkarn 902 / 292 / 50 Регистрация: 02.12.2014 Сообщений: 1,229
	06.12.2014, 10:35 [ТС]
	Хм, решение красивое, спасибо. Но в моем случае не может быть использовано ничего, кроме массива. То есть мы работаем не с данными на листе, а с двумерным массивом VBA. А ведь к массиву, насколько я понимаю, не применишь SQL-запрос... А запрос мне понравился, еще раз спасибо. Буду думать в этом направлении. Жаль, что задача для меня стоит именно в Excel, через Access мне было бы гораздо ближе, роднее и проще)... Если у кого-нибудь будут еще варианты - заранее благодарен. Добавлено через 17 часов 33 минуты Все, уже сам придумал. Все работает. 0