¡u©I¥s¤u§@ªí¨ç¼Æ¡v¨Ï¥Î¤Wªº°ÝÃD¡A½Ð¤£§[«ü±Ð

mnsmrtl

¤j®a¦n~
§Ú·Q½Ð°Ýªº¬O¦bVBA¤¤¡A¦pªG¨Ï¥ÎApplication.WorksheetFunction.CountIf
§Ú·Q¦bsheet1ªºAÄ椤³v¤@¤ñ¹ïsheet2ªºAÄ椤¬O§_¤w¥X²{
­Ó¤H¼gªºCode¦p¤U
Dim myrange As Range
    w = 2
    Do While Sheet1.Cells(w, "A") <> Empty
        ww = Sheet1.Cells(w, "A")
        Set myrange = Worksheets(2).Range("A:A")
        yy = Application.WorksheetFunction.CountIf(myrange, ww)
        If yy <> 0 Then Exit Do
    ....
    w = w + 1
    Loop
ww¬O°Ó«~¥N½X¡A°ÝÃD¥X¦bCOUNTIF²Ä¤G­Ó¤Þ¼Æ¦ü¥G¦b¥ÎÅܼƼg¤J®É¥Îªk¤£¹ï¡K
³Â·Ð¦U¦ì¥ý¶i«üÂI¤@¤G~·PÁÂ

Min

¤j®a¦n~
§Ú·Q½Ð°Ýªº¬O¦bVBA¤¤¡A¦pªG¨Ï¥ÎApplication.WorksheetFunction.CountIf
§Ú·Q¦bsheet1ªºAÄ椤³v¤@ ...
mnsmrtl µoªí©ó 2010/8/13 10:19 PM

«Øij±z¤W¶ÇÀÉ®×! ¤º§t... ªºcode¦nÃø²z¸Ñ~


³o¬O¨ç¼Æªº»¡©ú ±z¥i¥H¥ý°Ñ¦Ò¤@¤U!

GBKEE

¦^´_ ¼Ó¥D
ww¬O°Ó«~¥N½X¡A°ÝÃD¥X¦bCOUNTIF²Ä¤G­Ó¤Þ¼Æ¦ü¥G¦b¥ÎÅܼƼg¤J®É¥Îªk¤£¹ï¡K
§A¥uªþ¤W¤ù¬qªºµ{¦¡½X ¥B¬Ý¤£¨ìww ¥N¶i¨Óªº¸ê®Æ µL±q¬d°_

mnsmrtl

¦^´_ 3# GBKEE

©êºp¨S§â°ÝÃDÁ¿²M·¡¡A§Ú¬O·Q§âsheet1¡uDDE¡vªºdata
²Å¦X±ø¥ó«á¼g¤J¨ìsheet2¡uºÊ±±¡v¡A¦Ó¦b¼g¤J®É§Æ±æ¯à¥ý¤ñ¹ïSheet2¬O§_¦³­«ÂЪº¼Ðªº
­YµL«hª½±µ«Ø¥ß¦b¬J¦³¸ê®Æªº¤U¤è¡A©Ò¥H§Ú´N¥Îcountif¥hÀˬd
ww¥Nªíªº¬OªÑ²¼ªº¥N½X¡A¤£ª¾¹D¬O¤£¬O¸Ó¥[¤J¡u"¡v¡A¤@ª½µLªk¥¿±`¹B§@¡A·PÁÂ

GBKEE

¦^´_ 4# mnsmrtl

yy = Application.WorksheetFunction.CountIf(Myrange, ww)  '³o¦æ¨S¿ù
If yy <> 0 Then
           ' Exit Do    Â÷¶}¦^°é  ´Nµ²§ôµ{¦¡   ½Ð§R±¼³o¦æ
  Sheet1.Cells(w, "O") = 1
'
'

mnsmrtl

­ì¨Ó¦p¦¹¡A§ÚÀ´¤F¡A·PÁ¼ӤW¤j¤jªº«ü¾É