Страницы: 1
RSS
Свод в вертикальную таблицу с горизонтальных таблиц с других листов
 
Хочу сделать в сводной таблице информацию по видам спорта городов за 1 квартал (например). Информации по городам разделены отдельно в листы. Но они там указаны вертикально. Сводная таблица у меня горизонтальная. Какую формулу можно использовать чтобы в горизонтальную таблицу тянуть из вертикальной? Во вложений у меня пример. (Это просто пример. Сама таблица у меня большая)
 
Алмат Тулекбаев,
Код
Sub sbor()
Dim sh As Worksheet, sh2 As Worksheet
Dim lr As Long, lcol As Long
Dim i As Long, n As Long, k As Long, m As Long
Dim cell As Range, cell2 As Range
Set sh2 = Worksheets("Сводная")
Application.ScreenUpdating = False
For Each sh In Worksheets
    If sh.Name <> "Сводная" Then
    lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row - 1
    lcol = sh2.Cells(2, Columns.Count).End(xlToLeft).Column
    For m = 3 To lr
        For n = 2 To lcol
            Set cell = sh.Rows(3).Find(Cells(m, 1))
            Set cell2 = sh.Columns(2).Find(Cells(2, n))
            sh2.Cells(m, n) = sh2.Cells(m, n) + sh.Cells(cell2.Row, cell.Column)
        Next n
    Next m
    End If
Next sh
Application.ScreenUpdating = True
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
Mershik, спасибо. Но не могли бы вы сделать эту формулу в моем вложенном файле чтоб быстрей понять. Я чайник в екселе, (((  
 
Алмат Тулекбаев, это не формула, это макрос...формулами это так же можно сделать, но вопрос сколько у вас листов? если всего 3 то реально есл их количество растет то не очень хорошая идея...

второй файл если данные на листах расположены одинаково)
Код
=СУММ(январь:март!C4)
Изменено: Mershik - 04.06.2020 22:08:13
Не бойтесь совершенства. Вам его не достичь.
 
Mershik,Огромное вам спасибо. Все получилось.
Страницы: 1
Наверх