¡u©I¥s¤u§@ªí¨ç¼Æ¡v¨Ï¥Î¤Wªº°ÝÃD¡A½Ð¤£§[«ü±Ð
- ©«¤l
- 51
- ¥DÃD
- 17
- ºëµØ
- 0
- ¿n¤À
- 200
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- officexp
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-7-31
- ³Ì«áµn¿ý
- 2018-9-19
|
¡u©I¥s¤u§@ªí¨ç¼Æ¡v¨Ï¥Î¤Wªº°ÝÃD¡A½Ð¤£§[«ü±Ð
¤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Á |
|
¤£¶i«h°h
|
|
|
|
|
- ©«¤l
- 51
- ¥DÃD
- 17
- ºëµØ
- 0
- ¿n¤À
- 200
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- officexp
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-7-31
- ³Ì«áµn¿ý
- 2018-9-19
|
¦^´_ 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Á |
-
-
ªÑDDE.zip
(19.87 KB)
|
¤£¶i«h°h
|
|
|
|
|
- ©«¤l
- 51
- ¥DÃD
- 17
- ºëµØ
- 0
- ¿n¤À
- 200
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- officexp
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-7-31
- ³Ì«áµn¿ý
- 2018-9-19
|
ì¨Ó¦p¦¹¡A§ÚÀ´¤F¡A·PÁ¼ӤW¤j¤jªº«ü¾É |
|
¤£¶i«h°h
|
|
|
|
|