Skip to main content

Conas iliomad bileoga a chóipeáil arís agus arís eile in Excel?

Uaireanta, b’fhéidir go mbeidh orainn cóip nó iliomad cóipeanna de bhileoga oibre sonraithe a dhéanamh i leabhar oibre. Seo roinnt bealaí gasta chun cabhrú leat bileog oibre amháin nó bileoga oibre iolracha a chóipeáil go héasca arís agus arís eile in Excel.


Déan cóip amháin de bhileoga oibre iolracha uair amháin i leabhar oibre gníomhach nó i leabhar oibre eile le hordú Bog nó Cóipeáil

Leis an Bog nó Cóipeáil i Excel, is féidir leat cóip amháin de bhileog oibre, bileoga oibre iolracha ar leith nó gach bileog oibre a dhéanamh ina leabhar oibre gníomhach nó i leabhar oibre eile ag an am.

1. Sa leabhar oibre áirithe ina gcóipeálfaidh tú bileoga oibre, roghnaigh iliomad bileoga oibre ar an mbarra Bileog Cluaisín.
nótaí: Sealbhú CTRL eochair, is féidir leat cluaisíní leatháin neamh-in aice láimhe a roghnú trí iad a chliceáil ceann ar cheann ar an mbarra Tab Bileog; gabháltas Shift eochair, is féidir leat cluaisíní leatháin leatháin in aice láimhe a roghnú trí chliceáil ar an gcéad chluaisín bileog agus an ceann deireanach ar an mbarra Tab Bileog.

2. Cliceáil ar dheis ar an táb bileog roghnaithe ar an mbarra Bileog Cluaisín, agus roghnaigh Bog nó Cóipeáil ón roghchlár comhthéacs. Féach an pictiúr:
cóipeáil doc bileoga iolracha 01

3. Sa an Bog nó Cóipeáil bosca dialóige, sonraigh na socruithe seo a leanas le do thoil:
(1) Sonraigh le do thoil an leabhar oibre ceann scríbe a ndéanfaidh tú bileoga oibre a chóipeáil uaidh ón A chur in áirithe liosta anuas. Is féidir leat an leabhar oibre gníomhach, leabhar oibre oscailte eile, nó leabhar oibre nua a roghnú de réir mar is gá duit.
(2) Sonraigh suíomh na mbileog cóipeáilte ar bharra na Bileog Cluaisín, is féidir leat a roghnú i ndiaidh na mbileog uile atá ann.
(3) Seiceáil Cruthaigh cóip rogha, mura seiceálann tú an rogha seo, bogfar na bileoga oibre roghnaithe isteach sa leabhar oibre cinn scríbe.
(4) Cliceáil ar an OK cnaipe.

Anois ní dhéanfaidh sé ach cóip amháin de na bileoga oibre roghnaithe isteach sa leabhar oibre sonraithe. Chun iliomad cóipeanna de na bileoga oibre seo a dhéanamh, is féidir leat an oibríocht a athdhéanamh arís agus arís eile.

Níl ach cúpla cad a tharlaíonn chun iliomad cóipeanna de bhileoga oibre iolracha a dhéanamh sa leabhar oibre gníomhach

Go ginearálta, is féidir linn iliomad bileoga oibre a chóipeáil leis an Bog nó Cóipeáil gné in Excel. Mar sin féin, ní féidir leis an ngné seo ach cóip amháin a dhéanamh ag an am. Seo, le Kutools le haghaidh Excel's Cóipeáil Bileoga Oibre áirgiúlacht, is féidir leat an oiread cóipeanna de go leor bileoga oibre agus a theastaíonn uait sa leabhar oibre gníomhach a dhéanamh trí roinnt cliceáil amháin.


cóipeáil ad iliomad bileoga oibre 01

Kutools le haghaidh Excel - Supercharge Excel le níos mó ná 300 uirlisí riachtanacha. Bain sult as triail iomlán 30-lá SAOR IN AISCE gan aon chárta creidmheasa ag teastáil! Get sé anois

Déan cóipeanna iolracha de bhileog oibre shonraithe amháin i leabhar oibre gníomhach le cód VBA

Más mian leat 10 gcóip de bhileog oibre shonraithe a dhéanamh, beidh an Bog nó Cóipeáil beidh an t-ordú ar bhealach Tógann am, agus caithfidh tú an oibríocht a dhéanamh arís agus arís eile. Ach leis an gcód VBA seo a leanas, is féidir leat an bhileog oibre a chóipeáil go tapa 10 n-uaire ag an am céanna.

1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhFuinneog an Mhodúil.

VBA: Déan iliomad cóipeanna de bhileoga oibre áirithe i leabhar oibre gníomhach

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

nótaí: Sa chód thuas, cuir "Sheet1"le hainm na bileoige le cóipeáil.

3. Ansin brúigh F5 eochair chun an cód a rith, is cosúil go n-iarrann bosca pras líon na gcóipeanna bileoige atá uait.

4. Ansin cliceáil OK, cóipeáladh an bhileog oibre shonraithe 100 uair sa leabhar oibre gníomhach.


Déan cóipeanna iomadúla de bhileoga oibre iolracha i leabhar oibre gníomhach le Kutools for Excel

Cé go bhfuil sé simplí cóip de iliomad bileoga oibre a dhéanamh in Excel, más mian leat cóipeanna iolracha de bhileoga oibre iolracha a dhéanamh sa leabhar oibre reatha, b’fhéidir go mbeidh ort an Bog nó Cóipeáil mír ordaithe arís agus arís eile. Ar mhaith leat an rud a dhéanamh i gcliceáil amháin? Leis an Cóipeáil Bileoga Oibre fóntais an bhreiseáin tríú páirtí Kutools le haghaidh Excel, tá tú in ann cóipeanna iolracha de bhileoga oibre iolracha a dhéanamh i gcliceáil amháin in Excel.

Kutools le haghaidh Excel - Supercharge Excel le níos mó ná 300 uirlisí riachtanacha. Bain sult as triail iomlán 30-lá SAOR IN AISCE gan aon chárta creidmheasa ag teastáil! Get sé anois

1. Cliceáil Kutools Plus > Cóipeáil Bileoga Oibre. Féach an pictiúr:

nótaí: Cliceáil Kutools Plus > Bileog Oibre > Cóipeáil Bileoga Oibre gheobhaidh an ghné seo freisin.

2. Cuir socruithe i bhfeidhm sa Cóipeáil Bileoga Oibre Il bosca dialóige:
(1) Seiceáil na bileoga oibre ar mhaith leat go ndéanfaí iad a chóipeáil Cóipeáil na bileoga oibre roghnaithe alt seo.
(2) Sonraigh Líon na gcóipeanna.
(3) Socraigh suíomh na mbileog cóipeáilte, mar shampla, roimh gach bileog oibre nó dá éis, roimh an mbileog oibre reatha nó dá éis.
(4) Cliceáil ar an Ok cnaipe.

3. Tagann bosca pras amach le cur i gcuimhne duit gur cóipeáladh na bileoga oibre seiceáilte arís agus arís eile de réir mar is gá duit, cliceáil le do thoil OK cnaipe chun é a fhágáil. Féach an pictiúr:

seo Cóipeáil Bileoga Oibre Il gné de Kutools le haghaidh Excel déanfaidh sé cóipeanna iolracha de bhileoga oibre iolracha sonraithe sa leabhar oibre gníomhach le roinnt cliceáil amháin. Bíodh Triail In Aisce agat!


Déan cóip amháin de bhileoga oibre iolracha ó iliomad leabhar oibre go ceann nua

Má tá Kutools for Excel suiteáilte agat, is féidir leat a chuid a chur i bhfeidhm freisin Comhcheangail Bileoga Oibre gné chun cóip amháin de bhileoga oibre iolracha a dhéanamh ó iliomad leabhar oibre dúnta go leabhar oibre nua le roinnt cad a tharlaíonn ach in Excel.

Kutools le haghaidh Excel - Supercharge Excel le níos mó ná 300 uirlisí riachtanacha. Bain sult as triail iomlán 30-lá SAOR IN AISCE gan aon chárta creidmheasa ag teastáil! Get sé anois

1. Cliceáil Kutools Plus > Chomhcheangail chun an ghné Comhcheangail Bileoga Oibre a ghníomhachtú.

2. Sna Bileoga Oibre Comhcheangailte - draoi Céim 1 de 3, féach le do thoil ar an Comhcheangail iliomad bileoga oibre ó leabhair oibre i mbileog oibre amháin rogha, agus cliceáil ar an Ar Aghaidh cnaipe. Féach an pictiúr:

3. Sna Bileoga Oibre Comhcheangailte - draoi Céim 2 de 3, déan mar a leanas an pictiúr a thaispeántar:
(1) Cliceáil Cuir > Comhad or Fillteán chun leabhair oibre a chur leis, cóipeálfaidh tú bileoga oibre.
(2) Sa Liosta leabhar oibre alt, seiceáil an leabhar oibre a gcóipeálfaidh tú a bhileoga oibre;
(3) Sa Liosta bileog oibre alt, seiceáil na bileoga oibre a chóipeálfaidh tú;
(4) Déan arís thuas (2) agus (3) chun bileoga oibre a roghnú as leabhair oibre eile a chóipeálfaidh tú.
(5) Cliceáil ar an Ar Aghaidh cnaipe.

4. Sna Bileoga Oibre Comhcheangail - draoi Céim 3 de 3, cumraigh na socruithe cóipeála de réir mar is gá duit, agus cliceáil ar an Críochnaigh cnaipe.

5. Anois sa dialóg nua, sonraigh fillteán ceann scríbe le do thoil chun an leabhar oibre nua a shábháil, ainmnigh an leabhar oibre nua sa Ainm comhaid bosca, agus cliceáil ar an Sábháil cnaipe. Féach an pictiúr:

Anois tiocfaidh dhá bhosca dialóige eile amach agus iarrfaidh tú ort an leabhar oibre nua a oscailt agus an cás teaglaim a shábháil, cliceáil cnaipí de réir mar is gá duit. Go dtí seo, rinne sé gach bileog oibre sonraithe a chóipeáil ó iliomad leabhar oibre ag an am.

Leis seo Comhcheangail (Bileoga Oibre) fóntais, is féidir leat bileoga oibre agus leabhair oibre a chóipeáil agus a chur le chéile go héasca mar a thaispeántar ar an liosta seo a leanas. Bíodh Triail In Aisce agat!
(1) Comhcheangail go tapa bileoga oibre / raonta éagsúla ó leabhair oibre go bileog oibre amháin;
(2) Déan gach bileog oibre den ainm céanna a chumasc / a chomhcheangal go tapa i mbileog oibre amháin;
(3) Bileoga oibre nó leabhair oibre a chumasc / a chomhcheangal go tapa in aon leabhar oibre amháin;
(4) Déan sonraí ó iliomad bileoga oibre a achoimriú / a ríomh go tapa i mbileog oibre amháin.

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (25)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.
This comment was minimized by the moderator on the site
Working Code

Sub Copier()
Dim s As String
Dim numtimes As Integer
Dim numCopies As Integer
numCopies = InputBox("How many copies do you need?")
s = InputBox("Enter the name of the Worksheet you want to copy")
For numtimes = 1 To numCopies
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Next
End Sub

copy the entire line from ActiveWorkbook.Sheets...... that was the problem, and some spaces

Have a great day
This comment was minimized by the moderator on the site
[quote]I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.By Tyler Dempsey[/quote] Here is the exact code you want to use: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
This comment was minimized by the moderator on the site
Thank you, the last one saved my life :)
This comment was minimized by the moderator on the site
[quote]I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.By Tyler Dempsey[/quote] Double check your code and make sure you don't have a space at ActiveWorkbook. Sheets(s).Copy _ or at Sheets(Worksheets.Cou nt)
This comment was minimized by the moderator on the site
Fantastic VBA code - really helped
This comment was minimized by the moderator on the site
When I first tried it, I got the error message because I didn't change the name Sheet1. After I realized what caused the error, I researched a little further, as I did not want to be manually entering the sheet name into the macro. And when I need this feature, it is almost always for the current sheet. I added the line a = activesheet.name And revised the line after:=activeworkbook.sheets("sheet1") to activeworkbook.sheets(a).copy _ That worked very well, but I did notice the numbering was reversed ... that didn't bother me as I was going to manually rename the new sheets anyway. When I saw Schuyler's post, I further revised the line activeworkbook.sheets(a).copy _ to after:=activeworkbook.sheets(worksheets.count) I am now satisfied with the result. My finished macro: Sub copies() Dim x As Integer x = InputBox("Enter number of times to copy Sheet1") For numtimes = 1 To x ActiveWorkbook.Sheets("Sheet1").Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub --- All the best, Barry
This comment was minimized by the moderator on the site
i got syntax error on "After:=ActiveWorkbook.Sheets(Worksheets.Count)


but i dunno whats wrong... Can u help me please?
This comment was minimized by the moderator on the site
Thank you so much Barry. Your finished macro is the only thing that worked for me.
This comment was minimized by the moderator on the site
where i will insert this above code in vba should i create common button then inside ?? regards.
This comment was minimized by the moderator on the site
Follow the below steps:
1. Copy the above code
2. Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.
2. Click Insert > Module, and paste the following code in the Module Window.
4.Then press F5 key to run the code
5.A prompt box appears to ask you the number of sheet copies you want.
This comment was minimized by the moderator on the site
I get an error that 'numtimes' is not defined...?
This comment was minimized by the moderator on the site
I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9) I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
This comment was minimized by the moderator on the site
[quote]I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9) I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)By Debbi[/quote] Can you include your complete code to make it easier to debug? A "subscript error out of range" usually means that the code references something that doesn't exist. I find this in my own code when I've got a typo or something of that nature.
This comment was minimized by the moderator on the site
how to copy with same column widths
This comment was minimized by the moderator on the site
Same column widths as the original Worksheet or do you want all of the column widths to be the same?
This comment was minimized by the moderator on the site
yes it works thanks I have successfully make multiple copies of a single worksheet in same workbook by using vba code thnx a lot.
This comment was minimized by the moderator on the site
Search for word "After" and change it to "Before". This will create copies in right order "Before" Sheet1. The only thing to rememeber is that numbering will always start from (2) as the original sheet will always be counted as 1st copy. Also you can replace "Sheet1" with name of the tab you are trying to copy.
This comment was minimized by the moderator on the site
[quote]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?By MichaelTadashi[/quote] Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1) Thanks!
This comment was minimized by the moderator on the site
[quote][quote]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?By juan[/quote] Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1) Thanks!By MichaelTadashi[/quote]e] If you want the sheet copies to be in sequential order instead of backwards, change the following line... After:=ActiveWorkbook.Sheets("Sheet1") to this... After:=ActiveWorkbook.Sheets(Worksheets.Count) My completed code looked like the following which uses 2 InputBox prompts to allow for a dynamic copy count and worksheet name.. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
This comment was minimized by the moderator on the site
How do i get the coppies continuous numbered. If the sheet i want to copy is named I002, and i want the next to be named I003,I004,I005 an so on.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations