Déan iliomad bileoga oibre / leabhair oibre a chomhcheangal go héasca i mbileog oibre / leabhar oibre aonair

Leis an gcód VBA seo a leanas, is féidir leat liosta a chruthú ó na cealla sonraithe ar fud iliomad bileoga oibre go héasca. Is féidir leat a dhéanamh mar a leanas:

Céim 1: Roghnaigh an chill shonraithe as a gcruthóidh tú do liosta. Inár gcás féin, roghnaímid an Cill E6.

Céim 2: Brúigh Eile + F11 eochracha ag an am céanna chun an fhuinneog Microsoft Visual Basic for Applications a oscailt, cliceáil Ionsáigh > Modúil, agus ansin an cód seo a leanas a ghreamú i bhfuinneog an mhodúil.

VBA: Cruthaigh liosta ó na cealla céanna ar fud iliomad bileoga

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

Céim 3: Brúigh F5 eochair nó cliceáil ar an Rith cnaipe chun an VBA seo a rith.

Ansin cóipeáiltear na luachanna uile ón gcill shonraithe ar gach bileog oibre chuig bileog oibre nua darb ainm KutoolsforExcel. Féach griangraf ：

Líonfaidh an VBA seo an liosta i mbileog oibre nua, agus tá na luachanna ar an liosta statach nach n-athróidh leis na bunluachanna.

Mar sin féin, uaireanta b’fhéidir gur mhaith leat an liosta a líonadh isteach i raon sonraithe, agus a cheangal go mbeadh luachanna an liosta i gcónaí mar chomhfhreagras leis na luachanna bunaidh i gcealla sonraithe an t-am ar fad. Chun na riachtanais seo a chomhlíonadh, ba cheart duit an modh seo a leanas a thriail.

Tabharfaidh an modh seo isteach Kutools le haghaidh Excel'S Déan tagairt go dinimiciúil do bhileoga oibre fóntais chun liosta dinimiciúil a chruthú ó na cealla céanna ar fud iliomad bileoga oibre.

Céim 1: Roghnaigh an Raon ina líonfaidh tú an liosta dinimiciúil, agus cliceáil ar an Kutools > níos mó > Déan tagairt go dinimiciúil do bhileoga oibre.

Céim 2: Sa bhosca dialóige Oscail Bileoga Oibre Tagairtí,

(1) Cliceáil ar an Ordú Líon bosca, agus roghnaigh cineál líonta ón liosta anuas. Inár gcás féin, roghnaímid Líon cill ingearach i ndiaidh cille;

(2) Sa Líon foirmle bosca, sonraigh an seoladh cille as a gcruthóidh tú liosta dinimiciúil, agus ansin cliceáil ar an Faoi ghlas cnaipe  chun an fhoirmle a ghlasáil.

(3) Cliceáil ar an Raon Líon cnaipe.

Anois feicfidh tú go bhfuil luachanna sna cealla sonraithe thar gach bileog oibre líonta isteach sa raon sonraithe mar a thaispeántar thíos an scáileán scáileáin:

Nuair a athrófar na bunluachanna, athrófar na luachanna comhfhreagracha ar an liosta sonraithe seo go huathoibríoch.

Conas an chill chéanna a dhí-líonadh ó bhileoga éagsúla go bileog in Excel?