Təlimat Excel-də vərəqlərin dublikatını yaratmaq üçün makrolar toplusunu təqdim edir: xana dəyərinə əsasən kopyalayın və adını dəyişdirin, çoxlu vərəqləri köçürün, aktiv iş vərəqini açmadan başqa fayla köçürün və s.

Excel-də vərəqlərin əl ilə kopyalanması olduqca tez və sadədir... yalnız bir və ya iki dəfə yerinə yetirildikdə. Bir neçə vərəqin bir neçə dəfə təkrarlanması darıxdırıcı və vaxt aparır. Bu səhifədə siz bu tapşırığı avtomatlaşdırmaq üçün bir ovuc faydalı makro tapa bilərsiniz.

Excel VBA vərəqi yeni iş kitabına köçürmək üçün

Bu ən sadə bir sətirli makro bunu edir. onun adının dediyi kimi - aktiv vərəqi yeni iş kitabına köçürür.

İctimai Alt Kopiya SheetToNewWorkbook() activeSheet.Copy End Sub

VBA ilə Excel-də çoxlu vərəqləri kopyalayın

Əgər istəyirsinizsə aktiv iş kitabından bir neçə vərəqi yenisinə köçürün, maraqlanan bütün iş vərəqlərini seçin və bu makronu işə salın:

Public Sub CopySelectedSheets() ActiveWindow.SelectedSheets.Copy End Sub

Vərəqi başqa iş kitabına köçürmək üçün Excel VBA

Kopyalanan vərəqi daxil etmək istədiyiniz yerə görə, aşağıdakı makrolardan birini istifadə edin.

Vərəqi başqa bir iş kitabının əvvəlinə köçürün

Bu makro aktiv vərəqi əvvəldən kopyalayır. təyinat faylındakı bütün digər iş vərəqləri, bu nümunədə Kitab1 . Başqa fayla kopyalamaq üçün "Book1.xlsx"i hədəf iş kitabınızın tam adı ilə əvəz edin.

İctimai AltCopySheetToBeginningAnotherWorkbook() activeSheet.Copy Before:=İş dəftərləri( "Book1.xlsx" ).Sheets(1) End Sub

Cədvəli başqa iş kitabının sonuna köçürün

Bu kod parçası aktiv iş vərəqini təkrarlayır və nüsxəni Kitab1 -in sonuna yerləşdirir. Yenə də "Book1.xlsx"i təyinat iş kitabınızın adı ilə əvəz etməyi unutmayın.

Public Sub CopySheetToEndAnotherWorkbook() activeSheet.Copy After:=Workbooks( "Book1.xlsx" ).Sheets(Workbooks( "Book1.xlsx" " ).İş vərəqləri.Count) Son Alt

Qeyd. Makrosların işləməsi üçün hədəf iş kitabı sabit diskinizdə və ya şəbəkənizdə saxlanmalıdır.

Cədvəli seçilmiş iş kitabına kopyalayın

Cari vərəqi hər hansı açıq iş kitabına kopyalaya bilmək üçün, siz ListBox idarəsi ( ListBox1 adlı) və iki düymə ilə UserForm ( UserForm1 adlı) yarada bilərsiniz:

Sonra, formaya iki dəfə klikləyin və aşağıdakı kodu Kod pəncərəsinə yapışdırın:

Ümumi Seçilmiş İş Kitabı Simli Şəxsi Alt UserForm_Initialize() SelectedWorkbook = "" ListBox1. Tətbiqdə hər bir iş kitabını təmizləyin. İş dəftərləri ListBox1.AddItem (wbk.Name) Next End Sub Private Sub CommandButton1_Click() Əgər ListBox1.ListIndex > -1 Sonra SelectedWorkbook = ListBox1.List(ListBox1.ListIndex) End If Me.Hide End Sub Private Sub CommandButton2_Click() SelectedWorkbook = "" Me.Hide End Sub

UserForm yerində olarkən aşağıdakılardan birini istifadə edə bilərsiniz. kopyalamaq üçün makrolaraktiv vərəqi seçdiyiniz iş kitabına köçürün.

Vərəqi seçilmiş iş kitabının əvvəlinə kopyalayın:

İctimai Alt Kopiya SheetToBaşlanğıcAnotherWorkbook() UserForm1 UserForm1-i yükləyin.Əgər (UserForm1.SelectedWorkbook " " ) Sonra activeSheet.Copy Before:=İş dəftərləri(UserForm1.SelectedWorkbook).Sheets(1) End If UserForm1 End Sub yüklənildikdə

Cədvəli seçilmiş iş kitabının sonuna kopyalayın:

Public Sub CopySheetToEndAnotherWorkbook() UserForm1 UserForm1.Load If (UserForm1.SelectedWorkbook "" ) Show activeSheet.Copy After:=Workbooks(_ UserForm1.SelectedWorkbook). Sheets( _ Workbooks(UserForm_UserForm1.Selected Workbooks.User_Load). End Sub

Excel-də işə salındıqda, makro sizə hazırda açılmış bütün iş kitablarının siyahısını göstərəcək. Siz lazım olanı seçirsiniz və OK düyməsini sıxırsınız:

Cədvəlin surətini çıxarmaq və adını dəyişmək üçün Excel makrosu

Excel-də vərəqi kopyaladığınız zaman replikaya ad Cədvəl1 (2) kimi standart formatda. Aşağıdakı makrolar defolt adı əl ilə dəyişmək problemindən xilas edə bilər.

Bu kod aktiv iş vərəqini dublikat edir, nüsxəni "Sınaq Vərəqi" kimi adlandırır (siz onu istədiyiniz başqa adla əvəz edə bilərsiniz) , və kopyalanmış vərəqi cari iş kitabının sonuna yerləşdirir.

İctimai Alt Kopiya VərəqləriVə RenamePredefined() activeSheet.Copy After:=İş vərəqləri(Sheets.Count) Xətada Davam Et Sonrakı activeSheet.Name ="Sınaq Vərəqi" Son Alt

İstifadəçiyə kopyalanan vərəqin adını təyin etməyə icazə vermək üçün bu kodu istifadə edin:

İctimai Alt CopySheetAndRename() YeniAdı Xətada Sətir kimi Davam Et Sonrakı yeniAd = InputBox( "Kopyalanan iş vərəqinin adını daxil edin" ) Əgər newName "" Əgər ActiveSheet.Copy After:=İş vərəqləri(Sheets.Count) Xətada Davam Sonrakı activeSheet.Name = newName End If End Sub

İşlədikdən sonra makro İstədiyiniz adı daxil etdiyiniz və OK düyməsini sıxdığınız aşağıdakı daxiletmə qutusunu göstərir:

Cədvəl köçürmək və hüceyrənin dəyərinə əsasən adını dəyişmək üçün Excel makrosu

İçində bəzi hallarda, nüsxəni xüsusi bir hüceyrə dəyəri ilə adlandırmaq daha rahat ola bilər, məsələn, sütun başlığı. Bunun üçün siz sadəcə olaraq yuxarıdakı kodu götürün və avtomatik olaraq hazırda seçilmiş xananın dəyərini daxiletmə qutusuna daxil edin. Əvvəlki nümunədə olduğu kimi, nüsxə aktiv iş kitabının sonunda yerləşdiriləcək.

Ən çətin tərəfi işə başlamazdan əvvəl istifadəçilərinizin həmişə düzgün xananı seçmələridir. makro :)

Public Sub CopySheetAndRenameByCell() Dim newName Sətir kimi Xəta Davam Et Sonrakı newName = InputBox( "Kopyaladığınız iş vərəqinin adını daxil edin" , "İş vərəqini kopyalayın" , ActiveCell.Value) Əgər newName "" Sonra activeSheet. Sonra Kopyala:=İş vərəqləri(Sheets.Count) Xəta Onda Davam Et Sonrakı activeSheet.Name = newName End If End Sub

Alternativ olaraq, siz ünvanını sərt kodlaşdıra bilərsiniz.surətin adlandırılmalı olduğu xana , aşağıdakı kodda A1 xanası. Kopyalanan iş vərəqini başqa xana əsasında adlandırmaq üçün A1-i uyğun xana istinadı ilə əvəz edin.

İctimai Alt KopyalaSheetAndRenameByCell2() Həftələri İş Vərəqi kimi Set hk = activeSheet activeSheet.Copy After:=Worksheets(Sheets.Count) Əgər wks.Range ( "A1" ).Dəyər "" Sonra Xəta Onda Davam et Next activeSheet.Name = wks.Range( "A1" ).Value End If wks.End Sub-u aktivləşdirin

İş vərəqini qapalı iş kitabına köçürmək üçün makro

Bu makro aktiv vərəqi qapalı iş kitabının sonuna köçürür. Kodda başqa iş kitabının adı göstərilməyib - makro standart Windows Explorer pəncərəsini açacaq və istənilən təyinat faylını seçməyə imkan verəcək:

Faylı seçdikdən sonra və Açıq düyməsini klikləyin, makro aktiv vərəqi kopyalayacaq və hədəf iş kitabını avtomatik bağlayacaq.

İctimai Alt Kopiya SheetToClosedWorkbook() Dim faylAdı Dim bağlıKitab İş Kitabı Kimi Dim cari Vərəq İş Vərəqi kimi FaylAdı = Application.GetOpenFilename( "Excel" Fayllar (*.xlsx), *.xlsx" ) Əgər faylAdı Yanlışdırsa, onda Application.ScreenUpdating = False Set currentSheet = Application.activeSheet Set ClosedBook = Workbooks. Açın (fileName) currentSheet.Copy After:=closedBook.Sheets(closedBook.Worksheets.Count) closeBook. Close ( True ) Application.ScreenUpdating = True End If End Sub

Excel VBA vərəqi başqa bir iş kitabından köçürmək üçünaçılış

Bu makro sizə iş vərəqini açmadan başqa Excel faylından köçürməyə imkan verir. Kopyalanmış vərəq cari iş kitabının sonuna daxil ediləcək.

Sadəcə kodda bir neçə dəyişiklik etməyi unutmayın:

• C:\Users\XXX\Documents\ Target_Book.xlsx vərəqi kopyalamaq istədiyiniz iş kitabının faktiki yolu və adına dəyişdirilməlidir.
• Cədvəl1 kopyalamaq istədiyiniz vərəqin adı ilə əvəz edilməlidir.

Public Sub CopySheetFromClosedWorkbook() Mənbə Kitabını İş Kitabı Tətbiqi Kimi Tutqunlaşdırın.ScreenUpdating = False Set sourceBook = Workbooks. Açın ( "C:\Users\XXX\Documents\Target_Book.xlsx" ) sourceBook.Sheets( "Sheet1" ).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) sourceBook. Proqramı bağlayın.ScreenUpdating = True End Sub

Cədvəlin bir neçə dəfə dublikatını etmək üçün Excel VBA

Bəzən, məsələn, eyni verilənlər toplusunda müxtəlif düsturları sınamaq üçün eyni vərəqi bir dəfədən çox təkrarlamalı ola bilərsiniz. Bu, aşağıdakı makro ilə asanlıqla həyata keçirilə bilər.

Public Sub DuplicateSheetMultipleTimes() Dim n As Tam Ədəd On Xəta davam etdirin Sonrakı n = InputBox( "Aktiv vərəqin neçə nüsxəsini yaratmaq istəyirsiniz?" ) If n > = 1 Sonra Nömrələr üçün = 1-dən n activeSheet.Copy After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End If End Sub

Orijinal vərəqi açın, makrosunu işə salın, aktiv vərəqin neçə nüsxəsini göstərinetmək istədiyiniz və OK üzərinə klikləyin:

VBA ilə Excel-də vərəqlərin dublikatını necə etmək olar

Excel-də vərəqi kopyalamaq üçün yuxarıda göstərilən makrolardan biri ilə VBA kodunu öz kitabınıza daxil edə və ya nümunə iş dəftərimizdən makro işlədə bilərsiniz.

İş dəftərinizə makronu necə əlavə etmək olar

Daxil etmək üçün iş kitabınıza kodu daxil edin, bu addımları yerinə yetirin:

1. Kopyalamaq istədiyiniz iş vərəqini açın.
2. Visual Basic Redaktorunu açmaq üçün Alt + F11 düymələrini basın.
3. Aktivdir. sol paneldə ThisWorkbook üzərinə sağ klikləyin və sonra Insert > Module üzərinə klikləyin.
4. Kod pəncərəsinə kodu yerləşdirin.
5. Makronu işə salmaq üçün F5 düyməsini basın.

Ətraflı addım-addım təlimatlar üçün VBA kodunu Excel-ə necə daxil etmək olar.

Necə işə salmaq olar. nümunə iş dəftərimizdən makro

Alternativ olaraq nümunə iş dəftərimizi Dublikat Excel Vərəqlərinə endirə və kodu oradan işlədə bilərsiniz.

Nümunə iş kitabında aşağıdakı makrolar var:

CopySheetToNewWorkbook - cu-nu kopyalayır iş vərəqini yeni iş kitabına rrent edin.

CopySelectedSheets - seçdiyiniz çoxsaylı vərəqləri yeni iş kitabına kopyalayır.

CopySheetToBeginningAnotherWorkbook - aktiv vərəqi kopyalayır başqa iş kitabının əvvəlinə.

CopySheetToEndAnotherWorkbook - aktiv vərəqi başqa Excel faylının sonuna köçürür.

CopySheetAndRename - cari sənədi təkrarlayır. vərəq,onun adını istifadəçi tərəfindən göstərildiyi kimi dəyişdirir və nüsxəni cari iş kitabında bütün digər vərəqlərdən sonra qoyur.

CopySheetAndRenamePredefined - aktiv vərəqi dublikat edir, nüsxəyə sərt kodlu ad verir və onu yerləşdirir. cari iş kitabının sonunda.

CopySheetAndRenameByCell - aktiv vərəqin surətini çıxarır və seçilmiş xana dəyərinə əsasən onun adını dəyişdirir.

CopySheetAndRenameByCell2 - aktiv vərəqi kopyalayır və sərt kodlanmış xana ünvanına əsasən adını dəyişir.

CopySheetToClosedWorkbook - vərəqi qapalı iş kitabına köçürməyə imkan verir.

CopySheetFromClosedWorkbook - vərəqi açmadan başqa Excel faylından köçürməyə imkan verir.

DuplicateSheetMultipleTimes - Excel-də vərəqi bir neçə dəfə təkrarlamağa imkan verir.

Kimə makronu Excel-də işə salın, sadəcə aşağıdakıları edin:

1. Endirilmiş iş kitabını açın və tələb olunarsa məzmunu aktivləşdirin.
2. Öz iş kitabınızı açın və istədiyiniz vərəqə keçin. surəti.
<1 7>İş vərəqinizdə Alt + F8 düymələrini basın, maraqlandıran makronu seçin və Çalışdır düyməsini basın.

Bununla siz dublikat edə bilərsiniz. VBA ilə Excel-də bir vərəq. Oxuduğunuz üçün sizə təşəkkür edirəm və sizi gələn həftə bloqumuzda görməyə ümid edirəm!