ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¬O§_¥i¥H¥ÎVBA ¦Û°ÊÀˬd­«½Æ¦WºÙ

[µo°Ý] ½Ð°Ý¬O§_¥i¥H¥ÎVBA ¦Û°ÊÀˬd­«½Æ¦WºÙ

¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-5-27 15:55 ½s¿è

¦]¬° ¦³­ÓÁ`ªí EXCEL ¬O¶×¶°«Ü¦hEXCELÀɮתº¸ê®Æ
¦ý¬O ¸ê®Æ«Ü¦h³£·|­«½Æ
·Q»¡ ¯à§_©ó ªþÀɤºªº¦W¦r¨ºÃä ¦Û°Ê¿z¿ï ¦³­«½Æªº ¥H ¬õ¦â©³¦â¼Ð¥Ü

¦pªþÀɤº
¤ý³ü ¦³¨â­Ó ¬O§_¦³¿ìªk¥i¥H¥Î¬õ¦â©³¦â¼Ð¥Ü¥X¨Ó(¨Ã«D³æ¤@­Ó­«½Æ)

Àˬd­«½Æ.rar (3.6 KB)

¦^´_ 1# mark15jill

§Aªºªþ¥ó¤¤­þ¤@µ§¸ê®Æ¨S­«½Æ?
°ò¥»¤W­nÅý­«½Æ³¡¤ÀÅã¥ÜÃC¦â¥u­n¥Î±ø¥ó¤Æ®æ¦¡§Y¥i
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# mark15jill
  1. Sub Ex()
  2.     Dim D As Object, R
  3.     Set D = CreateObject("Scripting.Dictionary")
  4.     For Each R In Range("A1").CurrentRegion.Columns(2).Cells
  5.         R.Interior.ColorIndex = xlNone
  6.         If Not D.EXISTS(R.Value) Then
  7.           Set D(R.Value) = R
  8.         Else
  9.           Set D(R.Value) = Union(D(R.Value), R)
  10.         End If
  11.     Next
  12.     For Each R In D.KEYS
  13.         If D(R).Cells.Count > 1 Then D(R).Interior.ColorIndex = 37
  14.     Next
  15. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# Hsieh


    ¤j¤j §Úªº·N«ä¬O»¡
¦]¬°¸ê®Æ«Ü¦hµ§(ªþ¥ó¥u¦³µuµu´Xµ§)
¦Ó§Ú¥²¶·¥h§PÂ_»¡ ¦³­þ¨Ç¦W¦r¬O­«½Æªº  (¦]¬°¸Ó ¸ê®Æ¦W¦r¬O°ß¤@ªº)
©Ò¥H¤~·Q½Ð°Ý»¡ ¦³¨S¦³¿ìªk¯à°÷Åýµ{¦¡¦Û¤v¥h§PÂ_

TOP

¦^´_ 3# GBKEE


    ¤j¤j ·Q½Ð°Ý¤@¤U ±z³o¨Çµ{¦¡¬O ¥H A1 §@¬°¨Ì¾Ú¥h·j¯Á¶Ü?
¨º¦pªG»¡­n­Ó§O¥h§PÂ_ ­n«ç§ï©O???  
¤£¦n·N«ä °ÝÃD¦³ÂI¦h...

¨Ò¦p
¤ý³ü  ¦³¥|µ§ (¤£¬O¶¶§Ç¦C ¦p 001   009    070  099 )
¶À¶L ¦³¥|µ§  (¤£¬O¶¶§Ç¦C ¦p 050  090  111  195)   <ªþ¥óµL>  

­n«ç¥hÅýµ{¦¡¦Û¤v¥h§PÂ_»¡  ¬O§_¦³­«½Æªº

TOP

¦^´_ 5# mark15jill
"¤j¤j ·Q½Ð°Ý¤@¤U ±z³o¨Çµ{¦¡¬O ¥H A1 §@¬°¨Ì¾Ú¥h·j¯Á¶Ü?"
Range("A1").CurrentRegion.Columns(2).Cells
¬O¥HA1©Ò©µ¦ùªº½d³òªº²Ä2ÄæColumns(2) ©m¦WÄæ§@¨Ì¾Ú
¥i­×§ï¬°Columns(?) Äæ§@¨Ì¾Ú
¥i¹î¬ÝCurrentRegionªº»¡©ú

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-6-1 17:04 ½s¿è

¦^´_ 6# GBKEE

¤£¦n·N«ä ¤µ¤Ñ´ú¸Õ³o­Ó¨Ò¤l µo²{¥H¤U¤@ºØ±¡§Î..
¦pªG¬OªÅ¥Õªº¸Ü ¥L·|µø¦P¦³¤º®e ¦Ó¾É­P¦³ÃC¦â

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD