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

@Winner777 · Регистрация: 26.05.2021

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

Здравствуйте!

Есть на работе экселевский файл. Данные в него заносились для просмотра. Сейчас решили перенести в базу.
Есть номер лицевого счета, может быть несколько ФИО для одного лицевого счета, адрес и другие данные.

Подскажите пожалуйста - как с помощью VBA - по одному значению в ячейке - номеру лицевого счета, в одну строчку - привязать все другие данные ???

У меня только единственная мысль - определить границы диапазона массива - они будут по высоте между номерами лицевого счета и по длине до конца таблицы - но как это сделать - я не знаю и не умею.

А вот как это структурировать в одну строчку - это другой вопрос который я тоже не знаю как решать.

Помогите пожалуйста.

Спасибо.

@Winner777 · 28.05.2021, 08:32 **[ТС]**

"КостяФедореев":Winner777, убрал лишние точки с запятой ---
---

Спасибо Большое !!! Взял Ваш последний вариант, оставлял без изменений, также в нем менял строчку 26 - если Вам не трудно - посмотрите пожалуйста -
- в первом блоке - не печатается из столбца текст ;
- в блоке с лицевым счетом 262728 - произошел какой-то сдвиг - в нем вообще пустая строка, а в следующих блоках ниже - не берутся почему-то верхние ФИО: например Экселев Эксель Экселевич лс 353637, 383940, также не берутся цифры - долг, пеня, госпошлина

Скриншот прилагаю.

Спасибо.

@КостяФедореев · 28.05.2021, 08:59

Winner777, думаю так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public Sub www()
    Dim arr()       As Variant
    lr = Cells(Rows.Count, 3).End(xlUp).Row
    ReDim arr(1 To lr + 10, 1 To 8)
 S1 = 2
    For i = 2 To lr
        If Cells(i, 3) <> "" And IsNumeric(Cells(i, 3)) Then
            s2 = i
            m = m + 1
            For x = 2 To 7
                n = n + 1
                If x = 2 Then s2 = s2 - 1 Else s2 = i
                For y = S1 To s2
                    If Cells(y, x + 1) = "" Then GoTo 1
                    ValS = ValS & ";" & Cells(y, x + 1)
1:
                Next
                arr(m, x) = arr(m, x) & ";" & ValS
                arr(m, x) = Trim(Replace(arr(m, x), " ", "%", , , 1))
                arr(m, x) = Trim(Replace(arr(m, x), ";", " ", , , 1))
                arr(m, x) = Replace(arr(m, x), " ", ";", , , 1)
                arr(m, x) = Replace(arr(m, x), "%", " ", , , 1)
                ValS = ""
            Next
            arr(m, 1) = Cells(s2, 3).Value
            S1 = s2 + 1
        End If
    Next
    Sheets("Вывод").Cells(2, 2).Resize(UBound(arr), 8) = arr
End Sub

@Winner777 · 28.05.2021, 14:55 **[ТС]**

"КостяФедореев: Winner777, думаю так" ---
---

Ой красота !!!

Спасибо Вам Большое !!!

Всё работает !!!

Кстати такую вещь можно использовать в каком-нибудь комплексе, задавая параметры. Я сколько в интернете искал - нет такого.

Может кому пригодится для работы, для дома: программы: Caramba Switcher - переключает шифтом введенный ошибочно русский текст английскими буквами и обратно; LightShot - делает скриншоты области экрана - можно выделять мышкой, печатать, сохранять, вставлять - очень удобно.

Спасибо у меня почему-то не ставится.

Добавлено через 2 минуты
Люди - Всем Большое Спасибо !!!

Персонально: КостяФедореев, Алексей, Narimanych.

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Winner777 0 / 0 / 0 Регистрация: 26.05.2021 Сообщений: 12
	28.05.2021, 08:32 [ТС]
	"КостяФедореев":Winner777, убрал лишние точки с запятой --- --- Спасибо Большое !!! Взял Ваш последний вариант, оставлял без изменений, также в нем менял строчку 26 - если Вам не трудно - посмотрите пожалуйста - - в первом блоке - не печатается из столбца текст ; - в блоке с лицевым счетом 262728 - произошел какой-то сдвиг - в нем вообще пустая строка, а в следующих блоках ниже - не берутся почему-то верхние ФИО: например Экселев Эксель Экселевич лс 353637, 383940, также не берутся цифры - долг, пеня, госпошлина Скриншот прилагаю. Спасибо. Миниатюры 0

@Winner777 0 / 0 / 0 Регистрация: 26.05.2021 Сообщений: 12
	28.05.2021, 14:55 [ТС]
	"КостяФедореев: Winner777, думаю так" --- --- Ой красота !!! Спасибо Вам Большое !!! Всё работает !!! Кстати такую вещь можно использовать в каком-нибудь комплексе, задавая параметры. Я сколько в интернете искал - нет такого. Может кому пригодится для работы, для дома: программы: Caramba Switcher - переключает шифтом введенный ошибочно русский текст английскими буквами и обратно; LightShot - делает скриншоты области экрана - можно выделять мышкой, печатать, сохранять, вставлять - очень удобно. Спасибо у меня почему-то не ставится. Добавлено через 2 минуты Люди - Всем Большое Спасибо !!! Персонально: КостяФедореев, Алексей, Narimanych. 0

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

Решение