Перейти к основному содержанию

Как создать список из одних и тех же ячеек на нескольких листах в Excel?

Предположим, мы развертываем каждую ежемесячную таблицу продаж на отдельном листе, как показано на снимке экрана ниже, и все таблицы продаж имеют одинаковый макет. Теперь мы хотим создать список из всех значений суммы (ячейка E6) на нескольких листах. Как это сделать? А что, если создать динамический список из сумм значений каждого листа? У вас есть два пути:

документ создать список из нескольких листов 1

Создайте список из одних и тех же ячеек на нескольких листах с VBA

Создайте динамический список из одних и тех же ячеек на нескольких листах с помощью Kutools for Excel

Легко объединяйте несколько листов / книг в один лист / книгу

Объединение десятков листов из разных книг в один может оказаться утомительным занятием. Но с Kutools for Excel's Объединить (рабочие листы и рабочие тетради) утилиту, вы можете сделать это всего за несколько кликов!

объявление объединить листы книги 1


С помощью следующего кода VBA вы можете легко создать список из указанных ячеек на нескольких листах. Вы можете сделать следующее:

Шаг 1: Выберите указанную ячейку, из которой вы будете создавать свой список. В нашем случае мы выбираем ячейку E6.

Шаг 2: нажмите другой + F11 одновременно с клавишами, чтобы открыть окно Microsoft Visual Basic для приложений, щелкните Вставить > Модули, а затем вставьте следующий код в окно модуля.

VBA: создание списка из одних и тех же ячеек на нескольких листах

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

Шаг 3: нажмите F5 ключ или щелкните Run кнопку для запуска этого VBA.

Затем все значения из указанной ячейки на всех листах копируются на новый лист с именем KutoolsforExcel. Смотрите снимок экрана :

документ создать список из нескольких листов 2

Этот VBA заполнит список на новом листе, а значения в списке статичны и не изменятся с исходными значениями.

Однако иногда может потребоваться заполнить список до указанного диапазона и потребовать, чтобы значения списка всегда всегда соответствовали исходным значениям в указанных ячейках. Чтобы удовлетворить эти потребности, вам следует попробовать следующий метод.


Этот метод представит Kutools for ExcelАвтора Динамически обращаться к рабочим листам утилита для создания динамического списка из одних и тех же ячеек на нескольких листах.

Kutools for Excel - Содержит более 300 основных инструментов для Excel. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Скачать сейчас!

Шаг 1: выберите диапазон, в котором вы будете заполнять динамический список, и нажмите кнопку Кутулс > Больше > Динамически обращаться к рабочим листам.

doc динамически ссылаются на листы 1

Шаг 2: В открывшемся диалоговом окне «Заполнить листы ссылок»,

документ создать список из нескольких листов 5

(1) Щелкните значок Заполнить заказ поле и выберите тип заливки из раскрывающегося списка. В нашем случае мы выбираем Заполнить вертикально ячейку за ячейкой;

(2) В Формула заполнения поле, укажите адрес ячейки, из которой вы будете создавать динамический список, а затем щелкните значок Замка кнопка  чтобы заблокировать формулу.

(3) Щелкните значок Диапазон заполнения .

Теперь вы увидите, что значения в указанных ячейках на всех листах заполнены в указанном диапазоне, как показано ниже:

При изменении исходных значений соответствующие значения в указанном списке будут изменены автоматически.

Kutools for Excel - Дополните Excel более чем 300 основными инструментами. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Get It Now


Kutools for Excel: Более 300 удобных инструментов у вас под рукой! Начните 30-дневную бесплатную пробную версию без ограничений сегодня. Скачать

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Very helpful bit of coding, saved hours of work creating a table from lots of separate data worksheets
This comment was minimized by the moderator on the site
Thank you very much for this. Just saved me hours of work as I had to go through 200 sheets doing data input... One thing to note for people is to click the cell you want it to use prior to opening ip and running the macro. Scratched my head for a couple minutes as the worksheet was opening up but didn't know why the information wasn't showing
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations