AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |
Back to Blog
![]() LstClm = Cells(1, Columns.Count).End(xlToLeft).Column Sub CreateSheets(uniques As Range, clmNo As Long) Set RemoveDuplicates = Range("A2:A" & lstRow) 'Calling Remove Duplicates to Get Unique Namesįunction RemoveDuplicates(uniques As Range) As RangeĪctiveSheet.Range(Selection.Address).RemoveDuplicates Columns:=1, Header:=xlNo Set uniques = Range(clm & "2:" & clm & lstRow) LstRow = Cells(Rows.Count, 1).End(xlUp).RowĬlm = Application.InputBox("From which column you want create files" & vbCrLf & "E.g. ![]() To Automate above process of splitting sheet into multiple sheets, follow these steps. ![]() How would you split data into different sheets? It will take a lot of time and it will drain you too. In this example, I have only three names. To do this manually, I have to do the following: I want to get each writer’s data in separate sheets. Writer column has name of writer of respective title. This data has a column named Date, Writer and Title. Do you have a big data on excel sheet and you need to distribute that sheet in multiple sheets, based on some data in a column? This very basic task but time consuming.įor example, I have this data.
0 Comments
Read More
Leave a Reply. |