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

¤@¥÷·sªºVBA¹J¨ìªº°ÝÃD

¦^´_ 3# play9091
³oºØ¼gªk¥i¤£¥i¥H¸ósheet©Î¬O¸óBOOK¡H¡H                ª¦¤@¤U¤å ´N¦³°Õ!    ½Ð¬Ý

TOP

¦^´_ 2# GBKEE

·PÁª©¥Dªº¦^µª¡A·sªº³o¤@¥÷VBA¹J¨ìªº°ÝÃD¯uªº¬O¤Ó¦h¤F¡A¤£ª¾¹D§Úª½±µ¦b³o­Ó°Q½×¦ê¸Ì­±°Ý¦X¾A¤£¦X¾A¡A¦pªGª©¤jı±o¤£¦X¾A¡A§Ú¦A¶}¤À©«¡K¡K

¥Ø«e¦]¬°¼g¤F«Ü¦hªº¡uselect¡v¡A·Pı¡A¤@ª½¿ï¨Ó¿ï¥hªº¡A¦³¨S¦³¨ä¥¦ªº¤èªk¥i¥H´î¤Ö³oºØ±¡ªp¡Aµ{¦¡ªº®Ä²vÀ³¸Ó¤]·|¬Û¹ï´£°ª¡AµM«á§Ú´N¦bºô¸ô¤W§ä¨ì¤F³o½g¤å³¹¡K¡K
¤@¡B¼Æ¼Æ¬Ý§Aªºµ{¦¡¸Ì¦³¦h¤Ö "Select" ?
°£«Dµ{¦¡´N¬O­n¨Ì¨Ï¥ÎªÌ¿ï¨úªºª«¥ó¨Ó°µ°Ê§@¡A§_«h Select ©M Selection ³£¬O¦h¾lªº.
¡· ¼Ð·Çªºª«¥ó±±¨î»yªk¡G
¡@ ª«¥ó.¤èªk¡@¡]¨Ò¦p Range("A1").Copy¡^
¡@ ª«¥ó.ÄÝ©Ê = ­È¡@¡]¨Ò¦p Range("A1").ColorIndex = 15¡^
¦Ó¤£¬O¤@©w­n¥ý Select ª«¥óµM«á¦A¹ï Selection °µ°Ê§@.

Á|¨Ò¦Ó¨¥¡A§A­n½Æ»s Sheet1.A1 ªº­È¨ì Sheet2.B1 --
¡@Range("A1").Copy
¡@Sheets(2).Select
¡@Range("B1").Select
¡@Range("B1").PasteSpecial xlPasteValues
¨ä¹ê¥i¥H³o»ò¼g --
¡@Sheets(2).Range("B1") = Sheets(1).Range("A1")
¦pªG¤º®e»P®æ¦¡³£­n½Æ»s¡A¥i¥H³o»ò¼g --
¡@Sheets(1).Range("A1").Copy Sheets(2).Range("B1")

¤£­n¬Ý³o¨S¤°»ò¡A§AªºVBAÆ[©À©Mµ{«×¯à§_§ó¶i¤@¨B¡A³o¬O«Ü­«­nªº¤@ÂI¡C


¥L³oÃäÁ|ªº¨Ò¤l¡A¥u¦³³æ®æ¦Ó¤w
¤@¡B¬O§_¦³¦h®æªº¼gªk¡K¡K
¤G¡B³oºØ¼gªk¥i¤£¥i¥H¸ósheet©Î¬O¸óBOOK¡H¡H
ªì¾ÇVBA¥E¨ìtwbts

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-22 20:15 ½s¿è

¦^´_ 1# play9091
  1. Sub Ex()
  2.     Dim D As Object, E As Variant
  3.     Set D = CreateObject("Scripting.Dictionary")    'Dictionary¥Î©óÀx¦s¸ê®ÆÃöÁä¦r©M¶µ¥Ø¹ï¡C¡A³q±`¬O¾ã¼Æ©Î¦r¦ê¡A¥i¥H¬O°£°}¦C¥~ªº¥ô¦ó«¬ºA¡C
  4.     For Each E In Sheet1.Range("A2").CurrentRegion.Rows   'Sheet1.A2³sÄò½d³ò¦Cªº¶°¦X
  5.         If E.Cells(1).Interior.ColorIndex = 3 Then        'ColorIndex = 3  ¬õ¦â
  6.             If Not D.EXISTS(E.Cells(1).Value) Then Set D(E.Cells(1).Value) = E
  7.             'Not D.EXISTS(E.Cells(1).Value) §ä¤£­«½Æªº­È
  8.             'Set D(E.Cells(1).Value) = E : Dictionary.ITEMS->³]©w¬°Eªº¾ã¦C(Range ª«¥ó)
  9.         End If
  10.     Next
  11.     For Each E In D.ITEMS
  12.         Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, E.Columns.Count) = E.Value
  13.         'E.Columns.Count =>¶Ç¦^Eªº¾ã¦CªºÄæ¼Æ
  14.        ' E.Copy Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1)  'copyªº¤èªk
  15.     Next
  16. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD