vba - Range.Find in loop crashes for 50K rows in Excel -


i have huge list of numbers search in excel. column contains 358 k rows , column b contains 55 k rows , need 3 results 1. matching in & b 2. number present in not in b 3. number present in b not in a

excel version 2013. if use formula, crashes. if use vba, range.find, crashes few times, completes. takes huge amount of time complete. here code. not sure if there other way achieve same result. 

    application.enableevents = false      application.screenupdating = false      application.calculation = xlcalculationmanual           set objngupcrange = activesheet.range("b3:b55533")      lcellend = 3      ldcellend1 = 3      ldcellend2 = 3            while range("a" & lcellend).value <> ""          set objngupcsearch = objngupcrange.find(what:=range("a" & lcellend).value, lookat:=xlwhole)                    if objngupcsearch nothing              range("e" & ldcellend1).value = range("a" & lcellend).value 'present in not in b              ldcellend1 = ldcellend1 + 1          else              range("f" & ldcellend2).value = range("a" & lcellend).value 'matching in & b              ldcellend2 = ldcellend2 + 1          end if    	set objngupcsearch = nothing                lcellend = lcellend + 1      wend            lcellend = 3      ldcellend1 = 3        set objngupcrange = activesheet.range("a3:a358227")            while range("b" & lcellend).value <> ""          set objngupcsearch = objngupcrange.find(what:=range("b" & lcellend).value, lookat:=xlwhole)                    if objngupcrange nothing              range("g" & ldcellend1).value = range("b" & lcellend).value 'present in b not in              ldcellend1 = ldcellend1 + 1          end if    	set objngupcsearch = nothing                lcellend = lcellend + 1                wend            application.enableevents = true      application.screenupdating = true      application.calculation = xlcalculationautomatic

any appreciated.

~muru


Comments

Post a Comment

Popular posts from this blog

cakephp - simple blog with croogo -

i not problem, made simple blog in croogo, problem is not adding or modifying or delete, because arabic language ?? function add in controller `public function admin_add() { $this->set('title_for_layout', __('add part')); if (!empty($this->request->data)) { $this->part->create(); if ($this->part->save($this->request->data)) { $this->session->setflash(__('the part has been saved'), 'default', array('class' => 'success')); $this->redirect(array('action' => 'index'));//, $this->part->id)); } else { $this->session->setflash(__('the part not saved. please, try again.'), 'default', array('class' => 'error')); } } }` => model `class part extends appmodel { public $name = 'part'; var $belongst...
Read more

How to group boxplot outliers in gnuplot -

i have large set of data points. try plot them boxplot, of outliers exact same value , represented on line beside each other. found how set horizontal distance between outliers in gnuplot boxplot , doesn't much, apparently not possible. is possible group outliers together, print 1 point , print number in brackets beside indicate how many points there are? think make more readable in graph. for information, have 3 boxplots 1 x value , times 6 in 1 graph. using gnuplot 5 , played around pointsize, doesn't reduce distance anymore. hope can help! edit: set terminal pdf set output 'dat.pdf' file0 = 'dat1.dat' file1 = 'dat2.dat' file2 = 'dat3.dat' set pointsize 0.2 set notitle set xlabel 'x' set ylabel 'y' header = system('head -1 '.file0); n = words(header) set xtics ('' 1) set [i=1:n] xtics add (word(header, i) i) set style data boxplot plot file0 using (1-0.25):1:(0.2) boxplot lw 2 lc rgb '#8b0000...
Read more

bash - Performing variable substitution in a string -

i have string contains use of variable, , i'd substitute variable's value string. right best have is #!/bin/bash foo='$name; echo bar' name="the name" expanded="$(eval echo "$foo")" echo "$expanded" which has obvious defects: prints the name bar while i'd print the name; echo bar instead of eval can bash's regex matching bash's string replacement: foo='$name; echo bar' name="the name" [[ "$foo" =~ \$([[:alnum:]]+) ]] && s="${!bash_rematch[1]}" && expanded="${foo/\$${bash_rematch[1]}/$s}" echo "$expanded" name; echo bar
Read more