നിങ്ങൾക്ക് ആവശ്യമുള്ളപ്പോഴെല്ലാം ഒരു ഷീറ്റിൽ നിന്ന് മറ്റൊരു ഷീറ്റിലേക്കോ വർക്ക്ബുക്കിലേക്കോ ഒരു ശ്രേണി പകർത്താനാകും. പലതരം കോപ്പി പേസ്റ്റിംഗ് ഉണ്ട്. ഈ ലേഖനത്തിന് ശേഷം, മറ്റൊരു ഷീറ്റിലേക്ക് Excel VBA കോപ്പി റേഞ്ച് ഉപയോഗിക്കുന്നതിനുള്ള വ്യത്യസ്ത വഴികൾ നിങ്ങൾക്ക് അറിയാം.

വിശദീകരണം സജീവമാക്കുന്നതിന്, പ്രത്യേക വ്യക്തികളുടെ വ്യക്തിഗത വിവരങ്ങൾ പ്രതിനിധീകരിക്കുന്ന ഒരു സാമ്പിൾ ഡാറ്റാസെറ്റ് ഞാൻ ഉപയോഗിക്കാൻ പോകുന്നു. . ഡാറ്റാസെറ്റിന് 4 കോളങ്ങളുണ്ട്. ഈ നിരകൾ ആദ്യ പേര്, അവസാന നാമം, മുഴുവൻ പേര്, , ഇമെയിൽ എന്നിവയാണ്.

പ്രാക്ടീസ് ചെയ്യാൻ വർക്ക്ബുക്ക് ഡൗൺലോഡ് ചെയ്യുക

നിങ്ങൾക്ക് ഒരു ഷീറ്റിൽ നിന്ന് മറ്റൊരു ഷീറ്റിലേക്ക് ഒരു ശ്രേണി പകർത്താൻ താൽപ്പര്യപ്പെടുമ്പോഴെല്ലാം ഫോർമാറ്റ് ഉപയോഗിച്ച് നിങ്ങൾക്ക് അത് ലളിതമായി ചെയ്യാൻ കഴിയും 2>VBA .

ഇവിടെ, ഞാൻ ഡാറ്റാസെറ്റ് ഷീറ്റിൽ നിന്ന് വിത്ത് ഫോർമാറ്റ് ഷീറ്റിലേക്കുള്ള ഒരു ശ്രേണി പകർത്തും.

ആദ്യം, ഡെവലപ്പർ ടാബ് >> വിഷ്വൽ ബേസിക് തിരഞ്ഞെടുക്കുക

VBA <തുറക്കാൻ നിങ്ങൾക്ക് ALT + F11 കീബോർഡും ഉപയോഗിക്കാം. 3>എഡിറ്റർ.

അടുത്തതായി, അത് ആപ്ലിക്കേഷനുകൾക്കായുള്ള മൈക്രോസോഫ്റ്റ് വിഷ്വൽ ബേസിക് എന്ന പേരിൽ ഒരു പുതിയ വിൻഡോ തുറക്കും.

അവിടെ നിന്ന്, തിരുകുക <3 തുറക്കുക>>> Module തിരഞ്ഞെടുക്കുക.

A Module തുറക്കും തുടർന്ന് തുറന്നതിൽ ഇനിപ്പറയുന്ന കോഡ് ടൈപ്പ് ചെയ്യുക >> മാക്രോകൾ കാണുക

➤ ഒരു ഡയലോഗ് ബോക്സ് പോപ്പ് അപ്പ് ചെയ്യും.

ഇപ്പോൾ, മാക്രോ നാമത്തിൽ നിന്ന് Copy_Range_BelowLastCell_AnotherSheets തിരഞ്ഞെടുക്കുക Macros in എന്നതിനുള്ളിലെ വർക്ക്ബുക്കും തിരഞ്ഞെടുക്കുക.

അവസാനം, റൺ ചെയ്യുക. തിരഞ്ഞെടുത്ത മാക്രോ .

അതിനാൽ, അത് പകർത്തും തിരഞ്ഞെടുത്ത ശ്രേണി മറ്റൊരു ഷീറ്റിന്റെ അവസാന വരിയിൽ നിന്ന് ഒട്ടിക്കും .

8. VBA മറ്റൊരു വർക്ക്ബുക്കിന്റെ അവസാന വരിയിലേക്ക് ഒരു ശ്രേണി പകർത്തുക

നിങ്ങൾക്ക് പകർത്തണമെങ്കിൽ മറ്റൊരു വർക്ക്ബുക്ക് ഷീറ്റിന്റെ അവസാന വരി വരെയുള്ള ഒരു ശ്രേണി നിങ്ങൾക്ക് VBA ഉപയോഗിക്കാനും കഴിയും.

ഇവിടെ, ഞാൻ Dataset2-ൽ നിന്ന് ഒരു ശ്രേണി പകർത്തും ഷീറ്റ് ലേക്ക് ഷീറ്റ്1 of Book2 എന്നാൽ ആദ്യത്തെ ശൂന്യമല്ലാത്ത സെല്ലിൽ നിന്ന്.

നടപടികൾ ആരംഭിക്കുന്നതിന്,

ആദ്യം, ഡെവലപ്പർ ടാബ് >> വിഷ്വൽ ബേസിക് തിരഞ്ഞെടുക്കുക

നിങ്ങൾക്ക് VBA എഡിറ്റർ തുറക്കാൻ ALT + F11 കീബോർഡും ഉപയോഗിക്കാം. <1

അടുത്തതായി, അത് ആപ്ലിക്കേഷനുകൾക്കായുള്ള മൈക്രോസോഫ്റ്റ് വിഷ്വൽ ബേസിക്കിന്റെ ഒരു പുതിയ വിൻഡോ തുറക്കും.

അവിടെ നിന്ന്, തിരുകുക <3 തുറക്കുക>>> Module തിരഞ്ഞെടുക്കുക.

A Module തുറക്കും തുടർന്ന് തുറന്ന Module എന്നതിൽ ഇനിപ്പറയുന്ന കോഡ് ടൈപ്പ് ചെയ്യുക.

6776

ഇവിടെ, ഞാൻ ഉപ നടപടിക്രമം Copy_Range_BelowLastCell_To_Another_Workbook എവിടെ wsCopy ഉം ws ഡെസ്റ്റിനേഷനും 3> വർക്ക്ഷീറ്റ് തരം, lCopyLastRow , lDestLastRow എന്നിവയാണ് നീളമുള്ള തരം.

ആദ്യം, ഷീറ്റിനും ഡെസ്റ്റിനേഷൻ ഷീറ്റിനും വേരിയബിളുകൾ സജ്ജീകരിക്കാൻ സെറ്റ് ഉപയോഗിച്ചു.

അടുത്തത്, പകർപ്പ് ശ്രേണിയിലെ A നിരയുടെ ഡാറ്റയെ അടിസ്ഥാനമാക്കി അവസാന വരി കണ്ടെത്താൻ വരി രീതി ഉപയോഗിച്ചു.

വീണ്ടും, വരി രീതി ഉപയോഗിച്ചു ലക്ഷ്യസ്ഥാന ശ്രേണിയിലെ A നിരയുടെ ഡാറ്റയെ അടിസ്ഥാനമാക്കി ആദ്യത്തെ ശൂന്യമായ വരി കണ്ടെത്താൻ, ഒരു പ്രോപ്പർട്ടി താഴേക്ക് നീക്കാൻ ഓഫ്‌സെറ്റ് ഉം ഉപയോഗിച്ചു.

അവസാനം, പകർന്നു Dataset2 ഷീറ്റിന്റെ Excel VBA കോപ്പി റേഞ്ചിൽ നിന്നും മറ്റൊരു ഷീറ്റിലേക്ക് 3>.

ഇപ്പോൾ, കോഡ് സംരക്ഷിച്ച് വർക്ക്ഷീറ്റിലേക്ക് മടങ്ങുക.

അടുത്തതായി, കാണുക ടാബ് >> മാക്രോകളിൽ നിന്ന് >> മാക്രോകൾ കാണുക

➤ ഒരു ഡയലോഗ് ബോക്‌സ് പോപ്പ് അപ്പ് ചെയ്യും.

ഇപ്പോൾ, മാക്രോ നാമത്തിൽ നിന്ന് Copy_Range_BelowLastCell_To_Another_Workbook തിരഞ്ഞെടുക്കുക Macros in എന്നതിനുള്ളിലെ വർക്ക്ബുക്കും തിരഞ്ഞെടുക്കുക.

അവസാനം, Run തിരഞ്ഞെടുത്ത മാക്രോ .

അതിനാൽ, നിലവിലുള്ള ഷീറ്റിൽ നിന്ന് മറ്റൊരു വർക്ക്ബുക്കിന്റെ അവസാന വരിയിലേക്ക് തിരഞ്ഞെടുത്ത ശ്രേണി പകർത്തും .

പ്രാക്ടീസ് വിഭാഗം

Excel VBA കോപ്പി റേഞ്ചിന്റെ ഈ വിശദീകരിച്ച വഴികൾ പരിശീലിക്കുന്നതിനായി ഞാൻ വർക്ക്ബുക്കിൽ ഒരു പ്രാക്ടീസ് ഷീറ്റ് നൽകിയിട്ടുണ്ട്. മറ്റൊരു ഷീറ്റിലേക്ക്.

ഉപസംഹാരം

ഈ ലേഖനത്തിൽ, 8 വ്യത്യസ്ത തരത്തിലുള്ള എളുപ്പവും വേഗത്തിലുള്ളതുമായ വഴികൾ ഞാൻ വിശദീകരിച്ചിട്ടുണ്ട്Excel VBA ശ്രേണി മറ്റൊരു ഷീറ്റിലേക്ക് പകർത്തുക. ഒരു ഷീറ്റിൽ നിന്ന് മറ്റൊന്നിലേക്കും ഒരു ഷീറ്റിൽ നിന്ന് മറ്റൊരു വർക്ക്ബുക്കിലേക്കും ഒരു ശ്രേണി പകർത്താൻ ഈ വ്യത്യസ്ത വഴികൾ നിങ്ങളെ സഹായിക്കും. അവസാനമായി പക്ഷേ, നിങ്ങൾക്ക് എന്തെങ്കിലും തരത്തിലുള്ള നിർദ്ദേശങ്ങളും ആശയങ്ങളും ഫീഡ്‌ബാക്കും ഉണ്ടെങ്കിൽ താഴെ കമന്റ് ചെയ്യാൻ മടിക്കേണ്ടതില്ല.

9984

ഇവിടെ, ഞാൻ ഉപ നടപടിക്രമം Copy_Range_withFormat_ToAnother_Sheet

ഞാൻ B1:E10 നിലവിലുള്ള ഷീറ്റിൽ നിന്ന് ഷീറ്റ് നാമം വിത്ത് ഫോർമാറ്റിലേക്ക് പകർത്താൻ തിരഞ്ഞെടുത്തു.

ഇവിടെ, ഞാൻ പകർപ്പ് ഉപയോഗിച്ചു. തിരഞ്ഞെടുത്ത ശ്രേണി പകർത്തുന്നതിനുള്ള രീതി, പകർത്തുക രീതി ഫോർമാറ്റ് ഉപയോഗിച്ച് ഏത് ശ്രേണിയും പകർത്തുന്നു.

അവസാനം, കോഡ് സംരക്ഷിച്ച് വർക്ക്ഷീറ്റിലേക്ക് മടങ്ങുക .

അടുത്തതായി, കാണുക ടാബ് >> മാക്രോകളിൽ നിന്ന് >> മാക്രോകൾ കാണുക

➤ ഒരു ഡയലോഗ് ബോക്‌സ് പോപ്പ് അപ്പ് ചെയ്യും.

ഇപ്പോൾ, മാക്രോ നാമത്തിൽ നിന്ന് Copy_Range_withFormat_ToAnother_Sheet Macros in എന്നതിനുള്ളിലെ വർക്ക്ബുക്കും തിരഞ്ഞെടുക്കുക.

അവസാനം, Run ചെയ്യുക. തിരഞ്ഞെടുത്ത മാക്രോ .

അതിനാൽ, അത് തിരഞ്ഞെടുത്ത ശ്രേണിയെ ഫോർമാറ്റ് നൊപ്പം ഞാൻ തിരഞ്ഞെടുത്ത പുതിയ ഷീറ്റിലേക്ക് പകർത്തും ( ഫോർമാറ്റിനൊപ്പം) .

2. ഫോർമാറ്റില്ലാതെ മറ്റൊരു ഷീറ്റിലേക്ക് VBA ഒരു ശ്രേണി പകർത്തുക

ഇതും VBA ഉപയോഗിച്ച് ഫോർമാറ്റ് ചെയ്യാതെ ഒരു ശ്രേണി മറ്റൊരു ഷീറ്റിലേക്ക് പകർത്താൻ സാധ്യമാണ്.

ഇവിടെ, ഞാൻ പകർത്താം <3 ഡാറ്റാസെറ്റ് ഷീറ്റ് മുതൽ ഫോർമാറ്റ് ഇല്ലാതെ ഷീറ്റ് വരെയുള്ള ഒരു ശ്രേണി ടാബ് >> വിഷ്വൽ ബേസിക് തിരഞ്ഞെടുക്കുക ( ALT + F11 ഉപയോഗിക്കുക)

അടുത്തത്, അത് തുറക്കും ആപ്ലിക്കേഷനുകൾക്കായുള്ള മൈക്രോസോഫ്റ്റ് വിഷ്വൽ ബേസിക്.

തുടർന്ന്, ഇൻസേർട്ട് തുറക്കുക >> Module തിരഞ്ഞെടുക്കുക.

A Module തുറക്കും തുടർന്ന് തുറന്ന Module എന്നതിൽ ഇനിപ്പറയുന്ന കോഡ് ടൈപ്പ് ചെയ്യുക.

5821

ഇവിടെ, ഞാൻ ഉപ നടപടിക്രമം പ്രഖ്യാപിച്ചു Copy_Range_WithoutFormat_Toanother_Sheet

ഞാൻ റേഞ്ച് എടുത്തു B1:E10 നിലവിലുള്ള ഷീറ്റിൽ നിന്ന് ഫോർമാറ്റ് ഇല്ലാതെ എന്ന ഷീറ്റിന്റെ പേരിലേക്ക് പകർത്താൻ.

ഇവിടെ, തിരഞ്ഞെടുത്ത ശ്രേണി പകർത്താൻ ഞാൻ പകർത്തുക രീതി ഉപയോഗിച്ചു. ഒട്ടിക്കുക:=xlPasteValues ​​ PasteSpecial രീതിയിൽ സൂചിപ്പിച്ചിരിക്കുന്നു, അങ്ങനെ അത് തിരഞ്ഞെടുത്ത ശ്രേണിയുടെ മൂല്യങ്ങൾ മാത്രം ഒട്ടിക്കും, ഫോർമാറ്റ് അല്ല.

അവസാനം. , കോഡ് സംരക്ഷിച്ച് വർക്ക്ഷീറ്റിലേക്ക് മടങ്ങുക.

അടുത്തതായി, കാണുക ടാബ് >> മാക്രോകളിൽ നിന്ന് >> മാക്രോകൾ കാണുക

➤ ഒരു ഡയലോഗ് ബോക്‌സ് പോപ്പ് അപ്പ് ചെയ്യും.

ഇപ്പോൾ, മാക്രോ നാമത്തിൽ നിന്ന് Copy_Range_WithoutFormat_Toanother_Sheet തിരഞ്ഞെടുക്കുക കൂടാതെ Macros in എന്നതിനുള്ളിലെ വർക്ക്ബുക്കും തിരഞ്ഞെടുക്കുക.

അവസാനം, തിരഞ്ഞെടുത്ത മാക്രോ റൺ ചെയ്യുക.

അങ്ങനെ, മൂല്യങ്ങൾ ഇല്ല ഫോർമാറ്റ്<3 ഉപയോഗിച്ച് മാത്രം തിരഞ്ഞെടുത്ത ശ്രേണി പകർത്തും >.

3. ഫോർമാറ്റും കോളം വീതിയും ഉള്ള മറ്റൊരു ഷീറ്റിലേക്ക് ഒരു ശ്രേണി പകർത്തുക

ചിലപ്പോൾ തിരഞ്ഞെടുത്ത ഏത് ശ്രേണിയും അതേപടി പകർത്തുക, അതിനായി നിങ്ങൾക്ക് ഒരു ശ്രേണി ഫോർമാറ്റ് , നിര വീതി എന്നിവ ഉപയോഗിച്ച് പകർത്താം.

ഇവിടെ, ഞാൻ ഡാറ്റാസെറ്റ് ഷീറ്റിൽ നിന്ന് ഫോർമാറ്റിലേക്ക് ഒരു ശ്രേണി പകർത്തും & കോളം വീതി ഷീറ്റ്.

VBA ,

ആദ്യം, Developer ടാബ് >> ഉപയോഗിച്ച് ടാസ്‌ക്ക് ചെയ്യുന്നതിനുള്ള നടപടിക്രമം കാണുന്നതിന്. വിഷ്വൽ ബേസിക് തിരഞ്ഞെടുക്കുക

നിങ്ങൾക്ക് VBA എഡിറ്റർ തുറക്കാൻ ALT + F11 കീബോർഡും ഉപയോഗിക്കാം. <1

അടുത്തതായി, അത് ആപ്ലിക്കേഷനുകൾക്കായുള്ള മൈക്രോസോഫ്റ്റ് വിഷ്വൽ ബേസിക്കിന്റെ ഒരു പുതിയ വിൻഡോ തുറക്കും.

അവിടെ, തുറക്കുക തിരുകുക >> Module തിരഞ്ഞെടുക്കുക.

A Module തുറക്കും തുടർന്ന് തുറന്ന Module എന്നതിൽ ഇനിപ്പറയുന്ന കോഡ് ടൈപ്പ് ചെയ്യുക.

6680

ഇവിടെ, ഞാൻ ഉപ നടപടിക്രമം പ്രഖ്യാപിച്ചു Copy_Range_to_Another_Sheet_with_FormatAndColumnWidth

ഞാൻ റേഞ്ച് എടുത്തു B1:E10 നിലവിലുള്ള ഷീറ്റിൽ നിന്ന് ഡെസ്റ്റിനേഷൻ ഷീറ്റിന്റെ പേരിലേക്ക് പകർത്താൻ ഫോർമാറ്റ് & നിരയുടെ വീതി .

ഇവിടെ, തിരഞ്ഞെടുത്ത ശ്രേണി പകർത്താൻ ഞാൻ പകർത്തുക രീതി ഉപയോഗിച്ചു. ഞാൻ ഒട്ടിക്കുക:=xlPasteColumnWidths എന്നതിൽ ഞാൻ സൂചിപ്പിച്ച PasteSpecial രീതിയും ഉപയോഗിച്ചു, അതുവഴി ഫോർമാറ്റ് , കോളം വീതി എന്നിവയ്‌ക്കൊപ്പം തിരഞ്ഞെടുത്ത ശ്രേണി ഒട്ടിക്കുന്നു .

അവസാനം, കോഡ് സംരക്ഷിച്ച് വർക്ക്ഷീറ്റിലേക്ക് മടങ്ങുക.

അടുത്തതായി, കാണുക ടാബ് >> മാക്രോകളിൽ നിന്ന് >> മാക്രോകൾ കാണുക

➤ ഒരു ഡയലോഗ് ബോക്സ് പോപ്പ് അപ്പ് ചെയ്യും.

ഇപ്പോൾ, മാക്രോ നാമത്തിൽ നിന്ന് Copy_Range_to_Another_Sheet_with_FormatAndColumnWidth കൂടാതെ Macros in എന്നതിനുള്ളിലെ വർക്ക്ബുക്കും തിരഞ്ഞെടുക്കുക.

അവസാനം, തിരഞ്ഞെടുത്തത് പ്രവർത്തിപ്പിക്കുക മാക്രോ .

ഫലമായി, അത് തിരഞ്ഞെടുത്ത ശ്രേണി ഫോർമാറ്റ് , കോളം വീതി എന്നിവ ഉപയോഗിച്ച് പകർത്തും.

4. VBA ഫോർമുല ഉപയോഗിച്ച് മറ്റൊരു ഷീറ്റിലേക്ക് ഒരു ശ്രേണി പകർത്തുക

നിങ്ങളുടെ ഡാറ്റാസെറ്റിൽ എന്തെങ്കിലും ഫോർമുല ഉണ്ടെങ്കിൽ നിങ്ങൾ പകർത്താൻ ആഗ്രഹിക്കുന്നു. വിഷമിക്കേണ്ടതില്ല! നിങ്ങൾക്ക് ഫോർമുല അടങ്ങിയിരിക്കുന്ന ശ്രേണി മറ്റൊരു ഷീറ്റിലേക്ക് പകർത്താനാകും. ഫോർമുല ഷീറ്റ്

നമുക്ക് നടപടിക്രമം ആരംഭിക്കാം,

ആരംഭിക്കാൻ, ഡെവലപ്പർ ടാബ് >> വിഷ്വൽ ബേസിക് തിരഞ്ഞെടുക്കുക ( നിങ്ങൾക്ക് ALT + F11 കീബോർഡും ഉപയോഗിക്കാം)

അടുത്തത്, അത് അപ്ലിക്കേഷനുകൾക്കായുള്ള മൈക്രോസോഫ്റ്റ് വിഷ്വൽ ബേസിക് തുറക്കും.

അവിടെ നിന്ന്, തുറക്കുക ഇൻസേർട്ട് >> Module തിരഞ്ഞെടുക്കുക.

A Module തുറക്കും തുടർന്ന് തുറന്ന Module എന്നതിൽ ഇനിപ്പറയുന്ന കോഡ് ടൈപ്പ് ചെയ്യുക.

4959

ഇവിടെ, ഞാൻ ഉപ നടപടിക്രമം പ്രഖ്യാപിച്ചു Copy_Range_withFormula_ToAnother_Sheet

ഞാൻ റേഞ്ച് എടുത്തു B1:E10 നിലവിലുള്ള ഷീറ്റിൽ നിന്ന് ഡെസ്റ്റിനേഷൻ ഷീറ്റിന്റെ പേരിലേക്ക് പകർത്താൻ Formula .

ഇവിടെ, തിരഞ്ഞെടുത്ത ശ്രേണി പകർത്താൻ ഞാൻ പകർപ്പ് രീതി ഉപയോഗിച്ചു. ഞാൻ Paste:=xlPasteFormulas പരാമർശിച്ച PasteSpecial രീതിയും ഞാൻ ഉപയോഗിച്ചു, അതിനാൽ അത് തിരഞ്ഞെടുത്ത ശ്രേണിയ്‌ക്കൊപ്പം സൂത്രവാക്യങ്ങളും വഹിക്കും.

അവസാനം , കോഡ് സംരക്ഷിച്ച് വർക്ക്ഷീറ്റിലേക്ക് മടങ്ങുക.

തുടർന്ന്, കാഴ്ച തുറക്കുക ടാബ് >> മാക്രോകളിൽ നിന്ന് >> മാക്രോകൾ കാണുക

➤ ഒരു ഡയലോഗ് ബോക്‌സ് പോപ്പ് അപ്പ് ചെയ്യും.

ഇപ്പോൾ, മാക്രോ നാമത്തിൽ നിന്ന് Copy_Range_withFormula_ToAnother_Sheet കൂടാതെ Macros in എന്നതിനുള്ളിലെ വർക്ക്ബുക്കും തിരഞ്ഞെടുക്കുക.

അവസാനം, Run ചെയ്യുക. തിരഞ്ഞെടുത്ത മാക്രോ .

അങ്ങനെ, അത് തിരഞ്ഞെടുത്ത എല്ലാ സെൽ ശ്രേണികളും ഫോർമുലകൾ ഉപയോഗിച്ച് പകർത്തും.

സമാന വായനകൾ:

• VBA റേഞ്ച് ഓഫ്‌സെറ്റ് എങ്ങനെ ഉപയോഗിക്കാം (11 വഴികൾ)
• എക്‌സലിൽ റേഞ്ചിലുള്ള ഓരോ സെല്ലിനും VBA (3 രീതികൾ)
• എക്‌സലിൽ VBA യുടെ റേഞ്ച് ഒബ്‌ജക്റ്റ് എങ്ങനെ ഉപയോഗിക്കാം (5 പ്രോപ്പർട്ടികൾ)

ഒരു ശ്രേണി മറ്റൊരു ഷീറ്റിലേക്ക് പകർത്തുമ്പോൾ നിങ്ങൾക്ക് AutoFit രീതിയും ഉപയോഗിക്കാം പുതിയ ഷീറ്റിലെ പകർത്തിയ ശ്രേണി VBA -ലേക്ക് AutoFit .

ഇവിടെ, ഞാൻ ഡാറ്റാസെറ്റിൽ നിന്ന് ഒരു ശ്രേണി പകർത്തും ഷീറ്റ് ടു ഓട്ടോഫിറ്റ് ഷീറ്റ്

നമുക്ക് നടപടിക്രമം ആരംഭിക്കാം,

ആദ്യം, ഡെവലപ്പർ ടാബ് >> വിഷ്വൽ ബേസിക് തിരഞ്ഞെടുക്കുക

നിങ്ങൾക്ക് VBA എഡിറ്റർ തുറക്കാൻ ALT + F11 കീബോർഡും ഉപയോഗിക്കാം. <1

അടുത്തതായി, അത് ആപ്ലിക്കേഷനുകൾക്കായുള്ള മൈക്രോസോഫ്റ്റ് വിഷ്വൽ ബേസിക്കിന്റെ ഒരു വിൻഡോ തുറക്കും.

തുടർന്ന്, ഇൻസേർട്ട് > തുറക്കുക. ;> Module തിരഞ്ഞെടുക്കുക.

A Module തുറക്കും തുടർന്ന് തുറന്നതിൽ ഇനിപ്പറയുന്ന കോഡ് ടൈപ്പ് ചെയ്യുക മൊഡ്യൂൾ .

4685

ഇവിടെ, ഞാൻ ഉപ നടപടിക്രമം Copy_Range_withFormat_AutoFit

പ്രഖ്യാപിച്ചു ആദ്യം, ഞാൻ വർക്ക്ഷീറ്റ് ഡാറ്റാസെറ്റ് തിരഞ്ഞെടുത്തു. തുടർന്ന് നിലവിലുള്ള ഷീറ്റിൽ നിന്ന് AutoFit എന്ന പേരിലുള്ള ലക്ഷ്യസ്ഥാന ഷീറ്റിലേക്ക് പകർത്താൻ B1:E10 എന്ന ശ്രേണി എടുത്തു.

ഇവിടെ, ഞാൻ പകർപ്പ് ഉപയോഗിച്ചു. തിരഞ്ഞെടുത്ത ശ്രേണി പകർത്തുന്നതിനുള്ള രീതിയും AutoFit രീതിയും തന്നിരിക്കുന്ന നിരകൾ B:E ഓട്ടോഫിറ്റ് ചെയ്യും.

അവസാനം, കോഡ് സംരക്ഷിച്ച് പോകുക വർക്ക്ഷീറ്റിലേക്ക് മടങ്ങുക.

അടുത്തതായി, കാണുക ടാബ് >> മാക്രോകളിൽ നിന്ന് >> മാക്രോകൾ കാണുക

➤ ഒരു ഡയലോഗ് ബോക്‌സ് പോപ്പ് അപ്പ് ചെയ്യും.

ഇപ്പോൾ, മാക്രോ നാമത്തിൽ നിന്ന് Copy_Range_withFormat_AutoFit Macros in എന്നതിനുള്ളിലെ വർക്ക്ബുക്കും തിരഞ്ഞെടുക്കുക.

അവസാനം, റൺ ചെയ്യുക. തിരഞ്ഞെടുത്ത മാക്രോ .

അതിനാൽ, അത് തിരഞ്ഞെടുത്ത ശ്രേണിയെ ഒരു പുതിയ ഷീറ്റിലേക്കും AutoFit കോളങ്ങളും പകർത്തും.

6. VBA മറ്റൊരു വർക്ക്ബുക്കിലേക്ക് ഒരു ശ്രേണി പകർത്തുക

നിങ്ങൾക്ക് വേണമെങ്കിൽ ഒരു ഷീറ്റിൽ നിന്ന് മറ്റൊരു ഷീറ്റിലേക്ക് ഒരു ശ്രേണി പകർത്തുക മറ്റൊരു വർക്ക്‌ബുക്കിന്റെ.

ഇവിടെ, ഡാറ്റാസെറ്റ് ഷീറ്റിൽ നിന്ന് ഷീറ്റ്1 ന്റെ ബുക്ക്1 വരെയുള്ള ഒരു ശ്രേണി ഞാൻ പകർത്തും വർക്ക്ബുക്ക്.

നമുക്ക് നടപടിക്രമം ആരംഭിക്കാം,

ആദ്യം, ഡെവലപ്പർ ടാബ് >> വിഷ്വൽ ബേസിക് തിരഞ്ഞെടുക്കുക (y നിങ്ങൾക്ക് ALT + F11 കീബോർഡും ഉപയോഗിക്കാം)

പിന്നെ, അത് മൈക്രോസോഫ്റ്റ് വിഷ്വൽ തുറക്കുംആപ്ലിക്കേഷനുകൾക്കുള്ള അടിസ്ഥാനം.

അടുത്തത്, തുറക്കുക ഇൻസേർട്ട് >> Module തിരഞ്ഞെടുക്കുക.

A Module തുറക്കും തുടർന്ന് തുറന്ന Module എന്നതിൽ ഇനിപ്പറയുന്ന കോഡ് ടൈപ്പ് ചെയ്യുക.

7929

ഇവിടെ, ഞാൻ ഉപ നടപടിക്രമം പ്രഖ്യാപിച്ചു Copy_Range_WithFormat_Toanother_WorkBook

ഞാൻ റേഞ്ച് എടുത്തു B3:E10 ഷീറ്റ് നാമത്തിൽ നിന്ന് ഡാറ്റാസെറ്റ് നിലവിലുള്ള ഷീറ്റിൽ നിന്ന് പുതിയ വർക്ക്ബുക്ക് നാമം ബുക്ക്1 , ഷീറ്റിന്റെ പേര് ഷീറ്റ്1 എന്നിവയിലേക്ക് പകർത്താൻ.

അവസാനം, കോഡ് സംരക്ഷിച്ച് വർക്ക്ഷീറ്റിലേക്ക് മടങ്ങുക.

അടുത്തതായി, കാണുക ടാബ് >> മാക്രോകളിൽ നിന്ന് >> മാക്രോകൾ കാണുക

➤ ഒരു ഡയലോഗ് ബോക്സ് പോപ്പ് അപ്പ് ചെയ്യും.

ഇപ്പോൾ, മാക്രോ നാമത്തിൽ നിന്ന് Copy_Range_WithFormat_Toanother_WorkBook തിരഞ്ഞെടുക്കുക Macros in എന്നതിനുള്ളിലെ വർക്ക്ബുക്കും തിരഞ്ഞെടുക്കുക.

അവസാനം, Run തിരഞ്ഞെടുത്ത മാക്രോ .

ഇപ്പോൾ, ഡാറ്റാസെറ്റ് ഷീറ്റിൽ നിന്ന് മറ്റൊരു വർക്ക്ബുക്കിലേക്ക് പകർത്തും തിരഞ്ഞെടുത്ത ശ്രേണി.

7. മറ്റൊരു ഷീറ്റിന്റെ അവസാന വരിയിലേക്ക് ഒരു ശ്രേണി പകർത്തുക

എന്തായാലും, നിങ്ങൾക്ക് ഒരു ശ്രേണി പകർത്തണമെങ്കിൽ മറ്റൊരു ഷീറ്റിലേക്ക് ഒരു പ്രത്യേക സെല്ലിൽ നിന്നോ അവസാന സെല്ലിൽ നിന്നോ നിങ്ങൾക്ക് VBA ഉപയോഗിച്ച് ഇത് ചെയ്യാൻ കഴിയും.

നടപടിക്രമത്തിലേക്ക് കടക്കുന്നതിന് മുമ്പ്, ഞാൻ നിങ്ങളോട് പറയാൻ ആഗ്രഹിക്കുന്നു, <അടങ്ങുന്ന രണ്ട് പുതിയ ഷീറ്റുകൾ ഞാൻ എടുത്തിട്ടുണ്ട് 2> പൂർണ്ണമായ പേര്, ഇമെയിൽ, കൂടാതെ വിലാസം .

ആദ്യം ഡാറ്റാസെറ്റ്2 ഷീറ്റ് നിരീക്ഷിക്കാം.

ഇതാ അവസാന സെൽ ഷീറ്റ് 2>ഡാറ്റാസെറ്റ്2 ഷീറ്റ് മുതൽ അവസാന സെല്ലിന് താഴെ എന്നാൽ ആദ്യത്തെ ശൂന്യമല്ലാത്ത സെല്ലിൽ നിന്ന്.

ആരംഭിക്കാൻ, ഡെവലപ്പർ ടാബ് >> വിഷ്വൽ ബേസിക് തിരഞ്ഞെടുക്കുക

അടുത്തത്, അത് ആപ്ലിക്കേഷനുകൾക്കായുള്ള മൈക്രോസോഫ്റ്റ് വിഷ്വൽ ബേസിക് തുറക്കും.

തുടർന്ന്, തുറക്കുക. തിരുകുക >> Module തിരഞ്ഞെടുക്കുക.

A Module തുറക്കും തുടർന്ന് തുറന്ന Module എന്നതിൽ ഇനിപ്പറയുന്ന കോഡ് ടൈപ്പ് ചെയ്യുക.

3467

ഇവിടെ, ഞാൻ ഉപ നടപടിക്രമം പ്രഖ്യാപിച്ചു Copy_Range_BelowLastCell_AnotherSheets

ആദ്യം, ഞാൻ ഷീറ്റ് തിരഞ്ഞെടുത്തു ഡാറ്റാസെറ്റ്2 തുടർന്ന് അവസാന വരി എണ്ണാൻ വരി രീതി ഉപയോഗിക്കുകയും എണ്ണിയ വരി lr -ൽ സൂക്ഷിക്കുകയും ചെയ്തു.

അതിനുശേഷം എടുത്തു. ശ്രേണി A2:C & lr നിലവിലുള്ള ഷീറ്റിൽ നിന്ന് ഡെസ്റ്റിനേഷൻ ഷീറ്റിന്റെ പേരിലേക്ക് പകർത്താൻ അവസാന സെല്ലിന് താഴെ .

വീണ്ടും, അവസാനം കണക്കാക്കാൻ വരി രീതി ഉപയോഗിച്ചു അവസാന സെല്ലിന് താഴെ എന്ന് പേരുള്ള മറ്റൊരു ഷീറ്റിന്റെ വരി lrAnotherSheet എന്നതിൽ എണ്ണപ്പെട്ട വരി നിലനിർത്തി.

ഇവിടെ, ഞാൻ പകർപ്പ് രീതി ഉപയോഗിച്ചു തിരഞ്ഞെടുത്ത ശ്രേണി പകർത്താൻ AutoFit രീതി തന്നിരിക്കുന്ന നിരകൾ A:C ഓട്ടോഫിറ്റ് ചെയ്യും.

അവസാനം, കോഡ് സംരക്ഷിച്ച് തിരികെ പോകുക വർക്ക്ഷീറ്റിലേക്ക്.

അടുത്തതായി, കാണുക ടാബ് >> മാക്രോകളിൽ നിന്ന്