Как создать список из одинаковых ячеек на нескольких листах в 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?