Комбинирайте лесно няколко работни листа/работни книги в един работен лист/работна книга

Със следния 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 клавиша или щракнете върху бягане бутон за стартиране на този VBA.

След това всички стойности от посочената клетка на всички работни листове се копират в нов работен лист с име KutoolsforExcel. Вижте екранна снимка:

Този VBA ще попълни списъка в нов работен лист и стойностите в списъка са статични, които няма да се променят с оригиналните стойности.

Понякога обаче може да искате да попълните списъка в определен диапазон и да изисквате стойностите на списъка винаги да съответстват на оригиналните стойности в определени клетки през цялото време. За да отговорите на тези нужди, трябва да опитате следния метод.

Този метод ще въведе Kutools за ExcelЕ Динамично препращане към работни листове помощна програма за създаване на динамичен списък от едни и същи клетки в множество работни листове.

Стъпка 1: Изберете диапазона, където ще попълните динамичния списък, и щракнете върху Kutools > Повече > Динамично препращане към работни листове.

Стъпка 2: В отварящия се диалогов прозорец за попълване на препратки към работни листове,

(1) Щракнете върху Попълване на поръчката и изберете тип запълване от падащия списък. В нашия случай ние избираме Попълнете вертикално клетка след клетка;

(2) в Формула за пълнене посочете адреса на клетката, от която ще създадете динамичен списък, след което щракнете върху Заключвам бутон  за заключване на формулата.

(3) Щракнете върху Обхват на запълване бутон.

Сега ще видите, че стойностите в посочените клетки във всички работни листове са попълнени в посочения диапазон, както е показано на екрана по-долу:

Когато оригиналните стойности се променят, съответните стойности в посочения списък ще бъдат променени автоматично.

Как да попълвам автоматично същата клетка от различни листове в лист в Excel?