' To specify a different column, change 1 to the column number. IListCount = Sheets("Sheet1").Range("A1:A100").Rows.Count ' Get count of records to search through. ' Turn off screen updating to speed up macro. If your list does contain empty cells, sort the data in ascending order so that the empty cells are all at the end of your list. This macro requires that you do not have empty cells in the list range. The following sample macro searches a single list in the range A1:A100 and deletes all duplicate items in the list. Sample 1: Delete duplicate items in a single list Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. Microsoft provides programming examples for illustration only, without warranty either expressed or implied.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |