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

Popular posts from this blog

apache - Remove .php and add trailing slash in url using htaccess not loading css -

javascript - jQuery show full size image on click -