arrays - Compare two ranges and delete rows with duplicates -
sorry if i'm duplicating easy question, i've done several searches , haven't turned use build code i'm looking for. have 2 worksheets came master list unique record numbers in column a. 1 worksheet (air) contains records i'd remove worksheet (mixed). can accomplish following code have on 11k records , it's rather time consuming way. there way arrays macro isn't switching between worksheets every record?
dim searchcell range dim searchterm variant sheets("air").select range("a3").select searchterm = activecell.value sheets("mixed").select columns("a").select set searchcell = cells.find(what:=searchterm) if searchcell nothing sheets("air").select activecell.offset(1, 0).select else cells.find(what:=searchterm).activate activecell.entirerow.select selection.delete shift:=xlup sheets("air").select activecell.offset(1, 0).select end if loop until activecell.value = ""
Comments
Post a Comment