ట్యుటోరియల్ Excelలో షీట్‌లను నకిలీ చేయడానికి మాక్రోల సేకరణను అందిస్తుంది: సెల్ విలువ ఆధారంగా కాపీ చేసి పేరు మార్చండి, బహుళ షీట్‌లను కాపీ చేయండి, యాక్టివ్ వర్క్‌షీట్‌ను తెరవకుండానే మరొక ఫైల్‌కి కాపీ చేయండి మరియు మరిన్ని చేయండి.

Excelలో షీట్‌లను మాన్యువల్‌గా కాపీ చేయడం చాలా త్వరగా మరియు సూటిగా ఉంటుంది... కేవలం ఒకటి లేదా రెండుసార్లు నిర్వహిస్తే. బహుళ షీట్లను అనేక సార్లు నకిలీ చేయడం బోరింగ్ మరియు సమయం తీసుకుంటుంది. ఈ పేజీలో, మీరు ఈ పనిని ఆటోమేట్ చేయడానికి కొన్ని ఉపయోగకరమైన మాక్రోలను కనుగొంటారు.

Excel VBA షీట్‌ని కొత్త వర్క్‌బుక్‌కి కాపీ చేయడానికి

ఈ సరళమైన వన్-లైన్ మాక్రో చేస్తుంది. సరిగ్గా దాని పేరు సూచించినట్లుగా - సక్రియ షీట్‌ని కొత్త వర్క్‌బుక్‌కి కాపీ చేస్తుంది.

పబ్లిక్ సబ్ కాపీషీట్‌టు న్యూవర్క్‌బుక్() యాక్టివ్‌షీట్. ఎండ్ సబ్‌ని కాపీ చేయండి

VBAతో Excelలో బహుళ షీట్‌లను కాపీ చేయండి

మీరు చేయాలనుకుంటే సక్రియ వర్క్‌బుక్ నుండి కొత్తదానికి అనేక షీట్‌లను కాపీ చేయండి, ఆసక్తి ఉన్న అన్ని వర్క్‌షీట్‌లను ఎంచుకుని, ఈ మాక్రోను అమలు చేయండి:

పబ్లిక్ సబ్ కాపీసెలెక్టెడ్‌షీట్‌లు() ActiveWindow.SelectedSheets.Copy End Sub

Excel VBA షీట్‌ను మరొక వర్క్‌బుక్‌కి కాపీ చేయడానికి

మీరు కాపీ చేసిన షీట్‌ను ఎక్కడ చొప్పించాలనుకుంటున్నారో బట్టి, కింది మాక్రోలలో ఒకదాన్ని ఉపయోగించండి.

షీట్‌ను మరొక వర్క్‌బుక్ ప్రారంభానికి కాపీ చేయండి

ఈ మాక్రో ముందు క్రియాశీల షీట్‌ను కాపీ చేస్తుంది. డెస్టినేషన్ ఫైల్‌లోని అన్ని ఇతర వర్క్‌షీట్‌లు, ఈ ఉదాహరణలో బుక్1 . మరొక ఫైల్‌కి కాపీ చేయడానికి, "Book1.xlsx"ని మీ లక్ష్య వర్క్‌బుక్ పూర్తి పేరుతో భర్తీ చేయండి.

పబ్లిక్ సబ్CopySheetToBeginningAnotherWorkbook() activeSheet. ముందుగా కాపీ చేయండి:=వర్క్‌బుక్‌లు( "Book1.xlsx" ).షీట్‌లు(1) ముగింపు ఉప

షీట్‌ని మరొక వర్క్‌బుక్ చివరకి కాపీ చేయండి

ఈ కోడ్ ముక్క సక్రియ వర్క్‌షీట్‌ను నకిలీ చేస్తుంది మరియు కాపీని బుక్1 చివర ఉంచుతుంది. మళ్ళీ, దయచేసి "Book1.xlsx"ని మీ గమ్యస్థాన వర్క్‌బుక్ పేరుతో భర్తీ చేయాలని గుర్తుంచుకోండి.

పబ్లిక్ సబ్ CopySheetToEndAnotherWorkbook() activeSheet.Copy After:=Workbooks( "Book1.xlsx" ).Sheets(Workbooks( "Book1.xlsxlsxlsxlsxlsxlsxlsxlsxlsx) " ).వర్క్‌షీట్‌లు.లెక్కింపు) ఉప

గమనిక. మాక్రోలు పని చేయాలంటే, టార్గెట్ వర్క్‌బుక్ తప్పనిసరిగా మీ హార్డ్ డ్రైవ్ లేదా నెట్‌వర్క్‌లో సేవ్ చేయబడాలి.

షీట్‌ని ఎంచుకున్న వర్క్‌బుక్‌కి కాపీ చేయండి

ప్రస్తుత షీట్‌ను ఏదైనా ఓపెన్ వర్క్‌బుక్‌కి కాపీ చేయడానికి, మీరు ListBox నియంత్రణతో ( ListBox1 పేరుతో) మరియు రెండు బటన్‌లతో ( UserForm1 పేరుతో) వినియోగదారు ఫారమ్‌ను సృష్టించవచ్చు:

తర్వాత, ఫారమ్‌పై డబుల్-క్లిక్ చేసి, కోడ్ విండోలో దిగువ కోడ్‌ను అతికించండి:

పబ్లిక్ సెలెక్టెడ్ వర్క్‌బుక్ స్ట్రింగ్ ప్రైవేట్ సబ్ యూజర్‌ఫారమ్_ఇనిషియలైజ్() సెలెక్టెడ్ వర్క్‌బుక్ = "" జాబితాబాక్స్1. అప్లికేషన్‌లోని ప్రతి wbk కోసం క్లియర్ చేయండి.వర్క్‌బుక్స్ ListBox1.Add (wbk.Name) తదుపరి ముగింపు సబ్ ప్రైవేట్ సబ్ కమాండ్‌బటన్1_క్లిక్() ఒకవేళ ListBox1.ListIndex > -1 తర్వాత SelectedWorkbook = ListBox1.List(ListBox1.ListIndex) ముగుస్తుంది. కాపీ చేయడానికి మాక్రోలుమీరు ఎంచుకున్న వర్క్‌బుక్‌కి యాక్టివ్ షీట్.

షీట్‌ను ఎంచుకున్న వర్క్‌బుక్ ప్రారంభానికి కాపీ చేయండి :

పబ్లిక్ సబ్ కాపీషీట్ToBeginningAnotherWorkbook() UserForm1 UserForm1ని లోడ్ చేయండి. ఉంటే చూపు (UserForm1.SelectedWork " " ) తర్వాత యాక్టివ్‌షీట్. ముందుగా కాపీ చేయండి:=వర్క్‌బుక్‌లు(యూజర్‌ఫారమ్1.సెలెక్టెడ్ వర్క్‌బుక్).షీట్‌లు(1) అన్‌లోడ్ చేస్తే ఎండ్ యూజర్‌ఫారమ్1 ఎండ్ సబ్

షీట్‌ని ఎంచుకున్న వర్క్‌బుక్ చివరకి :

కాపీ చేయండి CopySheetToEndAnotherWorkbook() UserForm1 UserForm1ని లోడ్ చేయండి. (UserForm1.SelectedWorkbook "" ) ఉంటే చూపండి. ఆ తర్వాత యాక్టివ్ షీట్ ఎండ్ సబ్

Excelలో అమలు చేసినప్పుడు, మాక్రో మీకు ప్రస్తుతం తెరిచిన అన్ని వర్క్‌బుక్‌ల జాబితాను చూపుతుంది. మీరు అవసరమైనదాన్ని ఎంచుకుని, సరి క్లిక్ చేయండి:

షీట్‌ను కాపీ చేయడానికి మరియు పేరు మార్చడానికి Excel మాక్రో

మీరు Excelలో షీట్‌ను కాపీ చేసినప్పుడు, ప్రతిరూపం ఇవ్వబడుతుంది Sheet1 (2) వంటి డిఫాల్ట్ ఫార్మాట్‌లో పేరు. కింది మాక్రోలు డిఫాల్ట్ పేరును మాన్యువల్‌గా మార్చడంలో మీకు ఇబ్బందిని కలిగిస్తాయి.

ఈ కోడ్ సక్రియ వర్క్‌షీట్‌ను నకిలీ చేస్తుంది, కాపీకి "టెస్ట్ షీట్" అని పేరు పెట్టింది (మీకు నచ్చిన ఇతర పేరుతో దాన్ని భర్తీ చేయవచ్చు) , మరియు కాపీ చేసిన షీట్‌ను ప్రస్తుత వర్క్‌బుక్ చివరిలో ఉంచుతుంది.

పబ్లిక్ సబ్ CopySheetAndRenamePredefined() activeSheet.Copy After:=Worksheets(Sheets.Count)లో ఎర్రర్ రెస్యూమ్ తదుపరి activeSheet.Name ="టెస్ట్ షీట్" ముగింపు సబ్

కాపీ చేసిన షీట్‌కి పేరును పేర్కొనడానికి , ఈ కోడ్‌ని ఉపయోగించండి:

పబ్లిక్ సబ్ కాపీషీట్‌అండ్‌రీనేమ్() కొత్త పేరును స్ట్రింగ్‌గా తగ్గించండి InputBox( "కాపీ చేయబడిన వర్క్‌షీట్ కోసం పేరును నమోదు చేయండి" ) కొత్త పేరు "" అయితే యాక్టివ్‌షీట్. తర్వాత కాపీ చేయండి:=వర్క్‌షీట్‌లు(Sheets.Count) లోపాన్ని పునఃప్రారంభించండి తదుపరి activeSheet.Name = newName End ముగింపు ఉప

రన్ అయిన తర్వాత, మాక్రో కింది ఇన్‌పుట్ బాక్స్‌ను ప్రదర్శిస్తుంది, దీనిలో మీరు కోరుకున్న పేరును టైప్ చేసి సరే నొక్కండి:

Excel macro షీట్‌ను కాపీ చేయడానికి మరియు సెల్ విలువ ఆధారంగా పేరు మార్చడానికి

లో కొన్ని సందర్భాల్లో, నిర్దిష్ట సెల్ విలువతో కాపీని పేరు పెట్టడం మరింత సౌకర్యవంతంగా ఉండవచ్చు, ఉదాహరణకు, నిలువు వరుస శీర్షిక. దీని కోసం, మీరు పైన ఉన్న కోడ్‌ని తీసుకుని, ప్రస్తుతం ఎంచుకున్న సెల్ విలువను ఇన్‌పుట్ బాక్స్‌కు స్వయంచాలకంగా సరఫరా చేయండి. మునుపటి ఉదాహరణ వలె, సక్రియ వర్క్‌బుక్ చివరిలో కాపీ ఉంచబడుతుంది.

అత్యంత గమ్మత్తైన భాగం ఏమిటంటే, మీ వినియోగదారులు ఎల్లప్పుడూ అమలు చేయడానికి ముందు సరైన సెల్‌ను ఎంచుకోవాలి. మాక్రో :)

పబ్లిక్ సబ్ CopySheetAndRenameByCell() కొత్తపేరును స్ట్రింగ్‌గా మసకబారండి. తర్వాత కాపీ చేయండి:=వర్క్‌షీట్‌లు(Sheets.Count)లో ఎర్రర్ రెస్యూమ్ తదుపరి activeSheet.Name = newName End ఉంటే ముగింపు ఉప

ప్రత్యామ్నాయంగా, మీరు దీని చిరునామాను హార్డ్‌కోడ్ చేయవచ్చుసెల్ కాపీకి పేరు పెట్టాలి, దిగువ కోడ్‌లోని సెల్ A1. మరొక సెల్ ఆధారంగా కాపీ చేయబడిన వర్క్‌షీట్‌కు పేరు పెట్టడానికి, A1ని తగిన సెల్ రిఫరెన్స్‌తో భర్తీ చేయండి.

పబ్లిక్ సబ్ CopySheetAndRenameByCell2() వర్క్‌షీట్‌గా మసకబారిన వారాలు wks = యాక్టివ్‌షీట్ యాక్టివ్‌షీట్ సెట్ చేయండి. తర్వాత కాపీ చేయండి:=వర్క్‌షీట్‌లు(షీట్‌లు.కౌంట్) వారాలు. రేంజ్ అయితే. ( "A1" ).విలువ "" ఆ తర్వాత ఎర్రర్‌ను పునఃప్రారంభించండి Next activeSheet.Name = wks.Range( "A1" ).విలువ ముగింపు wks అయితే. ఎండ్ సబ్‌ని సక్రియం చేయండి

వర్క్‌షీట్‌ను క్లోజ్డ్ వర్క్‌బుక్‌కి కాపీ చేయడానికి మాక్రో

ఈ మాక్రో యాక్టివ్ షీట్‌ను క్లోజ్డ్ వర్క్‌బుక్ చివరకి కాపీ చేస్తుంది. మరొక వర్క్‌బుక్ పేరు కోడ్‌లో పేర్కొనబడలేదు - మాక్రో ప్రామాణిక Windows Explorer విండోను తెరుస్తుంది మరియు ఏదైనా గమ్యం ఫైల్‌ని ఎంచుకోవడానికి మిమ్మల్ని అనుమతిస్తుంది:

మీరు ఫైల్‌ని ఎంచుకున్న తర్వాత మరియు ఓపెన్ క్లిక్ చేయండి, మాక్రో సక్రియ షీట్‌ను కాపీ చేస్తుంది మరియు లక్ష్య వర్క్‌బుక్‌ని స్వయంచాలకంగా మూసివేస్తుంది.

పబ్లిక్ సబ్ కాపీషీట్‌టోక్లోస్డ్‌వర్క్‌బుక్() మసకబారిన ఫైల్‌నేమ్ డిమ్ క్లోజ్డ్‌బుక్‌ని వర్క్‌బుక్ వలె మసకబారిన కరెంట్‌షీట్ వర్క్‌షీట్ ఫైల్‌నేమ్ = అప్లికేషన్.గెట్‌ఓపెన్ ఫైల్‌నేమ్( "ఎక్సెల్ ఫైల్‌లు (*.xlsx), *.xlsx" ) ఫైల్ పేరు తప్పు అయితే అప్లికేషన్.స్క్రీన్‌అప్‌డేటింగ్ = ఫాల్స్ సెట్ కరెంట్‌షీట్ = Application.activeSheet సెట్ క్లోజ్డ్‌బుక్ = వర్క్‌బుక్‌లు. (fileName) కరెంట్‌షీట్‌ని తెరవండి. తర్వాత కాపీ చేయండి:=closedBook.Sheets(closedBook.Worksheets.Count) closeBook. Close ( True ) Application.ScreenUpdating = ట్రూ ఎండ్ అయితే ఎండ్ సబ్

Excel VBA లేకుండా మరొక వర్క్‌బుక్ నుండి షీట్‌ని కాపీ చేయడానికిopening

ఈ మాక్రో మీరు వర్క్‌షీట్‌ను తెరవకుండానే మరొక 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 = ట్రూ ఎండ్ సబ్

Excel VBA షీట్‌ను అనేక సార్లు నకిలీ చేయడానికి

కొన్నిసార్లు, మీరు ఒకే షీట్‌ను ఒకటి కంటే ఎక్కువసార్లు నకిలీ చేయాల్సి రావచ్చు, ఉదాహరణకు ఒకే డేటా సెట్‌లో విభిన్న సూత్రాలను పరీక్షించడం కోసం. కింది స్థూలంతో దీన్ని సులభంగా చేయవచ్చు.

పబ్లిక్ సబ్ డూప్లికేట్‌షీట్‌మల్టిపుల్‌టైమ్స్() పూర్ణాంకం వలె మసకబారిన రెజ్యూమ్ తదుపరి n = ఇన్‌పుట్‌బాక్స్( "మీరు సక్రియ షీట్‌కి ఎన్ని కాపీలు చేయాలనుకుంటున్నారు?" ) n > = 1 తర్వాత సంఖ్యల కోసం = 1 నుండి n యాక్టివ్‌షీట్ వరకు కాపీ చేయండిమీరు తయారు చేయాలనుకుంటున్నారు మరియు సరే:

VBAతో Excelలో షీట్లను నకిలీ చేయడం ఎలా

Excelలో షీట్‌ను కాపీ చేయడానికి పై మాక్రోలలో ఒకదానితో, మీరు మీ స్వంత పుస్తకంలో VBA కోడ్‌ని చొప్పించవచ్చు లేదా మా నమూనా వర్క్‌బుక్ నుండి మాక్రోను రన్ చేయవచ్చు.

మీ వర్క్‌బుక్‌కి మాక్రోను ఎలా జోడించాలి

చొప్పించడానికి మీ వర్క్‌బుక్‌లో కోడ్, ఈ దశలను అమలు చేయండి:

1. మీరు కాపీ చేయాలనుకుంటున్న వర్క్‌షీట్‌ను తెరవండి.
2. విజువల్ బేసిక్ ఎడిటర్‌ను తెరవడానికి Alt + F11 నొక్కండి.
3. ఆన్ ఎడమ పేన్‌పై, ఈ వర్క్‌బుక్ కుడి-క్లిక్ చేసి, ఆపై చొప్పించు > మాడ్యూల్ క్లిక్ చేయండి.
4. కోడ్ విండోలో కోడ్‌ను అతికించండి.
5. మాక్రోను అమలు చేయడానికి F5ని నొక్కండి.

వివరణాత్మక దశల వారీ సూచనల కోసం, దయచేసి Excelలో VBA కోడ్‌ను ఎలా చొప్పించాలో చూడండి.

ఎలా అమలు చేయాలి మా నమూనా వర్క్‌బుక్ నుండి ఒక మాక్రో

ప్రత్యామ్నాయంగా, మీరు మా నమూనా వర్క్‌బుక్‌ని నకిలీ Excel షీట్‌లకు డౌన్‌లోడ్ చేసుకోవచ్చు మరియు అక్కడ నుండి కోడ్‌ను అమలు చేయవచ్చు.

నమూనా వర్క్‌బుక్ క్రింది మాక్రోలను కలిగి ఉంది:

CopySheetToNewWorkbook - cuని కాపీ చేస్తుంది వర్క్‌షీట్‌ను కొత్త వర్క్‌బుక్‌కి రెంట్ చేయండి.

CopySelectedSheets - మీరు కొత్త వర్క్‌బుక్‌కి ఎంచుకున్న బహుళ షీట్‌లను కాపీ చేస్తుంది.

CopySheetToBeginningAnotherWorkbook - సక్రియ షీట్‌ను కాపీ చేస్తుంది. వేరొక వర్క్‌బుక్ ప్రారంభానికి షీట్,వినియోగదారు పేర్కొన్న విధంగా పేరు మార్చారు మరియు ప్రస్తుత వర్క్‌బుక్‌లో అన్ని ఇతర షీట్‌ల తర్వాత కాపీని ఉంచుతుంది.

CopySheetAndRenamePredefined - సక్రియ షీట్‌ను నకిలీ చేస్తుంది, కాపీకి హార్డ్‌కోడ్ పేరును ఇస్తుంది మరియు దానిని ఉంచుతుంది ప్రస్తుత వర్క్‌బుక్ చివరిలో.

CopySheetAndRenameByCell - సక్రియ షీట్ యొక్క కాపీని చేస్తుంది మరియు ఎంచుకున్న సెల్ విలువ ఆధారంగా దాని పేరు మార్చబడుతుంది.

CopySheetAndRenameByCell2 - యాక్టివ్ షీట్‌ని కాపీ చేస్తుంది మరియు హార్డ్‌కోడ్ చేసిన సెల్ అడ్రస్ ఆధారంగా దాని పేరు మారుస్తుంది.

CopySheetToClosedWorkbook - షీట్‌ను క్లోజ్డ్ వర్క్‌బుక్‌కి కాపీ చేయడానికి మిమ్మల్ని అనుమతిస్తుంది.

CopySheetFromClosedWorkbook - మరొక Excel ఫైల్ నుండి షీట్‌ను తెరవకుండానే కాపీ చేయడానికి మిమ్మల్ని అనుమతిస్తుంది.

DuplicateSheetMultipleTimes - మీరు Excelలో షీట్‌ను అనేకసార్లు నకిలీ చేయడానికి అనుమతిస్తుంది.

కు. మీ Excelలో మాక్రోను అమలు చేయండి, కింది వాటిని చేయండి:

1. డౌన్‌లోడ్ చేసిన వర్క్‌బుక్‌ని తెరిచి, ప్రాంప్ట్ చేయబడితే కంటెంట్‌ను ప్రారంభించండి.
2. మీ స్వంత వర్క్‌బుక్‌ని తెరిచి, మీరు కోరుకునే షీట్‌కి నావిగేట్ చేయండి. కాపీ.
<1 7>మీ వర్క్‌షీట్‌లో, Alt + F8 నొక్కండి, ఆసక్తి ఉన్న స్థూలాన్ని ఎంచుకుని, రన్ ని క్లిక్ చేయండి.

ఆ విధంగా మీరు నకిలీ చేయవచ్చు VBAతో Excelలో ఒక షీట్. నేను చదివినందుకు ధన్యవాదాలు మరియు వచ్చే వారం మిమ్మల్ని మా బ్లాగ్‌లో చూడాలని ఆశిస్తున్నాను!