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

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

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

Шаг 2: Нажмите одновременно клавиши Alt+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 или кнопку Выполнить, чтобы запустить этот макрос VBA.

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

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

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

Этот метод использует функцию Kutools для Excel — Автоматическое инкрементирование ссылок на листе, чтобы создать динамический список из одинаковых ячеек на нескольких листах.

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

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

(1) Нажмите поле Порядок заполнения и выберите тип заполнения из раскрывающегося списка. В нашем примере мы выбираем Заполнить по столбцу, затем по строке;

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

(3) Нажмите кнопку Заполнить диапазон.

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

Когда исходные значения изменятся, соответствующие значения в указанном списке автоматически обновятся.

Как автоматически собрать данные из одной и той же ячейки с разных листов на один лист в Excel?