Как создать список из одних и тех же ячеек на нескольких листах в Excel?
Предположим, мы развертываем каждую ежемесячную таблицу продаж на отдельном листе, как показано на снимке экрана ниже, и все таблицы продаж имеют одинаковый макет. Теперь мы хотим создать список из всех значений суммы (ячейка E6) на нескольких листах. Как это сделать? А что, если создать динамический список из сумм значений каждого листа? У вас есть два пути:
Создайте список из одних и тех же ячеек на нескольких листах с VBA
Создайте динамический список из одних и тех же ячеек на нескольких листах с помощью Kutools for Excel
Легко объединяйте несколько листов / книг в один лист / книгу
Объединение десятков листов из разных книг в один может оказаться утомительным занятием. Но с Kutools for Excel's Объединить (рабочие листы и рабочие тетради) утилиту, вы можете сделать это всего за несколько кликов!
Создайте список из одних и тех же ячеек на нескольких листах с VBA
С помощью следующего кода 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. Смотрите снимок экрана :
Этот VBA заполнит список на новом листе, а значения в списке статичны и не изменятся с исходными значениями.
Однако иногда может потребоваться заполнить список до указанного диапазона и потребовать, чтобы значения списка всегда всегда соответствовали исходным значениям в указанных ячейках. Чтобы удовлетворить эти потребности, вам следует попробовать следующий метод.
Создайте динамический список из одних и тех же ячеек на нескольких листах с помощью Kutools for Excel
Этот метод представит Kutools for ExcelАвтора Динамически обращаться к рабочим листам утилита для создания динамического списка из одних и тех же ячеек на нескольких листах.
Kutools for Excel - Содержит более 300 основных инструментов для Excel. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Скачать сейчас!
Шаг 1: выберите диапазон, в котором вы будете заполнять динамический список, и нажмите кнопку Кутулс > Больше > Динамически обращаться к рабочим листам.
Шаг 2: В открывшемся диалоговом окне «Заполнить листы ссылок»,
(1) Щелкните значок Заполнить заказ поле и выберите тип заливки из раскрывающегося списка. В нашем случае мы выбираем Заполнить вертикально ячейку за ячейкой;
(2) В Формула заполнения поле, укажите адрес ячейки, из которой вы будете создавать динамический список, а затем щелкните значок Замка кнопка чтобы заблокировать формулу.
(3) Щелкните значок Диапазон заполнения .
Теперь вы увидите, что значения в указанных ячейках на всех листах заполнены в указанном диапазоне, как показано ниже:
При изменении исходных значений соответствующие значения в указанном списке будут изменены автоматически.
Kutools for Excel - Дополните Excel более чем 300 основными инструментами. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Get It Now
Демо
Статьи по теме:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!