എക്‌സലിൽ ഷീറ്റുകൾ ഡ്യൂപ്ലിക്കേറ്റ് ചെയ്യുന്നതിനുള്ള മാക്രോകളുടെ ഒരു ശേഖരം ട്യൂട്ടോറിയൽ നൽകുന്നു: സെൽ മൂല്യത്തെ അടിസ്ഥാനമാക്കി പകർത്തി പുനർനാമകരണം ചെയ്യുക, ഒന്നിലധികം ഷീറ്റുകൾ പകർത്തുക, സജീവമായ വർക്ക് ഷീറ്റ് തുറക്കാതെ തന്നെ മറ്റൊരു ഫയലിലേക്ക് പകർത്തുക, കൂടാതെ അതിലേറെയും.

Excel-ൽ ഷീറ്റുകൾ സ്വമേധയാ പകർത്തുന്നത് വളരെ വേഗമേറിയതും ലളിതവുമാണ്... ഒന്നോ രണ്ടോ പ്രാവശ്യം നടത്തുകയാണെങ്കിൽ. ഒന്നിലധികം ഷീറ്റുകൾ പലതവണ ഡ്യൂപ്ലിക്കേറ്റ് ചെയ്യുന്നത് വിരസവും സമയമെടുക്കുന്നതുമാണ്. ഈ പേജിൽ, ഈ ടാസ്‌ക് ഓട്ടോമേറ്റ് ചെയ്യുന്നതിന് ഉപയോഗപ്രദമായ ഒരുപിടി മാക്രോകൾ നിങ്ങൾ കണ്ടെത്തും.

പുതിയ വർക്ക്ബുക്കിലേക്ക് ഷീറ്റ് പകർത്താൻ Excel VBA

ഈ ഏറ്റവും ലളിതമായ ഒറ്റ-വരി മാക്രോ ചെയ്യുന്നു അതിന്റെ പേര് സൂചിപ്പിക്കുന്നത് കൃത്യമായി - ഒരു പുതിയ വർക്ക്ബുക്കിലേക്ക് സജീവ ഷീറ്റ് പകർത്തുന്നു.

പൊതു ഉപ CopySheetToNewWorkbook() ActiveSheet. അവസാനം ഉപഭാഗം പകർത്തുക

VBA ഉപയോഗിച്ച് Excel-ൽ ഒന്നിലധികം ഷീറ്റുകൾ പകർത്തുക

നിങ്ങൾക്ക് വേണമെങ്കിൽ സജീവമായ വർക്ക്ബുക്കിൽ നിന്ന് പുതിയതിലേക്ക് നിരവധി ഷീറ്റുകൾ പകർത്തുക, താൽപ്പര്യമുള്ള എല്ലാ വർക്ക് ഷീറ്റുകളും തിരഞ്ഞെടുത്ത് ഈ മാക്രോ പ്രവർത്തിപ്പിക്കുക:

പൊതു ഉപ CopySelectedSheets() ActiveWindow.SelectedSheets.Copy End Sub

Excel VBA ഷീറ്റ് മറ്റൊരു വർക്ക്ബുക്കിലേക്ക് പകർത്താൻ

നിങ്ങൾ പകർത്തിയ ഷീറ്റ് എവിടെ ചേർക്കണം എന്നതിനെ ആശ്രയിച്ച്, ഇനിപ്പറയുന്ന മാക്രോകളിൽ ഒന്ന് ഉപയോഗിക്കുക.

മറ്റൊരു വർക്ക്ബുക്കിന്റെ തുടക്കത്തിലേക്ക് ഷീറ്റ് പകർത്തുക

ഈ മാക്രോ മുമ്പ് സജീവമായ ഷീറ്റ് പകർത്തുന്നു. ഡെസ്റ്റിനേഷൻ ഫയലിലെ മറ്റെല്ലാ വർക്ക്ഷീറ്റുകളും, ഈ ഉദാഹരണത്തിൽ Book1 . മറ്റൊരു ഫയലിലേക്ക് പകർത്താൻ, "Book1.xlsx" എന്നതിന് പകരം നിങ്ങളുടെ ടാർഗെറ്റ് വർക്ക്ബുക്കിന്റെ മുഴുവൻ പേര്.

പൊതു ഉപCopySheetToBeginningAnotherWorkbook() activeSheet.Copy Before:=workbooks( "Book1.xlsx" ).Sheets(1) End Sub

മറ്റൊരു വർക്ക്‌ബുക്കിന്റെ അവസാനത്തിലേക്ക് ഷീറ്റ് പകർത്തുക

ഈ കോഡിന്റെ ഭാഗം സജീവമായ വർക്ക്‌ഷീറ്റിനെ ഡ്യൂപ്ലിക്കേറ്റ് ചെയ്യുന്നു. പകർപ്പ് Book1 ന്റെ അവസാനത്തിൽ സ്ഥാപിക്കുന്നു. വീണ്ടും, "Book1.xlsx" എന്നതിന് പകരം നിങ്ങളുടെ ലക്ഷ്യസ്ഥാന വർക്ക്ബുക്കിന്റെ പേര് നൽകാൻ ഓർമ്മിക്കുക.

പൊതു ഉപ CopySheetToEndAnotherWorkbook() activeSheet.Copy After:=workbooks( "Book1.xlsx" ).Sheets(Workbooks( "Book1.xlsxlsxlsxlsxxlsx) " ).വർക്ക്ഷീറ്റുകൾ.എണ്ണം) അവസാനം ഉപ

ശ്രദ്ധിക്കുക. മാക്രോകൾ പ്രവർത്തിക്കുന്നതിന്, ടാർഗെറ്റ് വർക്ക്ബുക്ക് നിങ്ങളുടെ ഹാർഡ് ഡ്രൈവിലോ നെറ്റ്‌വർക്കിലോ സേവ് ചെയ്തിരിക്കണം.

ഒരു തിരഞ്ഞെടുത്ത വർക്ക്ബുക്കിലേക്ക് ഷീറ്റ് പകർത്തുക

നിലവിലെ ഷീറ്റ് ഏതെങ്കിലും തുറന്ന വർക്ക്ബുക്കിലേക്ക് പകർത്താൻ, നിങ്ങൾക്ക് ഒരു ListBox നിയന്ത്രണവും ( ListBox1 എന്ന് പേരിട്ടിരിക്കുന്നു) രണ്ട് ബട്ടണുകളും ഉപയോഗിച്ച് ഒരു UserForm ( UserForm1 എന്ന് നാമകരണം ചെയ്യപ്പെട്ടിരിക്കുന്നു) സൃഷ്ടിക്കാൻ കഴിയും:

അടുത്തത്, ഫോമിൽ ഇരട്ട-ക്ലിക്കുചെയ്‌ത് കോഡ് വിൻഡോയിൽ ചുവടെയുള്ള കോഡ് ഒട്ടിക്കുക:

പൊതു തിരഞ്ഞെടുത്ത വർക്ക്ബുക്ക് സ്‌ട്രിംഗ് പ്രൈവറ്റ് സബ് യൂസർഫോം_ഇനിഷ്യലൈസ്() തിരഞ്ഞെടുത്ത വർക്ക്ബുക്ക് = "" ലിസ്റ്റ്ബോക്സ്1. ആപ്ലിക്കേഷനിലെ ഓരോ ഡബ്ല്യുബികെയും ക്ലിയർ ചെയ്യുക. വർക്ക്ബുക്കുകൾ ലിസ്റ്റ്ബോക്സ്1.എഡിഡി. (wbk.Name) അടുത്ത അവസാനം സബ് പ്രൈവറ്റ് സബ് കമാൻഡ് ബട്ടൺ1_ക്ലിക്ക്() ListBox1.ListIndex > -1 പിന്നെ SelectedWorkbook = ListBox1.List(ListBox1.ListIndex) End If Me.Hide End Sub Private Sub CommandButton2_Click() SelectedWorkbook = "" Me.Hide End Sub

ഉപയോക്തൃഫോം സ്ഥലത്തുണ്ടെങ്കിൽ, നിങ്ങൾക്ക് ഇനിപ്പറയുന്നതിൽ ഒന്ന് ഉപയോഗിക്കാം പകർത്താൻ മാക്രോകൾനിങ്ങൾ തിരഞ്ഞെടുക്കുന്ന വർക്ക്ബുക്കിലേക്ക് സജീവ ഷീറ്റ്.

തിരഞ്ഞെടുത്ത വർക്ക്ബുക്കിന്റെ തുടക്കത്തിലേക്ക് ഷീറ്റ് പകർത്തുക :

പബ്ലിക് സബ് കോപ്പിഷീറ്റ്ToBeginningAnotherWorkbook() UserForm1 UserForm1 ലോഡ് ചെയ്യുക. എങ്കിൽ കാണിക്കുക (UserForm1.SelectedWork " " ) തുടർന്ന് സജീവമായ ഷീറ്റ്. മുമ്പ് പകർത്തുക:=വർക്ക്ബുക്കുകൾ(UserForm1.SelectedWorkbook).ഷീറ്റുകൾ(1) അൺലോഡ് ചെയ്താൽ അവസാനിക്കുക UserForm1 End Sub

തിരഞ്ഞെടുത്ത വർക്ക്ബുക്കിന്റെ അവസാനത്തിലേക്ക് ഷീറ്റ് പകർത്തുക :

പൊതു ഉപ. പകർത്തുക എൻഡ് സബ്

എക്‌സലിൽ പ്രവർത്തിപ്പിക്കുമ്പോൾ, നിലവിൽ തുറന്നിരിക്കുന്ന എല്ലാ വർക്ക്ബുക്കുകളുടെയും ഒരു ലിസ്റ്റ് മാക്രോ നിങ്ങളെ കാണിക്കും. നിങ്ങൾ ആവശ്യമുള്ളത് തിരഞ്ഞെടുത്ത് ശരി ക്ലിക്ക് ചെയ്യുക:

എക്‌സൽ മാക്രോ ഷീറ്റ് പകർത്താനും പുനർനാമകരണം ചെയ്യാനും

എക്‌സലിൽ ഒരു ഷീറ്റ് പകർത്തുമ്പോൾ, അതിന്റെ പകർപ്പ് നൽകും Sheet1 (2) പോലെയുള്ള സ്ഥിരസ്ഥിതി ഫോർമാറ്റിൽ പേര്. ഡിഫോൾട്ട് പേര് സ്വമേധയാ മാറ്റുന്നതിൽ നിന്ന് ഇനിപ്പറയുന്ന മാക്രോകൾ നിങ്ങളെ ഒഴിവാക്കും.

ഈ കോഡ് സജീവമായ വർക്ക്ഷീറ്റിനെ ഡ്യൂപ്ലിക്കേറ്റ് ചെയ്യുന്നു, കോപ്പിയെ "ടെസ്റ്റ് ഷീറ്റ്" എന്ന് നാമകരണം ചെയ്യുന്നു (നിങ്ങൾക്ക് ഇഷ്ടമുള്ള മറ്റേതെങ്കിലും പേര് ഉപയോഗിച്ച് അത് മാറ്റിസ്ഥാപിക്കാൻ നിങ്ങൾക്ക് സ്വാതന്ത്ര്യമുണ്ട്) , കൂടാതെ നിലവിലെ വർക്ക്ബുക്കിന്റെ അവസാനം പകർത്തിയ ഷീറ്റ് സ്ഥാപിക്കുന്നു.

പൊതു ഉപ CopySheetAndRenamePredefined() activeSheet.Copy After:=Worksheets(Sheets.Count) പിശകിൽ അടുത്തത് സജീവ ഷീറ്റ്.നാമം ="ടെസ്റ്റ് ഷീറ്റ്" എൻഡ് സബ്

പകർത്ത ഷീറ്റിന്റെ പേര് വ്യക്തമാക്കാൻ ഉപയോക്താവിനെ അനുവദിക്കുന്നതിന് , ഈ കോഡ് ഉപയോഗിക്കുക:

പബ്ലിക് സബ് കോപ്പിഷീറ്റ്ആൻഡ് റീനാമം() പുതിയ പേര് സ്ട്രിംഗ് ആയി ഡിം ചെയ്യുക പിശക് അടുത്തത് പുതിയ പേര് = InputBox( "പകർത്ത വർക്ക്ഷീറ്റിന് പേര് നൽകുക" ) പുതിയ പേര് "" എങ്കിൽ ആക്ടീവ് ഷീറ്റ്. പകർത്തുക:=വർക്ക്ഷീറ്റുകൾ(ഷീറ്റ്സ്.എണ്ണം) പിശക് പുനരാരംഭിക്കുക അടുത്തത് activeSheet.Name = newName End If End Sub

പ്രവർത്തിക്കുമ്പോൾ, മാക്രോ ഇനിപ്പറയുന്ന ഇൻപുട്ട് ബോക്‌സ് പ്രദർശിപ്പിക്കുന്നു, അതിൽ നിങ്ങൾ ആവശ്യമുള്ള പേര് ടൈപ്പുചെയ്‌ത് ശരി അമർത്തുക:

എക്‌സൽ മാക്രോ ഷീറ്റ് പകർത്താനും സെൽ മൂല്യത്തെ അടിസ്ഥാനമാക്കി പുനർനാമകരണം ചെയ്യാനും

ഇൻ ചില സാഹചര്യങ്ങളിൽ, ഒരു പ്രത്യേക സെൽ മൂല്യമുള്ള ഒരു പകർപ്പിന് പേര് നൽകുന്നത് കൂടുതൽ സൗകര്യപ്രദമായിരിക്കും, ഉദാഹരണത്തിന്, ഒരു കോളം ഹെഡർ. ഇതിനായി, നിങ്ങൾ മുകളിലെ കോഡ് എടുത്ത് നിലവിൽ തിരഞ്ഞെടുത്ത സെല്ലിന്റെ മൂല്യം ഇൻപുട്ട് ബോക്സിലേക്ക് സ്വയമേവ നൽകുക. മുമ്പത്തെ ഉദാഹരണം പോലെ, പകർപ്പ് സജീവമായ വർക്ക്ബുക്കിന്റെ അവസാനത്തിൽ സ്ഥാപിക്കും.

റൺ ചെയ്യുന്നതിനുമുമ്പ് നിങ്ങളുടെ ഉപയോക്താക്കൾക്ക് എല്ലായ്പ്പോഴും ശരിയായ സെൽ തിരഞ്ഞെടുക്കുന്നതാണ് ഏറ്റവും തന്ത്രപ്രധാനമായ ഭാഗം മാക്രോ :)

പൊതു ഉപ CopySheetAndRenameByCell() പുതിയ പേര് സ്ട്രിംഗ് ആയി മങ്ങിക്കുക. ശേഷം പകർത്തുക:=വർക്ക്ഷീറ്റുകൾ(Sheets.Count) ഓൺ പിശക് പുനരാരംഭിക്കുക അടുത്തത് activeSheet.Name = newName End End Sub

പകരം, നിങ്ങൾക്ക് ഇതിന്റെ വിലാസം ഹാർഡ്‌കോഡ് ചെയ്യാംപകർപ്പിന് പേര് നൽകേണ്ട സെൽ , താഴെയുള്ള കോഡിലെ സെൽ A1. മറ്റൊരു സെല്ലിനെ അടിസ്ഥാനമാക്കി പകർത്തിയ വർക്ക്ഷീറ്റിന് പേര് നൽകുന്നതിന്, അനുയോജ്യമായ ഒരു സെൽ റഫറൻസ് ഉപയോഗിച്ച് A1 മാറ്റിസ്ഥാപിക്കുക.

പൊതു ഉപ CopySheetAndRenameByCell2() വർക്ക്ഷീറ്റായി മങ്ങിയ wks സെറ്റ് wks = ActiveSheet activeSheet. Copy after:=Worksheets(Sheets.Count) Wks.Range ആണെങ്കിൽ. ( "A1" ).മൂല്യം "" തുടർന്ന് പിശക് പുനരാരംഭിക്കുക അടുത്ത ActiveSheet.Name = wks.Range( "A1" ).മൂല്യ അവസാനം wks ആണെങ്കിൽ 0>ഈ മാക്രോ ഒരു അടച്ച വർക്ക്ബുക്കിന്റെ അവസാനത്തിലേക്ക് സജീവ ഷീറ്റിനെ പകർത്തുന്നു. മറ്റൊരു വർക്ക്ബുക്കിന്റെ പേര് കോഡിൽ വ്യക്തമാക്കിയിട്ടില്ല - മാക്രോ സ്റ്റാൻഡേർഡ് വിൻഡോസ് എക്സ്പ്ലോറർ വിൻഡോ തുറക്കുകയും ഏതെങ്കിലും ലക്ഷ്യസ്ഥാന ഫയൽ തിരഞ്ഞെടുക്കാൻ നിങ്ങളെ അനുവദിക്കുകയും ചെയ്യും:

നിങ്ങൾ ഫയൽ തിരഞ്ഞെടുത്ത ശേഷം തുടർന്ന് തുറക്കുക ക്ലിക്ക് ചെയ്യുക, മാക്രോ സജീവമായ ഷീറ്റ് പകർത്തുകയും ടാർഗെറ്റ് വർക്ക്ബുക്ക് സ്വയമേവ അടയ്ക്കുകയും ചെയ്യും.

പബ്ലിക് സബ് കോപ്പിഷീറ്റ്ടോക്ലോസ്ഡ് വർക്ക്ബുക്ക്() മങ്ങിയ ഫയലിന്റെ പേര് മങ്ങിയ ക്ലോസ്ഡ്ബുക്ക് വർക്ക്‌ബുക്കായി കറന്റ് ഷീറ്റ് വർക്ക്‌ഷീറ്റായി മങ്ങിക്കുക ഫയൽനാമം = Application.GetOpenFilename( "Excel ഫയലുകൾ (*.xlsx), *.xlsx" ) ഫയൽനാമം തെറ്റാണെങ്കിൽ, Application.ScreenUpdating = False Set currentSheet = Application.activeSheet Set closeBook = Workbooks. (ഫയലിന്റെ പേര്) നിലവിലെ ഷീറ്റ് തുറക്കുക. ശേഷം പകർത്തുക:=ക്ലോസ്ഡ്ബുക്ക്. ഷീറ്റുകൾ(ക്ലോസ്ഡ്ബുക്ക്.വർക്ക്ഷീറ്റ്സ്.എണ്ണം) ക്ലോസ്ഡ്ബുക്ക്. അടയ്ക്കുക (ട്രൂ ) Application.ScreenUpdating = True End If End Sub

Excel VBA ഇല്ലാതെ മറ്റൊരു വർക്ക്ബുക്കിൽ നിന്ന് ഷീറ്റ് പകർത്താൻതുറക്കുന്നു

ഒരു വർക്ക്ഷീറ്റ് തുറക്കാതെ തന്നെ മറ്റൊരു Excel ഫയലിൽ നിന്ന് പകർത്താൻ ഈ മാക്രോ നിങ്ങളെ പ്രാപ്തമാക്കുന്നു. പകർത്തിയ ഷീറ്റ് നിലവിലെ വർക്ക്ബുക്കിന്റെ അവസാനം ചേർക്കും.

കോഡിൽ കുറച്ച് മാറ്റിസ്ഥാപിക്കാൻ ഓർമ്മിക്കുക:

• C:\Users\XXX\Documents\ Target_Book.xlsx എന്നത് നിങ്ങൾ ഒരു ഷീറ്റ് പകർത്താൻ ആഗ്രഹിക്കുന്ന വർക്ക്ബുക്കിന്റെ യഥാർത്ഥ പാതയിലേക്കും പേരിലേക്കും മാറ്റണം.
• Sheet1 എന്നത് നിങ്ങൾ പകർത്താൻ ആഗ്രഹിക്കുന്ന ഷീറ്റിന്റെ പേര് നൽകണം.

പബ്ലിക് സബ് കോപ്പിഷീറ്റ് ഫ്രോംക്ലോസ്ഡ് വർക്ക്ബുക്ക്() വർക്ക്ബുക്ക് ആപ്ലിക്കേഷനായി ഡിം സോഴ്സ്ബുക്ക്.സ്ക്രീൻഅപ്ഡേറ്റിംഗ് = തെറ്റായ സെറ്റ് സോഴ്സ്ബുക്ക് = വർക്ക്ബുക്കുകൾ. തുറക്കുക ( "C:\Users\XXX\Documents\Target_Book.xlsx" ) sourceBook.Sheets( "Sheet1" ).ശേഷം പകർത്തുക:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) sourceBook. Application.ScreenUpdating = True End Sub

Excel VBA ഷീറ്റ് ഒന്നിലധികം തവണ ഡ്യൂപ്ലിക്കേറ്റ് ചെയ്യാൻ

ചിലപ്പോൾ, ഒരേ ഡാറ്റാ സെറ്റിൽ വ്യത്യസ്ത ഫോർമുലകൾ പരീക്ഷിക്കാൻ നിങ്ങൾക്ക് ഒരേ ഷീറ്റ് ഒന്നിലധികം തവണ ഡ്യൂപ്ലിക്കേറ്റ് ചെയ്യേണ്ടി വന്നേക്കാം. ഇനിപ്പറയുന്ന മാക്രോ ഉപയോഗിച്ച് ഇത് എളുപ്പത്തിൽ ചെയ്യാൻ കഴിയും.

പൊതു സബ് ഡ്യൂപ്ലിക്കേറ്റ് ഷീറ്റ് മൾട്ടിപ്പിൾ ടൈംസ്() ഡിം n അസ് ഇന്റിജർ ഓൺ എറർ റെസ്യൂം അടുത്തത് n = InputBox( "സജീവ ഷീറ്റിന്റെ എത്ര പകർപ്പുകൾ നിങ്ങൾ നിർമ്മിക്കാൻ ആഗ്രഹിക്കുന്നു?" ) n > = 1 പിന്നെ സംഖ്യാ സമയങ്ങൾക്കായി = 1 മുതൽ n ActiveSheet വരെ. പകർത്തുക:=ActiveWorkbook.Sheets(Worksheets.Count) അടുത്തത് അവസാനം ഉപമാണെങ്കിൽ

യഥാർത്ഥ ഷീറ്റ് തുറക്കുക, മാക്രോ പ്രവർത്തിപ്പിക്കുക, സജീവ ഷീറ്റിന്റെ എത്ര പകർപ്പുകൾ വ്യക്തമാക്കുകനിങ്ങൾ നിർമ്മിക്കാൻ ആഗ്രഹിക്കുന്നു, തുടർന്ന് ശരി :

വിബിഎ ഉപയോഗിച്ച് Excel-ൽ ഷീറ്റുകൾ ഡ്യൂപ്ലിക്കേറ്റ് ചെയ്യുന്നതെങ്ങനെ

Excel-ൽ ഒരു ഷീറ്റ് പകർത്താൻ. മുകളിലുള്ള മാക്രോകളിൽ ഒന്ന് ഉപയോഗിച്ച്, നിങ്ങൾക്ക് ഒന്നുകിൽ നിങ്ങളുടെ സ്വന്തം പുസ്തകത്തിലേക്ക് VBA കോഡ് ചേർക്കാം അല്ലെങ്കിൽ ഞങ്ങളുടെ സാമ്പിൾ വർക്ക്ബുക്കിൽ നിന്ന് ഒരു മാക്രോ പ്രവർത്തിപ്പിക്കാം.

നിങ്ങളുടെ വർക്ക്ബുക്കിലേക്ക് ഒരു മാക്രോ എങ്ങനെ ചേർക്കാം

ഇൻസേർട്ട് ചെയ്യാൻ നിങ്ങളുടെ വർക്ക്ബുക്കിലെ കോഡ്, ഈ ഘട്ടങ്ങൾ പാലിക്കുക:

1. നിങ്ങൾ പകർത്താൻ ആഗ്രഹിക്കുന്ന വർക്ക്ഷീറ്റ് തുറക്കുക.
2. വിഷ്വൽ ബേസിക് എഡിറ്റർ തുറക്കാൻ Alt + F11 അമർത്തുക.
3. ഓൺ ഇടത് പാളി, ഈ വർക്ക്ബുക്ക് വലത്-ക്ലിക്കുചെയ്യുക, തുടർന്ന് തിരുകുക > മൊഡ്യൂൾ ക്ലിക്കുചെയ്യുക.
4. കോഡ് വിൻഡോയിൽ കോഡ് ഒട്ടിക്കുക.
5. മാക്രോ പ്രവർത്തിപ്പിക്കുന്നതിന് F5 അമർത്തുക.

വിശദമായ ഘട്ടം ഘട്ടമായുള്ള നിർദ്ദേശങ്ങൾക്കായി, Excel-ൽ VBA കോഡ് എങ്ങനെ ചേർക്കാമെന്ന് കാണുക.

എങ്ങനെ റൺ ചെയ്യാം ഞങ്ങളുടെ സാമ്പിൾ വർക്ക്ബുക്കിൽ നിന്നുള്ള ഒരു മാക്രോ

പകരം, നിങ്ങൾക്ക് ഞങ്ങളുടെ മാതൃകാ വർക്ക്ബുക്ക് ഡ്യൂപ്ലിക്കേറ്റ് Excel ഷീറ്റിലേക്ക് ഡൗൺലോഡ് ചെയ്ത് അവിടെ നിന്ന് കോഡ് പ്രവർത്തിപ്പിക്കാം.

സാമ്പിൾ വർക്ക്ബുക്കിൽ ഇനിപ്പറയുന്ന മാക്രോകൾ അടങ്ങിയിരിക്കുന്നു:

CopySheetToNewWorkbook - cu പകർത്തുന്നു വർക്ക്ഷീറ്റ് ഒരു പുതിയ വർക്ക്ബുക്കിലേക്ക് റന്റ് ചെയ്യുക.

CopySelectedSheets - നിങ്ങൾ ഒരു പുതിയ വർക്ക്ബുക്കിലേക്ക് തിരഞ്ഞെടുക്കുന്ന ഒന്നിലധികം ഷീറ്റുകൾ പകർത്തുന്നു.

CopySheetToBeginningAnotherWorkbook - സജീവ ഷീറ്റ് പകർത്തുന്നു. മറ്റൊരു വർക്ക്ബുക്കിന്റെ തുടക്കത്തിലേക്ക്.

CopySheetToEndAnotherWorkbook - മറ്റൊരു Excel ഫയലിന്റെ അവസാനത്തിലേക്ക് സജീവ ഷീറ്റ് പകർത്തുന്നു.

CopySheetAndRename - നിലവിലുള്ളതിന്റെ തനിപ്പകർപ്പ് നൽകുന്നു. ഷീറ്റ്,ഉപയോക്താവ് വ്യക്തമാക്കിയത് പോലെ അത് പുനർനാമകരണം ചെയ്യുന്നു, കൂടാതെ നിലവിലെ വർക്ക്ബുക്കിലെ മറ്റെല്ലാ ഷീറ്റുകൾക്കും ശേഷം പകർപ്പ് ഇടുന്നു.

CopySheetAndRenamePredefined - സജീവ ഷീറ്റിന്റെ തനിപ്പകർപ്പ്, പകർപ്പിന് ഹാർഡ്കോഡ് ചെയ്ത പേര് നൽകുകയും അത് സ്ഥാപിക്കുകയും ചെയ്യുന്നു നിലവിലെ വർക്ക്ബുക്കിന്റെ അവസാനം.

CopySheetAndRenameByCell - സജീവ ഷീറ്റിന്റെ ഒരു പകർപ്പ് ഉണ്ടാക്കുകയും തിരഞ്ഞെടുത്ത സെൽ മൂല്യത്തെ അടിസ്ഥാനമാക്കി അതിന്റെ പേര് മാറ്റുകയും ചെയ്യുന്നു.

CopySheetAndRenameByCell2 - സജീവമായ ഷീറ്റ് പകർത്തുകയും ഹാർഡ്‌കോഡ് ചെയ്‌ത സെൽ വിലാസത്തെ അടിസ്ഥാനമാക്കി അതിന്റെ പേര് മാറ്റുകയും ചെയ്യുന്നു.

CopySheetToClosedWorkbook - ഒരു അടച്ച വർക്ക്‌ബുക്കിലേക്ക് ഷീറ്റ് പകർത്താൻ നിങ്ങളെ അനുവദിക്കുന്നു.

CopySheetFromClosedWorkbook - ഒരു ഷീറ്റ് തുറക്കാതെ തന്നെ മറ്റൊരു Excel ഫയലിൽ നിന്ന് പകർത്താൻ നിങ്ങളെ പ്രാപ്‌തമാക്കുന്നു.

DuplicateSheetMultipleTimes - Excel-ൽ ഒരു ഷീറ്റ് ഒന്നിലധികം തവണ ഡ്യൂപ്ലിക്കേറ്റ് ചെയ്യാൻ നിങ്ങളെ അനുവദിക്കുന്നു.

ലേക്ക്. നിങ്ങളുടെ Excel-ൽ മാക്രോ പ്രവർത്തിപ്പിക്കുക, ഇനിപ്പറയുന്നവ ചെയ്യുക:

1. ഡൗൺലോഡ് ചെയ്‌ത വർക്ക്‌ബുക്ക് തുറന്ന് ആവശ്യപ്പെടുകയാണെങ്കിൽ ഉള്ളടക്കം പ്രവർത്തനക്ഷമമാക്കുക.
2. നിങ്ങളുടെ സ്വന്തം വർക്ക്‌ബുക്ക് തുറന്ന് നിങ്ങൾക്ക് ആവശ്യമുള്ള ഷീറ്റിലേക്ക് നാവിഗേറ്റ് ചെയ്യുക. പകർത്തുക.
<1 7>നിങ്ങളുടെ വർക്ക്ഷീറ്റിൽ Alt + F8 അമർത്തുക, താൽപ്പര്യമുള്ള മാക്രോ തിരഞ്ഞെടുത്ത് Run ക്ലിക്ക് ചെയ്യുക.

അങ്ങനെയാണ് നിങ്ങൾക്ക് ഡ്യൂപ്ലിക്കേറ്റ് ചെയ്യാൻ കഴിയുക. VBA ഉള്ള Excel-ൽ ഒരു ഷീറ്റ്. വായിച്ചതിന് നന്ദി, അടുത്ത ആഴ്‌ച നിങ്ങളെ ഞങ്ങളുടെ ബ്ലോഗിൽ കാണുമെന്ന് പ്രതീക്ഷിക്കുന്നു!