ਟਿਊਟੋਰਿਅਲ ਐਕਸਲ ਵਿੱਚ ਡੁਪਲੀਕੇਟ ਸ਼ੀਟਾਂ ਲਈ ਮੈਕਰੋ ਦਾ ਸੰਗ੍ਰਹਿ ਪ੍ਰਦਾਨ ਕਰਦਾ ਹੈ: ਸੈੱਲ ਮੁੱਲ ਦੇ ਆਧਾਰ 'ਤੇ ਕਾਪੀ ਅਤੇ ਨਾਮ ਬਦਲੋ, ਕਈ ਸ਼ੀਟਾਂ ਦੀ ਨਕਲ ਕਰੋ, ਇੱਕ ਕਿਰਿਆਸ਼ੀਲ ਵਰਕਸ਼ੀਟ ਨੂੰ ਖੋਲ੍ਹੇ ਬਿਨਾਂ ਕਿਸੇ ਹੋਰ ਫਾਈਲ ਵਿੱਚ ਕਾਪੀ ਕਰੋ, ਅਤੇ ਹੋਰ ਬਹੁਤ ਕੁਝ।

ਐਕਸਲ ਵਿੱਚ ਸ਼ੀਟਾਂ ਨੂੰ ਹੱਥੀਂ ਨਕਲ ਕਰਨਾ ਬਹੁਤ ਤੇਜ਼ ਅਤੇ ਸਿੱਧਾ ਹੈ... ਜੇਕਰ ਸਿਰਫ਼ ਇੱਕ ਜਾਂ ਦੋ ਵਾਰ ਕੀਤਾ ਜਾਂਦਾ ਹੈ। ਕਈ ਸ਼ੀਟਾਂ ਨੂੰ ਕਈ ਵਾਰ ਡੁਪਲੀਕੇਟ ਕਰਨਾ ਬੋਰਿੰਗ ਅਤੇ ਸਮਾਂ ਬਰਬਾਦ ਕਰਨ ਵਾਲਾ ਹੈ। ਇਸ ਪੰਨੇ 'ਤੇ, ਤੁਹਾਨੂੰ ਇਸ ਕੰਮ ਨੂੰ ਸਵੈਚਲਿਤ ਕਰਨ ਲਈ ਕੁਝ ਲਾਭਦਾਇਕ ਮੈਕਰੋ ਮਿਲਣਗੇ।

ਨਵੀਂ ਵਰਕਬੁੱਕ ਵਿੱਚ ਸ਼ੀਟ ਦੀ ਨਕਲ ਕਰਨ ਲਈ ਐਕਸਲ VBA

ਇਹ ਸਭ ਤੋਂ ਸਰਲ ਇਕ-ਲਾਈਨ ਮੈਕਰੋ ਕਰਦਾ ਹੈ ਬਿਲਕੁਲ ਉਹੀ ਹੈ ਜੋ ਇਸਦਾ ਨਾਮ ਸੁਝਾਉਂਦਾ ਹੈ - ਇੱਕ ਨਵੀਂ ਵਰਕਬੁੱਕ ਵਿੱਚ ਸਰਗਰਮ ਸ਼ੀਟ ਦੀ ਨਕਲ ਕਰਦਾ ਹੈ।

ਪਬਲਿਕ ਸਬ ਕਾਪੀਸ਼ੀਟਟੋਨਿਊਵਰਕਬੁੱਕ() ਐਕਟਿਵਸ਼ੀਟ। ਅੰਤ ਸਬ ਕਾਪੀ ਕਰੋ

VBA ਨਾਲ ਐਕਸਲ ਵਿੱਚ ਮਲਟੀਪਲ ਸ਼ੀਟਾਂ ਦੀ ਨਕਲ ਕਰੋ

ਜੇਕਰ ਤੁਸੀਂ ਚਾਹੁੰਦੇ ਹੋ ਐਕਟਿਵ ਵਰਕਬੁੱਕ ਤੋਂ ਕਈ ਸ਼ੀਟਾਂ ਨੂੰ ਇੱਕ ਨਵੀਂ ਵਿੱਚ ਕਾਪੀ ਕਰੋ, ਦਿਲਚਸਪੀ ਵਾਲੀਆਂ ਸਾਰੀਆਂ ਵਰਕਸ਼ੀਟਾਂ ਦੀ ਚੋਣ ਕਰੋ ਅਤੇ ਇਸ ਮੈਕਰੋ ਨੂੰ ਚਲਾਓ:

ਪਬਲਿਕ ਸਬ ਕਾਪੀ-ਸਿਲੈਕਟਡ ਸ਼ੀਟਸ() ActiveWindow.SelectedSheets. Copy End Sub

Excel VBA ਨੂੰ ਕਿਸੇ ਹੋਰ ਵਰਕਬੁੱਕ ਵਿੱਚ ਕਾਪੀ ਕਰਨ ਲਈ

ਇਸ 'ਤੇ ਨਿਰਭਰ ਕਰਦਿਆਂ ਕਿ ਤੁਸੀਂ ਕਾਪੀ ਕੀਤੀ ਸ਼ੀਟ ਨੂੰ ਕਿੱਥੇ ਪਾਉਣਾ ਚਾਹੁੰਦੇ ਹੋ, ਹੇਠਾਂ ਦਿੱਤੇ ਮੈਕਰੋ ਵਿੱਚੋਂ ਇੱਕ ਦੀ ਵਰਤੋਂ ਕਰੋ।

ਸ਼ੀਟ ਨੂੰ ਕਿਸੇ ਹੋਰ ਵਰਕਬੁੱਕ ਦੀ ਸ਼ੁਰੂਆਤ ਵਿੱਚ ਕਾਪੀ ਕਰੋ

ਇਹ ਮੈਕਰੋ ਪਹਿਲਾਂ ਸਰਗਰਮ ਸ਼ੀਟ ਦੀ ਨਕਲ ਕਰਦਾ ਹੈ ਡੈਸਟੀਨੇਸ਼ਨ ਫਾਈਲ ਵਿੱਚ ਹੋਰ ਸਾਰੀਆਂ ਵਰਕਸ਼ੀਟਾਂ, Book1 ਇਸ ਉਦਾਹਰਨ ਵਿੱਚ। ਕਿਸੇ ਹੋਰ ਫਾਈਲ ਵਿੱਚ ਕਾਪੀ ਕਰਨ ਲਈ, "Book1.xlsx" ਨੂੰ ਆਪਣੀ ਟੀਚਾ ਵਰਕਬੁੱਕ ਦੇ ਪੂਰੇ ਨਾਮ ਨਾਲ ਬਦਲੋ।

ਜਨਤਕ ਉਪCopySheetToBeginningAnotherWorkbook() activeSheet.Copy Before:=Workbooks( "Book1.xlsx" ).ਸ਼ੀਟਾਂ(1) ਅੰਤ ਸਬ

ਸ਼ੀਟ ਨੂੰ ਕਿਸੇ ਹੋਰ ਵਰਕਬੁੱਕ ਦੇ ਅੰਤ ਵਿੱਚ ਕਾਪੀ ਕਰੋ

ਕੋਡ ਦਾ ਇਹ ਟੁਕੜਾ ਸਰਗਰਮ ਵਰਕਸ਼ੀਟ ਦੀ ਡੁਪਲੀਕੇਟ ਕਰਦਾ ਹੈ ਅਤੇ ਕਾਪੀ ਨੂੰ Book1 ਦੇ ਅੰਤ ਵਿੱਚ ਰੱਖਦਾ ਹੈ। ਦੁਬਾਰਾ, ਕਿਰਪਾ ਕਰਕੇ ਆਪਣੀ ਮੰਜ਼ਿਲ ਵਰਕਬੁੱਕ ਦੇ ਨਾਮ ਨਾਲ "Book1.xlsx" ਨੂੰ ਬਦਲਣਾ ਯਾਦ ਰੱਖੋ।

ਜਨਤਕ ਉਪ ਕਾਪੀਸ਼ੀਟToEndAnotherWorkbook()activeSheet.Copy After:=Workbooks( "Book1.xlsx" ).ਸ਼ੀਟਾਂ(ਵਰਕਬੁੱਕਸ( "Book1.xlsx") " .Worksheets.Count) ਅੰਤ ਸਬ

ਨੋਟ। ਮੈਕਰੋ ਦੇ ਕੰਮ ਕਰਨ ਲਈ, ਟਾਰਗੇਟ ਵਰਕਬੁੱਕ ਨੂੰ ਤੁਹਾਡੀ ਹਾਰਡ ਡਰਾਈਵ ਜਾਂ ਨੈੱਟਵਰਕ 'ਤੇ ਸੁਰੱਖਿਅਤ ਕੀਤਾ ਜਾਣਾ ਚਾਹੀਦਾ ਹੈ।

ਸ਼ੀਟ ਨੂੰ ਚੁਣੀ ਹੋਈ ਵਰਕਬੁੱਕ ਵਿੱਚ ਕਾਪੀ ਕਰੋ

ਮੌਜੂਦਾ ਸ਼ੀਟ ਨੂੰ ਕਿਸੇ ਵੀ ਖੁੱਲ੍ਹੀ ਵਰਕਬੁੱਕ ਵਿੱਚ ਕਾਪੀ ਕਰਨ ਦੇ ਯੋਗ ਹੋਣ ਲਈ, ਤੁਸੀਂ ਇੱਕ ListBox ਕੰਟਰੋਲ ( ਨਾਮ ListBox1 ) ਅਤੇ ਦੋ ਬਟਨਾਂ ਨਾਲ ਇੱਕ UserForm (ਨਾਮ ਦਾ UserForm1 ) ਬਣਾ ਸਕਦੇ ਹੋ:

ਅੱਗੇ, ਫਾਰਮ 'ਤੇ ਡਬਲ-ਕਲਿੱਕ ਕਰੋ ਅਤੇ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਪੇਸਟ ਕਰੋ:

ਪਬਲਿਕ ਸਿਲੈਕਟਡ ਵਰਕਬੁੱਕ ਐਜ਼ ਸਟ੍ਰਿੰਗ ਪ੍ਰਾਈਵੇਟ ਸਬ ਯੂਜ਼ਰਫਾਰਮ_ਇਨਿਸ਼ਿਅਲਾਈਜ਼() ਸਿਲੈਕਟਡ ਵਰਕਬੁੱਕ = "" ਸੂਚੀਬਾਕਸ 1. ਐਪਲੀਕੇਸ਼ਨ ਵਿੱਚ ਹਰੇਕ wbk ਲਈ ਸਾਫ਼ ਕਰੋ। ਵਰਕਬੁੱਕ ਸੂਚੀ ਬਾਕਸ1. (wbk.Name) ਅਗਲਾ ਅੰਤ ਸਬ ਪ੍ਰਾਈਵੇਟ ਸਬ CommandButton1_Click() ਜੇਕਰ ListBox1.ListIndex > -1 ਫਿਰ SelectedWorkbook = ListBox1.List(ListBox1.ListIndex) End If Me.Hide End Sub Private Sub CommandButton2_Click() SelectedWorkbook = "" Me.Hide End Sub

ਸਥਾਨ ਵਿੱਚ UserForm ਦੇ ਨਾਲ, ਤੁਸੀਂ ਇਹਨਾਂ ਵਿੱਚੋਂ ਇੱਕ ਦੀ ਵਰਤੋਂ ਕਰ ਸਕਦੇ ਹੋ। ਦੀ ਨਕਲ ਕਰਨ ਲਈ ਮੈਕਰੋਆਪਣੀ ਚੁਣੀ ਹੋਈ ਵਰਕਬੁੱਕ ਵਿੱਚ ਸਰਗਰਮ ਸ਼ੀਟ।

ਸ਼ੀਟ ਨੂੰ ਚੁਣੀ ਵਰਕਬੁੱਕ ਦੀ ਸ਼ੁਰੂਆਤ ਵਿੱਚ ਕਾਪੀ ਕਰੋ :

ਪਬਲਿਕ ਸਬ ਕਾਪੀਸ਼ੀਟ ਟੂ ਬੇਗਿਨਿੰਗ ਅਨੋਦਰ ਵਰਕਬੁੱਕ " ) ਫਿਰ activeSheet.Copy Before:=Workbooks(UserForm1.SelectedWorkbook).Sheets(1) End If Unload UserForm1 End Sub

ਸ਼ੀਟ ਨੂੰ ਚੁਣੀ ਹੋਈ ਵਰਕਬੁੱਕ ਦੇ ਅੰਤ ਵਿੱਚ ਕਾਪੀ ਕਰੋ :

ਪਬਲਿਕ ਸਬ CopySheetToEndAnotherWorkbook() UserForm1 UserForm1 ਲੋਡ ਕਰੋ। ਦਿਖਾਓ ਜੇਕਰ (UserForm1.SelectedWorkbook "" ) ਫਿਰ ਐਕਟਿਵਸ਼ੀਟ। ਇਸ ਤੋਂ ਬਾਅਦ ਕਾਪੀ ਕਰੋ:=ਵਰਕਬੁੱਕ( _ UserForm1.SelectedWorkbook).Sheets(UserForm1.SelectedWorkbook).Sheets(UserForm1.SelectedWorkbook).Sheets(UserForm1.SelectedWorkbook).Sheets(UserForm1.UserForm1)Sheets(UserForm1.UserForm1) Unlect_Book. ਐਂਡ ਸਬ

ਜਦੋਂ ਐਕਸਲ ਵਿੱਚ ਚਲਾਇਆ ਜਾਂਦਾ ਹੈ, ਤਾਂ ਮੈਕਰੋ ਤੁਹਾਨੂੰ ਵਰਤਮਾਨ ਵਿੱਚ ਖੁੱਲ੍ਹੀਆਂ ਸਾਰੀਆਂ ਵਰਕਬੁੱਕਾਂ ਦੀ ਸੂਚੀ ਦਿਖਾਏਗਾ। ਤੁਸੀਂ ਲੋੜੀਂਦੇ ਇੱਕ ਨੂੰ ਚੁਣੋ ਅਤੇ ਠੀਕ 'ਤੇ ਕਲਿੱਕ ਕਰੋ:

ਸ਼ੀਟ ਨੂੰ ਕਾਪੀ ਕਰਨ ਅਤੇ ਨਾਮ ਬਦਲਣ ਲਈ ਐਕਸਲ ਮੈਕਰੋ

ਜਦੋਂ ਤੁਸੀਂ ਐਕਸਲ ਵਿੱਚ ਇੱਕ ਸ਼ੀਟ ਦੀ ਨਕਲ ਕਰਦੇ ਹੋ, ਤਾਂ ਪ੍ਰਤੀਕ੍ਰਿਤੀ ਨੂੰ ਇੱਕ ਦਿੱਤਾ ਜਾਂਦਾ ਹੈ। ਡਿਫੌਲਟ ਫਾਰਮੈਟ ਵਿੱਚ ਨਾਮ ਜਿਵੇਂ ਕਿ ਸ਼ੀਟ1 (2) । ਹੇਠਾਂ ਦਿੱਤੇ ਮੈਕਰੋ ਤੁਹਾਨੂੰ ਡਿਫਾਲਟ ਨਾਮ ਨੂੰ ਹੱਥੀਂ ਬਦਲਣ ਦੀ ਸਮੱਸਿਆ ਤੋਂ ਬਚਾ ਸਕਦੇ ਹਨ।

ਇਹ ਕੋਡ ਕਿਰਿਆਸ਼ੀਲ ਵਰਕਸ਼ੀਟ ਦੀ ਡੁਪਲੀਕੇਟ ਕਰਦਾ ਹੈ, ਕਾਪੀ ਨੂੰ "ਟੈਸਟ ਸ਼ੀਟ" ਦਾ ਨਾਮ ਦਿੰਦਾ ਹੈ (ਤੁਸੀਂ ਇਸ ਨੂੰ ਆਪਣੀ ਪਸੰਦ ਦੇ ਕਿਸੇ ਹੋਰ ਨਾਮ ਨਾਲ ਬਦਲਣ ਲਈ ਸੁਤੰਤਰ ਹੋ) , ਅਤੇ ਕਾਪੀ ਕੀਤੀ ਸ਼ੀਟ ਨੂੰ ਮੌਜੂਦਾ ਵਰਕਬੁੱਕ ਦੇ ਅੰਤ ਵਿੱਚ ਰੱਖਦੀ ਹੈ।

ਪਬਲਿਕ ਸਬ CopySheetAndRenamePredefined()activeSheet.Copy After:=Worksheets(Sheets.Count) ਗਲਤੀ 'ਤੇ ਅਗਲੀ ਐਕਟਿਵਸ਼ੀਟ.ਨਾਮ ="ਟੈਸਟ ਸ਼ੀਟ" ਐਂਡ ਸਬ

ਉਪਭੋਗਤਾ ਨੂੰ ਨਕਲ ਕੀਤੀ ਸ਼ੀਟ ਲਈ ਨਾਮ ਨਿਰਧਾਰਤ ਕਰਨ ਦੀ ਇਜਾਜ਼ਤ ਦੇਣ ਲਈ , ਇਸ ਕੋਡ ਦੀ ਵਰਤੋਂ ਕਰੋ:

ਪਬਲਿਕ ਸਬ CopySheetAndRename() Dim newName as String On Error Next newName = InputBox( "ਨਕਲ ਕੀਤੀ ਵਰਕਸ਼ੀਟ ਲਈ ਨਾਮ ਦਰਜ ਕਰੋ" ) ਜੇਕਰ newName "" ਤਾਂ ActiveSheet.Copy After:=Worksheets(Sheets.Count) ਤਰੁੱਟੀ ਮੁੜ ਸ਼ੁਰੂ ਕਰੋ ਅਗਲੀ activeSheet.Name = newName End If End Sub

ਚਲਣ 'ਤੇ, ਮੈਕਰੋ ਹੇਠਾਂ ਦਿੱਤੇ ਇਨਪੁਟ ਬਾਕਸ ਨੂੰ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰਦਾ ਹੈ, ਜਿਸ ਵਿੱਚ ਤੁਸੀਂ ਲੋੜੀਂਦਾ ਨਾਮ ਟਾਈਪ ਕਰਦੇ ਹੋ ਅਤੇ OK ਦਬਾਓ:

ਸ਼ੀਟ ਨੂੰ ਕਾਪੀ ਕਰਨ ਲਈ ਐਕਸਲ ਮੈਕਰੋ ਅਤੇ ਸੈੱਲ ਮੁੱਲ ਦੇ ਆਧਾਰ 'ਤੇ ਨਾਮ ਬਦਲੋ

ਇੰਨ ਵਿੱਚ ਕੁਝ ਸਥਿਤੀਆਂ ਵਿੱਚ, ਇੱਕ ਖਾਸ ਸੈੱਲ ਮੁੱਲ ਦੇ ਨਾਲ ਇੱਕ ਕਾਪੀ ਨੂੰ ਨਾਮ ਦੇਣਾ ਵਧੇਰੇ ਸੁਵਿਧਾਜਨਕ ਹੋ ਸਕਦਾ ਹੈ, ਉਦਾਹਰਨ ਲਈ, ਇੱਕ ਕਾਲਮ ਹੈਡਰ। ਇਸਦੇ ਲਈ, ਤੁਸੀਂ ਬਸ ਉਪਰੋਕਤ ਕੋਡ ਲੈਂਦੇ ਹੋ ਅਤੇ ਆਪਣੇ ਆਪ ਹੀ ਇਨਪੁਟ ਬਾਕਸ ਵਿੱਚ ਮੌਜੂਦਾ ਚੁਣੇ ਗਏ ਸੈੱਲ ਦੇ ਮੁੱਲ ਦੀ ਸਪਲਾਈ ਕਰਦੇ ਹੋ। ਪਿਛਲੀ ਉਦਾਹਰਨ ਦੇ ਨਾਲ, ਕਾਪੀ ਨੂੰ ਸਰਗਰਮ ਵਰਕਬੁੱਕ ਦੇ ਅੰਤ ਵਿੱਚ ਰੱਖਿਆ ਜਾਵੇਗਾ।

ਸਭ ਤੋਂ ਔਖਾ ਹਿੱਸਾ ਇਹ ਹੋਵੇਗਾ ਕਿ ਤੁਹਾਡੇ ਉਪਭੋਗਤਾ ਹਮੇਸ਼ਾ ਚੱਲਣ ਤੋਂ ਪਹਿਲਾਂ ਸਹੀ ਸੈੱਲ ਦੀ ਚੋਣ ਕਰਨ। the macro :)

Public Sub CopySheetAndRenameByCell() ਡਿਮ newName as String on Error Resume next newName = InputBox( "ਕਾਪੀ ਕੀਤੀ ਵਰਕਸ਼ੀਟ ਲਈ ਨਾਮ ਦਰਜ ਕਰੋ" , "ਕਾਪੀ ਵਰਕਸ਼ੀਟ" , ActiveCell.Value) ਜੇਕਰ newName "" ਤਾਂ ਐਕਟਿਵਸ਼ੀਟ। Copy After:=Worksheets(Sheets.Count) ਗਲਤੀ 'ਤੇ ਅਗਲੀ ਐਕਟਿਵਸ਼ੀਟ ਮੁੜ ਸ਼ੁਰੂ ਕਰੋ। ਨਾਮ = newName End If End Sub

ਵਿਕਲਪਿਕ ਤੌਰ 'ਤੇ, ਤੁਸੀਂ ਦੇ ਐਡਰੈੱਸ ਨੂੰ ਹਾਰਡਕੋਡ ਕਰ ਸਕਦੇ ਹੋਸੈੱਲ ਜਿਸ ਦੁਆਰਾ ਕਾਪੀ ਦਾ ਨਾਮ ਦਿੱਤਾ ਜਾਣਾ ਚਾਹੀਦਾ ਹੈ, ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਵਿੱਚ ਸੈੱਲ A1। ਕਾਪੀ ਕੀਤੀ ਵਰਕਸ਼ੀਟ ਨੂੰ ਕਿਸੇ ਹੋਰ ਸੈੱਲ ਦੇ ਅਧਾਰ 'ਤੇ ਨਾਮ ਦੇਣ ਲਈ, A1 ਨੂੰ ਇੱਕ ਉਚਿਤ ਸੈੱਲ ਸੰਦਰਭ ਨਾਲ ਬਦਲੋ।

ਪਬਲਿਕ ਸਬ CopySheetAndRenameByCell2() ਵਰਕਸ਼ੀਟ ਦੇ ਤੌਰ 'ਤੇ ਮੱਧਮ wks ਸੈਟ wks = activeSheet activeSheet. ਬਾਅਦ ਵਿੱਚ ਕਾਪੀ ਕਰੋ:=Worksheets(Sheets.Count) ਜੇਕਰ wks.Range ( "A1" ).ਮੁੱਲ "" ਫਿਰ ਗਲਤੀ 'ਤੇ ਅਗਲੀ ਐਕਟਿਵਸ਼ੀਟ ਮੁੜ ਸ਼ੁਰੂ ਕਰੋ। ਨਾਮ = wks.Range( "A1" ).ਵੈਲਯੂ ਐਂਡ ਜੇ wks. ਐਕਟੀਵੇਟ ਐਂਡ ਸਬ

ਵਰਕਸ਼ੀਟ ਨੂੰ ਬੰਦ ਵਰਕਬੁੱਕ ਵਿੱਚ ਕਾਪੀ ਕਰਨ ਲਈ ਮੈਕਰੋ

ਇਹ ਮੈਕਰੋ ਇੱਕ ਬੰਦ ਵਰਕਬੁੱਕ ਦੇ ਅੰਤ ਵਿੱਚ ਕਿਰਿਆਸ਼ੀਲ ਸ਼ੀਟ ਦੀ ਨਕਲ ਕਰਦਾ ਹੈ। ਕਿਸੇ ਹੋਰ ਵਰਕਬੁੱਕ ਦਾ ਨਾਮ ਕੋਡ ਵਿੱਚ ਨਿਰਧਾਰਤ ਨਹੀਂ ਕੀਤਾ ਗਿਆ ਹੈ - ਮੈਕਰੋ ਸਟੈਂਡਰਡ ਵਿੰਡੋਜ਼ ਐਕਸਪਲੋਰਰ ਵਿੰਡੋ ਨੂੰ ਖੋਲ੍ਹੇਗਾ ਅਤੇ ਤੁਹਾਨੂੰ ਕੋਈ ਵੀ ਡੈਸਟੀਨੇਸ਼ਨ ਫਾਈਲ ਚੁਣਨ ਦੀ ਇਜਾਜ਼ਤ ਦੇਵੇਗਾ:

ਫਾਇਲ ਚੁਣਨ ਤੋਂ ਬਾਅਦ ਅਤੇ ਖੋਲੋ 'ਤੇ ਕਲਿੱਕ ਕਰੋ, ਮੈਕਰੋ ਕਿਰਿਆਸ਼ੀਲ ਸ਼ੀਟ ਦੀ ਨਕਲ ਕਰੇਗਾ ਅਤੇ ਟਾਰਗੇਟ ਵਰਕਬੁੱਕ ਨੂੰ ਆਪਣੇ ਆਪ ਬੰਦ ਕਰ ਦੇਵੇਗਾ।

ਪਬਲਿਕ ਸਬ ਕਾਪੀਸ਼ੀਟਟੋ ਕਲੋਜ਼ਡ ਵਰਕਬੁੱਕ () ਡਿਮ ਫਾਈਲਨਾਮ ਡਿਮ ਕਲੋਜ਼ਡਬੁੱਕ ਵਰਕਬੁੱਕ ਦੇ ਤੌਰ 'ਤੇ ਡਿਮ ਮੌਜੂਦਾਸ਼ੀਟ ਵਰਕਸ਼ੀਟ ਫਾਈਲ ਨਾਮ = ਐਪਲੀਕੇਸ਼ਨ। ਗੇਟਓਪਨ ਫਾਈਲਨਾਮ ("ਐਕਸਲ ਫਾਈਲਾਂ (*.xlsx), *.xlsx" ) ਜੇਕਰ ਫਾਈਲ ਦਾ ਨਾਮ ਗਲਤ ਹੈ ਤਾਂ Application.ScreenUpdating = False Set currentSheet = Application.activeSheet Set ClosedBook = Workbooks। ਖੋਲ੍ਹੋ (fileName) currentSheet.Copy after:=closedBook.Sheets(closedBook.Worksheets.Count) ਬੰਦ ਕਿਤਾਬ। ਬੰਦ ਕਰੋ (ਸੱਚੀ) ਐਪਲੀਕੇਸ਼ਨ। ਸਕਰੀਨ ਅੱਪਡੇਟਿੰਗ = ਸਹੀ ਅੰਤ ਜੇ ਅੰਤ ਸਬ

ਬਿਨਾਂ ਕਿਸੇ ਹੋਰ ਵਰਕਬੁੱਕ ਤੋਂ ਸ਼ੀਟ ਦੀ ਨਕਲ ਕਰਨ ਲਈ ਐਕਸਲ VBAopening

ਇਹ ਮੈਕਰੋ ਤੁਹਾਨੂੰ ਕਿਸੇ ਹੋਰ ਐਕਸਲ ਫਾਈਲ ਤੋਂ ਵਰਕਸ਼ੀਟ ਨੂੰ ਖੋਲ੍ਹੇ ਬਿਨਾਂ ਕਾਪੀ ਕਰਨ ਦੇ ਯੋਗ ਬਣਾਉਂਦਾ ਹੈ। ਕਾਪੀ ਕੀਤੀ ਗਈ ਸ਼ੀਟ ਮੌਜੂਦਾ ਵਰਕਬੁੱਕ ਦੇ ਅੰਤ ਵਿੱਚ ਪਾਈ ਜਾਵੇਗੀ।

ਕੋਡ ਵਿੱਚ ਕੁਝ ਤਬਦੀਲੀਆਂ ਕਰਨਾ ਯਾਦ ਰੱਖੋ:

• C:\Users\XXX\Documents\ Target_Book.xlsx ਨੂੰ ਵਰਕਬੁੱਕ ਦੇ ਅਸਲ ਮਾਰਗ ਅਤੇ ਨਾਮ ਵਿੱਚ ਬਦਲਿਆ ਜਾਣਾ ਚਾਹੀਦਾ ਹੈ ਜਿਸ ਤੋਂ ਤੁਸੀਂ ਇੱਕ ਸ਼ੀਟ ਕਾਪੀ ਕਰਨਾ ਚਾਹੁੰਦੇ ਹੋ।
• ਸ਼ੀਟ1 ਨੂੰ ਉਸ ਸ਼ੀਟ ਦੇ ਨਾਮ ਨਾਲ ਬਦਲਿਆ ਜਾਣਾ ਚਾਹੀਦਾ ਹੈ ਜਿਸਦੀ ਤੁਸੀਂ ਕਾਪੀ ਕਰਨਾ ਚਾਹੁੰਦੇ ਹੋ।

ਪਬਲਿਕ ਸਬ CopySheetFromClosedWorkbook() ਵਰਕਬੁੱਕ ਐਪਲੀਕੇਸ਼ਨ ਦੇ ਤੌਰ 'ਤੇ ਮੱਧਮ sourceBook.ScreenUpdating = ਗਲਤ ਸੈੱਟ ਸਰੋਤਬੁੱਕ = ਵਰਕਬੁੱਕ। ਖੋਲ੍ਹੋ ( "C:\Users\XXX\Documents\Target_Book.xlsx" ) sourceBook.Sheets( "Sheet1" ).ਇਸ ਤੋਂ ਬਾਅਦ ਕਾਪੀ ਕਰੋ:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) sourceBook। ਐਪਲੀਕੇਸ਼ਨ ਬੰਦ ਕਰੋ।ScreenUpdating = True End Sub

ਸ਼ੀਟ ਨੂੰ ਕਈ ਵਾਰ ਡੁਪਲੀਕੇਟ ਕਰਨ ਲਈ ਐਕਸਲ VBA

ਕਈ ਵਾਰ, ਤੁਹਾਨੂੰ ਇੱਕੋ ਸ਼ੀਟ ਨੂੰ ਇੱਕ ਤੋਂ ਵੱਧ ਵਾਰ ਡੁਪਲੀਕੇਟ ਕਰਨ ਦੀ ਲੋੜ ਹੋ ਸਕਦੀ ਹੈ, ਉਦਾਹਰਨ ਲਈ ਇੱਕੋ ਡੇਟਾ ਸੈੱਟ 'ਤੇ ਵੱਖ-ਵੱਖ ਫਾਰਮੂਲਿਆਂ ਦੀ ਜਾਂਚ ਕਰਨ ਲਈ। ਇਹ ਹੇਠਾਂ ਦਿੱਤੇ ਮੈਕਰੋ ਨਾਲ ਆਸਾਨੀ ਨਾਲ ਕੀਤਾ ਜਾ ਸਕਦਾ ਹੈ।

ਪਬਲਿਕ ਸਬ ਡੁਪਲੀਕੇਟ ਸ਼ੀਟ ਮਲਟੀਪਲ ਟਾਈਮਸ() ਡਿਮ n ਪੂਰਨ ਅੰਕ ਦੇ ਰੂਪ ਵਿੱਚ ਗਲਤੀ ਮੁੜ ਸ਼ੁਰੂ ਕਰੋ ਅੱਗੇ n = ਇਨਪੁਟਬਾਕਸ ( "ਤੁਸੀਂ ਸਰਗਰਮ ਸ਼ੀਟ ਦੀਆਂ ਕਿੰਨੀਆਂ ਕਾਪੀਆਂ ਬਣਾਉਣਾ ਚਾਹੁੰਦੇ ਹੋ?") ਜੇਕਰ n > = 1 ਫਿਰ ਗਿਣਤੀ ਲਈ = 1 ਤੋਂ n ਐਕਟਿਵਸ਼ੀਟ। ਬਾਅਦ ਵਿੱਚ ਕਾਪੀ ਕਰੋ:=ActiveWorkbook.Sheets(Worksheets.Count) Next End ਜੇਕਰ End Sub

ਅਸਲ ਸ਼ੀਟ ਖੋਲ੍ਹੋ, ਮੈਕਰੋ ਚਲਾਓ, ਦੱਸੋ ਕਿ ਕਿਰਿਆਸ਼ੀਲ ਸ਼ੀਟ ਦੀਆਂ ਕਿੰਨੀਆਂ ਕਾਪੀਆਂ ਹਨ।ਤੁਸੀਂ ਬਣਾਉਣਾ ਚਾਹੁੰਦੇ ਹੋ, ਅਤੇ ਕਲਿੱਕ ਕਰੋ ਠੀਕ ਹੈ :

ਵੀਬੀਏ ਨਾਲ ਐਕਸਲ ਵਿੱਚ ਸ਼ੀਟਾਂ ਦੀ ਡੁਪਲੀਕੇਟ ਕਿਵੇਂ ਕਰੀਏ

ਐਕਸਲ ਵਿੱਚ ਇੱਕ ਸ਼ੀਟ ਦੀ ਨਕਲ ਕਰਨ ਲਈ ਉਪਰੋਕਤ ਮੈਕਰੋ ਵਿੱਚੋਂ ਇੱਕ ਦੇ ਨਾਲ, ਤੁਸੀਂ ਜਾਂ ਤਾਂ ਆਪਣੀ ਖੁਦ ਦੀ ਕਿਤਾਬ ਵਿੱਚ VBA ਕੋਡ ਪਾ ਸਕਦੇ ਹੋ ਜਾਂ ਸਾਡੀ ਨਮੂਨਾ ਵਰਕਬੁੱਕ ਤੋਂ ਇੱਕ ਮੈਕਰੋ ਚਲਾ ਸਕਦੇ ਹੋ।

ਆਪਣੀ ਵਰਕਬੁੱਕ ਵਿੱਚ ਇੱਕ ਮੈਕਰੋ ਕਿਵੇਂ ਜੋੜਨਾ ਹੈ

ਸੰਮਿਲਿਤ ਕਰਨ ਲਈ ਆਪਣੀ ਵਰਕਬੁੱਕ ਵਿੱਚ ਕੋਡ, ਇਹਨਾਂ ਕਦਮਾਂ ਨੂੰ ਪੂਰਾ ਕਰੋ:

1. ਉਸ ਵਰਕਸ਼ੀਟ ਨੂੰ ਖੋਲ੍ਹੋ ਜਿਸਦੀ ਤੁਸੀਂ ਕਾਪੀ ਕਰਨਾ ਚਾਹੁੰਦੇ ਹੋ।
2. ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਨੂੰ ਖੋਲ੍ਹਣ ਲਈ Alt + F11 ਦਬਾਓ।
3. ਚਾਲੂ ਕਰੋ। ਖੱਬਾ ਪੈਨ 'ਤੇ, ਇਹ ਵਰਕਬੁੱਕ 'ਤੇ ਸੱਜਾ ਕਲਿੱਕ ਕਰੋ, ਅਤੇ ਫਿਰ ਇਨਸਰਟ ਕਰੋ > ਮੋਡਿਊਲ 'ਤੇ ਕਲਿੱਕ ਕਰੋ।
4. ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਕੋਡ ਪੇਸਟ ਕਰੋ।
5. ਮੈਕ੍ਰੋ ਨੂੰ ਚਲਾਉਣ ਲਈ F5 ਦਬਾਓ।

ਵਿਸਤ੍ਰਿਤ ਕਦਮ-ਦਰ-ਕਦਮ ਨਿਰਦੇਸ਼ਾਂ ਲਈ, ਕਿਰਪਾ ਕਰਕੇ ਐਕਸਲ ਵਿੱਚ VBA ਕੋਡ ਨੂੰ ਕਿਵੇਂ ਸ਼ਾਮਲ ਕਰਨਾ ਹੈ ਦੇਖੋ।

ਕਿਵੇਂ ਚਲਾਉਣਾ ਹੈ। ਸਾਡੀ ਨਮੂਨਾ ਵਰਕਬੁੱਕ ਤੋਂ ਇੱਕ ਮੈਕਰੋ

ਵਿਕਲਪਿਕ ਤੌਰ 'ਤੇ, ਤੁਸੀਂ ਸਾਡੀ ਨਮੂਨਾ ਵਰਕਬੁੱਕ ਨੂੰ ਡੁਪਲੀਕੇਟ ਐਕਸਲ ਸ਼ੀਟਾਂ ਵਿੱਚ ਡਾਊਨਲੋਡ ਕਰ ਸਕਦੇ ਹੋ ਅਤੇ ਉੱਥੋਂ ਕੋਡ ਚਲਾ ਸਕਦੇ ਹੋ।

ਨਮੂਨਾ ਵਰਕਬੁੱਕ ਵਿੱਚ ਹੇਠਾਂ ਦਿੱਤੇ ਮੈਕਰੋ ਹਨ:

ਨਿਊ ਵਰਕਬੁੱਕ ਦੀ ਕਾਪੀ ਸ਼ੀਟ - cu ਨੂੰ ਕਾਪੀ ਕਰਦਾ ਹੈ ਵਰਕਸ਼ੀਟ ਨੂੰ ਇੱਕ ਨਵੀਂ ਵਰਕਬੁੱਕ ਵਿੱਚ ਰੈਂਟ ਕਰੋ।

ਕਾਪੀ ਸਿਲੈਕਟਡ ਸ਼ੀਟਾਂ - ਇੱਕ ਤੋਂ ਵੱਧ ਸ਼ੀਟਾਂ ਦੀ ਨਕਲ ਕਰੋ ਜੋ ਤੁਸੀਂ ਇੱਕ ਨਵੀਂ ਵਰਕਬੁੱਕ ਵਿੱਚ ਚੁਣਦੇ ਹੋ।

ਕਾਪੀਸ਼ੀਟ ਟੂ ਬੇਗਿਨਿੰਗ ਇੱਕ ਹੋਰ ਵਰਕਬੁੱਕ - ਐਕਟਿਵ ਸ਼ੀਟ ਦੀ ਨਕਲ ਕਰਦੀ ਹੈ ਕਿਸੇ ਹੋਰ ਵਰਕਬੁੱਕ ਦੀ ਸ਼ੁਰੂਆਤ ਤੱਕ।

CopySheetToEndAnotherWorkbook - ਇੱਕ ਹੋਰ ਐਕਸਲ ਫਾਈਲ ਦੇ ਅੰਤ ਵਿੱਚ ਸਰਗਰਮ ਸ਼ੀਟ ਦੀ ਨਕਲ ਕਰਦਾ ਹੈ।

CopySheetAndRename - ਮੌਜੂਦਾ ਦੀ ਡੁਪਲੀਕੇਟ ਕਰਦਾ ਹੈ ਸ਼ੀਟ,ਉਪਭੋਗਤਾ ਦੁਆਰਾ ਦਰਸਾਏ ਅਨੁਸਾਰ ਇਸਦਾ ਨਾਮ ਬਦਲਦਾ ਹੈ, ਅਤੇ ਮੌਜੂਦਾ ਵਰਕਬੁੱਕ ਵਿੱਚ ਹੋਰ ਸਾਰੀਆਂ ਸ਼ੀਟਾਂ ਤੋਂ ਬਾਅਦ ਕਾਪੀ ਰੱਖਦਾ ਹੈ।

ਕਾਪੀਸ਼ੀਟ ਅਤੇ ਰੀਨੇਮ ਪ੍ਰੀਡਿਫਾਇਡ - ਐਕਟਿਵ ਸ਼ੀਟ ਦੀ ਡੁਪਲੀਕੇਟ ਕਰਦਾ ਹੈ, ਕਾਪੀ ਨੂੰ ਹਾਰਡਕੋਡ ਵਾਲਾ ਨਾਮ ਦਿੰਦਾ ਹੈ ਅਤੇ ਇਸਨੂੰ ਰੱਖਦਾ ਹੈ ਮੌਜੂਦਾ ਵਰਕਬੁੱਕ ਦੇ ਅੰਤ ਵਿੱਚ।

CopySheetAndRenameByCell - ਸਰਗਰਮ ਸ਼ੀਟ ਦੀ ਇੱਕ ਕਾਪੀ ਬਣਾਉਂਦਾ ਹੈ ਅਤੇ ਚੁਣੇ ਗਏ ਸੈੱਲ ਮੁੱਲ ਦੇ ਅਧਾਰ ਤੇ ਇਸਦਾ ਨਾਮ ਬਦਲਦਾ ਹੈ।

CopySheetAndRenameByCell2 - ਕਿਰਿਆਸ਼ੀਲ ਸ਼ੀਟ ਦੀ ਨਕਲ ਕਰਦਾ ਹੈ ਅਤੇ ਹਾਰਡਕੋਡ ਕੀਤੇ ਸੈੱਲ ਪਤੇ ਦੇ ਆਧਾਰ 'ਤੇ ਇਸਦਾ ਨਾਮ ਬਦਲਦਾ ਹੈ।

CopySheetToClosedWorkbook - ਤੁਹਾਨੂੰ ਸ਼ੀਟ ਨੂੰ ਬੰਦ ਵਰਕਬੁੱਕ ਵਿੱਚ ਕਾਪੀ ਕਰਨ ਦੀ ਇਜਾਜ਼ਤ ਦਿੰਦਾ ਹੈ।

CopySheetFromClosedWorkbook - ਤੁਹਾਨੂੰ ਸ਼ੀਟ ਨੂੰ ਖੋਲ੍ਹੇ ਬਿਨਾਂ ਕਿਸੇ ਹੋਰ ਐਕਸਲ ਫਾਈਲ ਤੋਂ ਕਾਪੀ ਕਰਨ ਦੇ ਯੋਗ ਬਣਾਉਂਦਾ ਹੈ।

ਡੁਪਲੀਕੇਟ ਸ਼ੀਟ ਮਲਟੀਪਲਟਾਈਮਜ਼ - ਤੁਹਾਨੂੰ ਐਕਸਲ ਵਿੱਚ ਇੱਕ ਸ਼ੀਟ ਨੂੰ ਕਈ ਵਾਰ ਡੁਪਲੀਕੇਟ ਕਰਨ ਦਿੰਦਾ ਹੈ।

ਲਈ ਆਪਣੇ ਐਕਸਲ ਵਿੱਚ ਮੈਕਰੋ ਚਲਾਓ, ਬੱਸ ਹੇਠਾਂ ਦਿੱਤੇ ਕੰਮ ਕਰੋ:

1. ਡਾਊਨਲੋਡ ਕੀਤੀ ਵਰਕਬੁੱਕ ਖੋਲ੍ਹੋ ਅਤੇ ਜੇਕਰ ਪੁੱਛੇ ਜਾਣ 'ਤੇ ਸਮੱਗਰੀ ਨੂੰ ਸਮਰੱਥ ਬਣਾਓ।
2. ਆਪਣੀ ਖੁਦ ਦੀ ਵਰਕਬੁੱਕ ਖੋਲ੍ਹੋ ਅਤੇ ਉਸ ਸ਼ੀਟ 'ਤੇ ਨੈਵੀਗੇਟ ਕਰੋ ਜਿਸ ਨੂੰ ਤੁਸੀਂ ਕਰਨਾ ਚਾਹੁੰਦੇ ਹੋ ਕਾਪੀ।
<1 7>ਆਪਣੀ ਵਰਕਸ਼ੀਟ ਵਿੱਚ, Alt + F8 ਦਬਾਓ, ਦਿਲਚਸਪੀ ਦਾ ਮੈਕਰੋ ਚੁਣੋ, ਅਤੇ ਚਲਾਓ 'ਤੇ ਕਲਿੱਕ ਕਰੋ।

ਇਸ ਤਰ੍ਹਾਂ ਤੁਸੀਂ ਡੁਪਲੀਕੇਟ ਕਰ ਸਕਦੇ ਹੋ। VBA ਨਾਲ Excel ਵਿੱਚ ਇੱਕ ਸ਼ੀਟ। ਮੈਂ ਪੜ੍ਹਨ ਲਈ ਤੁਹਾਡਾ ਧੰਨਵਾਦ ਕਰਦਾ ਹਾਂ ਅਤੇ ਅਗਲੇ ਹਫ਼ਤੇ ਤੁਹਾਨੂੰ ਸਾਡੇ ਬਲੌਗ 'ਤੇ ਮਿਲਣ ਦੀ ਉਮੀਦ ਕਰਦਾ ਹਾਂ!