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

ActiveSheet.Range ¥i¥H³]©w ¦h­Ó¥ý«á±o¿zÅã±Æ§Ç¶Ü?

ActiveSheet.Range ¥i¥H³]©w ¦h­Ó¥ý«á±o¿zÅã±Æ§Ç¶Ü?

¤j¤j½Ð±Ð¤@­Ó°ÝÃD

±Æ§Ç¿z¿ï¥i¥H³]©w ¥ý«á¶¶§Ç¶Ü?

ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=7, Criteria1:="3"
    ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=6, Criteria1:="3"

¨Ì·Ó»Ý¨D½Õ¾ã
  1. ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=3, Criteria1:="3"
  2. ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=6, Criteria1:="3"
  3. ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=1, Criteria1:="3"
  4. ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=7, Criteria1:="3"
½Æ»s¥N½X

TOP

¬O¨Ì·Ó¶¶§Ç´å¤W¨ì¤U±Æ¦C¶Ü¡H

TOP

¤W­±³o¤èªk ¤£·| ¦³ ¶¶§Çªº¿z¿ï

TOP

¦^´_ 4# vavashop
¬O³o¼Ë¶Ü?
  1. Sub Ex()
  2.     With ActiveSheet.Range("$A$1:$GZ$5000")
  3.         .AutoFilter Field:=7, Criteria1:="3"
  4.         .AutoFilter Field:=6, Criteria1:="3"
  5.         '±Æ§Ç¿z¿ï¥i¥H³]©w ¥ý«á¶¶§Ç¶Ü?
  6.         '¬O³o¼Ë¶Ü!!
  7.         .Columns(1).Sort KEY1:=.Cells(1), Order1:=xlAscending, Header:=xlYes
  8.         .Columns(2).Sort KEY1:=.Cells(2), Order1:=xlAscending, Header:=xlYes
  9.         .Columns(3).Sort KEY1:=.Cells(3), Order1:=xlAscending, Header:=xlYes
  10.     End With
  11. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¶â¶â¡ã
¤j¤j§Ú¦³¤@­ÓºÃ°Ý¡ã
§Úªºvba¶]§¹Åܦ¨200¦hmb

§Ú·Q§ì¿z¿ï¥X¨Óªº¸ê®ÆµM«á¶K¤W ¨ä¥L¤u§@ªí
¤£ª¾¹D

§Ú¬O¤£¬O¦]¬°¤U­±³o¤@¬q©Ò¥HÅܦ¨¶V¨Ó¶V¤j

Range("a2:gz100000").Select
    Selection.Copy

¦]¬°¸ê®Æ¨S¦³¨º»ò¦h §Ú¥u»Ý­na2~gzÄæ¦ì
µM«á¿ï¾Ü¿z¿ï¥X¨Óªº¸ê®Æ½Æ»s°_¨Ó ¶K¦V¥t¤@­Ó¤u§@ªí

²Ä¤G­Ó°ÝÃD¬O²{¦b§Ú«Ü¦h¤u§@ªí "¦C"³£¬OªÅ¥Õªº¦ý¸¹½X³£¨ì¤Q¸U¤F
¤£ª¾¹D½Ö¥i¥H±Ï§Ú
Äæ¦ì¤]¥i¥H¨¹§Ú§R°£¨ìa~gz¯d¤U¨Ó§Y¥i¶Ü¡H

½Ð¦U¦ì¤j¤jÀ°¦£¤F

·Pı·|Ãz¬µªºexcel

TOP

¥t¥~ ¤j¤j­Ì¡ã§ÚbÄæ¦ì³£¦³¸ê®Æ
©Ò¥H¥i¥H¥Î³o¤@Äæ ¨Ó¿z¿ïªÅ¥Õ®æ

TOP

¦^´_ 6# vavashop


    ÀÉ®×Åܤj¡A°Ñ¦Ò kill row
http://forum.twbts.com/viewthrea ... &from=favorites

TOP

¤j¤j
½Ð°Ý³o¤@¬q ¦p¦ó§ï
Sub ¥¨¶°2()
'
' ¥¨¶°2 ¥¨¶°
'

'
  Dim row_s1 As Integer

'Àˬd¤u§@ªí1ªºBÄæ¤w¦³¸ê®Æ¦æ¼Æ
    row_s1 = Worksheets(1).Range("B65535").End(xlUp).Row

'B1µL¸ê®Æ®É¡Arow_s1 =0
    If row_s1 = 1 Then
        If Cells(row_s1, 2) = "" Then
            row_s1 = 0
        End If
    End If
   
   
  
  

   Call a2

Call a1
        
    Range("B2:l9").Select
    Selection.Copy
    Worksheets(1).Select
    Cells(row_s1 + 1, 2).Select
    ActiveSheet.Paste


§Ú·Q§ï¦¨ §ì¥X¿z¿ï«áªº¸ê®Æ
Range("B2:l9").Select

i9  ¸ê®Æ³Ì«á¤£¤@©w¬O¦b³o¤@¦C
¤£ª¾¹D¤j¤j¥i¥H«üÂI¤@¤U¶Ü¡H

TOP

¦^´_ 6# vavashop


   
§Ú¬O¤£¬O¦]¬°¤U­±³o¤@¬q©Ò¥HÅܦ¨¶V¨Ó¶V¤j
Range("a2:gz100000").Select
    Selection.Copy

¸Õ¸Õ¬Ý ¥uCopy¦³¸ê®ÆªºÀx¦s®æ
  1. Sheets("«ü©wªº¤u§@ªí").UsedRange.Columns("a:gz").Offset(1).Copy
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD