Copy All Sheets Data In Master_Sheet
Copy All Sheet Data In Master_Sheet
I have excel file which has 3 sheet,From below vba macro code we can copy all sheets data in master Sheet.
मेरे पास तीन sheet वाली excel फाइल है.निचे लिखे VBA Macro Code से हम सारे sheets का डाटा Master Sheet में copy कर सकते हैं.
Sub Add_All_sheet_Data()
sheetcount = Sheets.Count
Worksheets.Add after:=Sheets(Sheets.Count)
‘Worksheets.Add after:=Sheets(Sheetcount)
ActiveSheet.Name = “Master”
For i = 1 To sheetcount
Sheets(i).Activate
Range(“a1”).CurrentRegion.Select
Selection.Copy
Sheets(“Master”).Activate
Range(“a1048576”).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
If i > 1 Then
ActiveCell.EntireRow.Delete
End If
Next i
End Sub