Собрать данные с листов на отдельный лист (свод).

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Собрать данные с листов на отдельный лист (свод). (Формулы/Formulas)

Mark1976

Дата: Пятница, 23.04.2021, 11:53 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

Здравствуйте. Есть база данных (пока 150 учреждений) в дальнейшем больше. Мне необходимо сделать свод на отдельном листе из определенных ячеек (в примере прописал названия ячеек). Возможно это сделать формулами или нужен макрос? Заранее спасибо за решение.

К сообщению приложен файл: 3276977.xlsx (17.3 Kb)

Ответить

Nic70y

Дата: Пятница, 23.04.2021, 12:28 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

Цитата Mark1976, 23.04.2021 в 11:53, в сообщении № 1 (

)

или нужен макрос?

им проще
[vba]

Код

Sub SheetsSvod()
    Application.ScreenUpdating = False
    For v = 1 To Sheets.Count - 1
        Range("a" & v + 1) = Sheets(v).Range("c1").Value
        Range("b" & v + 1) = Sheets(v).Range("c2").Value
        Range("c" & v + 1) = Sheets(v).Range("c9").Value
        Range("d" & v + 1) = Sheets(v).Range("c10").Value
        Range("e" & v + 1) = Sheets(v).Range("c11").Value
        Range("f" & v + 1) = Sheets(v).Range("c12").Value
    Next
    Application.ScreenUpdating = True
End Sub

[/vba]