Sut i gopïo taflen ac ailenwi'n awtomatig yn Excel?
Yn Excel, sut allech chi gopïo taflen waith a'i hailenwi'n awtomatig heb deipio'r enw yn ôl yr arfer? Yn yr erthygl hon, byddaf yn siarad am sut i gopïo dalen un tro neu sawl gwaith a rhoi enwau penodol iddynt ar unwaith.
Copïwch daflen waith sawl gwaith a'u hail-enwi gydag enwau tab cynyddrannau trwy ddefnyddio cod VBA
Copïwch daflen waith sawl gwaith a'u hail-enwi gydag enwau arferol trwy ddefnyddio Kutools ar gyfer Excel
Copïwch daflen waith sawl gwaith a'u hail-enwi gydag enwau tab cynyddrannau trwy ddefnyddio cod VBA
Os oes angen i chi gopïo taflen waith sawl gwaith, a rhoi enwau cyfres iddynt, fel KTE-1, KTE-2, KTE-3, KTE-4…, gall y cod VBA canlynol ffafrio chi.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Copïwch daflen waith sawl gwaith a'i ailenwi ar unwaith:
Sub Create()
'Updateby Extendoffice
Dim I As Long
Dim xNumber As Integer
Dim xName As String
Dim xActiveSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Set xActiveSheet = ActiveSheet
xNumber = InputBox("Enter number of times to copy the current sheet")
For I = 1 To xNumber
xName = ActiveSheet.Name
xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
ActiveSheet.Name = "KTE-" & I
Next
xActiveSheet.Activate
Application.ScreenUpdating = True
End Sub
3. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn eich atgoffa faint o gopïau o'r daflen waith gyfredol rydych chi am eu copïo, gweler y screenshot:
4. Rhowch nifer y copïau i mewn i'r ymgom popped, ac yna cliciwch OK botwm, mae'ch taflen waith gyfredol wedi'i dyblygu 5 copi a'i ailenwi ag enw'r dilyniant fel y dangosir y screenshot canlynol:
Nodyn: Yn y cod uchod, gallwch newid testun enw'r daflen waith “KTE-”I'ch angen.
Copïwch daflen waith sawl gwaith a'u hail-enwi gydag enwau arferol trwy ddefnyddio Kutools ar gyfer Excel
Efallai bod y codau VBA uchod yn anodd i chi eu defnyddio, yma, byddaf yn cyflwyno teclyn hawdd- Kutools ar gyfer Excel, Gyda'i Creu Taflenni Gwaith Dilyniant cyfleustodau, gallwch chi gyflawni'r dasg hon heb unrhyw ymdrech.
| Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:
1. Cliciwch Kutools Byd Gwaith > Taflen Waith > Creu Taflenni Gwaith Dilyniant, gweler y screenshot:
2. Yn y Creu Taflenni Gwaith Dilyniant blwch deialog:
(1.) Dewiswch enw'r daflen waith rydych chi am ei chopïo o'r Taflen Waith Sylfaen rhestr ostwng;
(2.) Yna nodwch nifer y daflen waith rydych chi am gopïo oddi tani Nifer y creu blwch testun;
(3.) Ac yna gwirio Rhifau Dilyniant O dan y Enwau dalen yn seiliedig ar adran;
(4.) O'r diwedd, crëwch enwau'r daflen waith dilyniant yn y cwarel iawn rydych chi ei eisiau, gweler y screenshot:
3. Ar ôl gorffen y gosodiadau, cliciwch Ok botwm, ac mae'r daflen waith benodol wedi'i chopïo sawl gwaith a'i hailenwi yn seiliedig ar eich dilyniant wedi'i greu mewn llyfr gwaith newydd, gweler y screenshot:
Cliciwch Kutools Lawrlwytho Am Ddim ar gyfer Excel Nawr !
Demo: Copïwch daflen waith sawl gwaith a'u hail-enwi gydag enwau arferol trwy ddefnyddio Kutools ar gyfer Excel
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
