From: fi.or.jp.de on 30 Apr 2010 12:07 Joel, Give me some tips to learn excel vba. thanks for your help On Apr 30, 6:36 pm, joel <joel.4a8...(a)thecodecage.com> wrote: > Yes > > Dim DeleteCol as string > Dim CompareStr as string > DeleteCol = "H" > CompareStr = Range("AY").Text > Call Duplicate_Delete(DeleteCol,CompareStr) > > sub Duplicate_Delete(DeleteCol as string, CompareStr as String) > Application.WorksheetFunction.CountIf( _ > Range(DeleteCol & "1:" & DeleteCol & x),CompareStr) > end sub > > -- > joel > ------------------------------------------------------------------------ > joel's Profile:http://www.thecodecage.com/forumz/member.php?u=229 > View this thread:http://www.thecodecage.com/forumz/showthread.php?t=199734 > > http://www.thecodecage.com/forumz |