Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Heroes
1 / 1 / 0
Регистрация: 12.06.2015
Сообщений: 93
1

Как таблицы на разных листах свести в одну таблицу VBA кодом

18.07.2016, 20:04. Просмотров 819. Ответов 5
Метки нет (Все метки)

пример во вложении на листе "задание"

сам файл
0
Вложения
Тип файла: rar 1.rar (46.7 Кб, 25 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.07.2016, 20:04
Ответы с готовыми решениями:

Нужно свести 9 файлов в одну таблицу
Добрый день, Министерство запросило у нас отчет по прилагаемой форме, разослали по подведомственным...

Сведение таблиц на разных листах в одну с Excel
Задача, вроде, простая, но никак не пойму, как к ней подступиться. То ли можно все решить с помощью...

Свести 4 таблицы в одну и отсортировать строки по дате и времени
примерно должны получиться матрицы и пустые поля

Как суммировать данные с разных книг Excel в одну таблицу
Уважаемы гуру VBA помогите новичку не провалить задание.:cry: Дело в том, что с разных отделов (...

5
Hugo121
6556 / 2591 / 472
Регистрация: 19.10.2012
Сообщений: 7,789
18.07.2016, 22:17 2
цикл по листам (от 1 до 3)
в нём цикл по строкам (от 4 до последней занятой в первом столбце)
в нём цикл по столбцам (от 3 до последней занятой в третьей строке)
если есть значение/количество
увеличиваем индекс
по этому индексу/номеру_строки пишем в сводный лист артикул, наименование товара, месяц, организация, количество, менеджер.
Всё по первому вопросу.
Есть некоторая сложность с объединёнными ячейками, но это как всегда... Тут решаема.

По второму вопросу не думал.
0
Heroes
1 / 1 / 0
Регистрация: 12.06.2015
Сообщений: 93
18.07.2016, 23:14  [ТС] 3
спасибо, а в виде кода это как будет?
0
Heroes
1 / 1 / 0
Регистрация: 12.06.2015
Сообщений: 93
20.07.2016, 12:03  [ТС] 4
помогите пожалуйста, гуру VBA
0
toiai
3183 / 938 / 216
Регистрация: 29.05.2010
Сообщений: 2,044
20.07.2016, 21:47 5
Примерно так по 1-му вопросу -сбор данных на лист:
Кликните здесь для просмотра всего текста
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
31
32
33
Sub SborData()
    Dim ri As Range, b(), i&, j&
    Application.ScreenUpdating = False
    zag = Array("Артикул", "Наименование товара", "Кол-во", "Организация", "Месяц", "Менеджер")
    Sheets.Add
    Set ShS = ActiveSheet
    ShS.Cells(1, 1).Resize(1, 6) = zag
    a = Array("Менеджер 1", "Менеджер 2", "Менеджер 3")
    For Each sh In Sheets(a)
        With sh
            .Activate
            Set r1 = .Range(Cells(1, 3), Cells(1, .UsedRange.Columns.Count))
            Set r3 = .Range(Cells(3, 3), Cells(3, .UsedRange.Columns.Count))
            ReDim b(1 To 6)
            b(6) = .Name
            For i = 4 To .UsedRange.Rows.Count
                Set ri = .Range(Cells(i, 3), Cells(i, .UsedRange.Columns.Count))
                For j = 1 To ri.Cells.Count
                    If Not IsEmpty(ri.Cells(j)) Then
                        b(1) = .Cells(i, 1)
                        b(2) = .Cells(i, 2)
                        b(3) = ri.Cells(j)
                        b(4) = r3.Cells(j)
                        b(5) = r1.Cells(j).MergeArea.Cells(1)
                        ShS.Cells(ShS.UsedRange.Rows.Count + 1, 1).Resize(1, 6) = b
                    End If
                Next
            Next
        End With
    Next
    ShS.Activate
    Application.ScreenUpdating = True
End Su
1
selenti
0 / 0 / 0
Регистрация: 25.07.2016
Сообщений: 8
25.07.2016, 10:33 6
toiai, помогите пожалуйста создать макрос по моей таблице
0
25.07.2016, 10:33
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.07.2016, 10:33

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Два разных комбобокса используют в качестве источника данных одну таблицу, но пишут данные в РАЗНЫЕ поля прибинденной таблицы. Данные меняются в ОБОИХ
ComboBox.DataBindings.Add. Два разных комбобокса используют в качестве источника данных одну...

Как ответы свести в одну строку?
Только начали изучать информатику и C++ поэтому задача может показаться вам смешной... Все просто....

Распределение таблицы VBA кодом
Добрый день уважаемые форумчане, имеем две таблицы на листах Лист 1 и лист МЛН, на листе МЛН...

Как свести таблицу в один столбец?
Есть одна большая таблица, строки в которых должна по порядку транспонироваться в один столбец. Во...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.