Preprosto združite več delovnih listov / delovnih zvezkov v en sam delovni list / delovni zvezek

Z naslednjo kodo VBA lahko na določenih celicah enostavno ustvarite seznam na več delovnih listih. Naredite lahko naslednje:

1. korak: Izberite določeno celico, iz katere boste ustvarili seznam. V našem primeru izberemo celico E6.

Korak 2: Pritisnite druga + F11 tipke hkrati, da odprete okno Microsoft Visual Basic for Applications, kliknite Vstavi > Moduliin nato v okno modula prilepite naslednjo kodo.

VBA: ustvarite seznam iz istih celic na več listih

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

Korak 3: Pritisnite F5 ali kliknite Run za zagon tega VBA.

Nato se vse vrednosti iz določene celice na vseh delovnih listih kopirajo v nov delovni list z imenom KutoolsforExcel. Glej posnetek zaslona:

Ta VBA bo seznam zapolnil v nov delovni list, vrednosti na seznamu pa so statične, kar se ne bo spremenilo z izvirnimi vrednostmi.

Včasih pa boste morda želeli seznam zapolniti v določen obseg in zahtevati, da so vrednosti seznama vedno v skladu z izvirnimi vrednostmi v določenih celicah. Če želite zadovoljiti te potrebe, poskusite z naslednjo metodo.

Ta metoda bo predstavila Kutools za ExcelJe Dinamično glej delovne liste pripomoček za ustvarjanje dinamičnega seznama iz istih celic na več delovnih listih.

1. korak: Izberite obseg, kjer boste zapolnili dinamični seznam, in kliknite Kutools > Več > Dinamično glej delovne liste.

2. korak: V pogovornem oknu Odpiranje referenc za izpolnjevanje delovnih listov

(1) Kliknite Izpolnite naročilo in na spustnem seznamu izberite vrsto polnjenja. V našem primeru izberemo Napolnite navpično celico za celico;

(2) V Izpolnite formulo vnesite naslov celice, iz katere boste ustvarili dinamični seznam, in nato kliknite Zaklepanje Gumb  za zaklepanje formule.

(3) Kliknite Polni obseg gumb.

Zdaj boste videli, da so vrednosti v določenih celicah na vseh delovnih listih zapolnjene v določenem obsegu, kot je prikazano spodaj:

Ko se spremenijo prvotne vrednosti, se ustrezne vrednosti na tem seznamu samodejno spremenijo.

Kako samodejno izpolniti isto celico z različnih listov na list v Excelu?