ActiveSheet.Range ¥i¥H³]©w ¦hÓ¥ý«á±o¿zÅã±Æ§Ç¶Ü?
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
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" |
|
|
|
|
|
|
- ©«¤l
- 60
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 0
- §@·~¨t²Î
- w7-32
- ³nÅ骩¥»
- 2013.2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-11-23
- ³Ì«áµn¿ý
- 2016-6-6
|
¨Ì·Ó»Ý¨D½Õ¾ã- ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=3, Criteria1:="3"
- ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=6, Criteria1:="3"
- ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=1, Criteria1:="3"
- ActiveSheet.Range("$A$1:$GZ$5000").AutoFilter Field:=7, Criteria1:="3"
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
¬O¨Ì·Ó¶¶§Ç´å¤W¨ì¤U±Æ¦C¶Ü¡H |
|
|
|
|
|
|
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
¤W±³o¤èªk ¤£·| ¦³ ¶¶§Çªº¿z¿ï |
|
|
|
|
|
|
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
¶â¶â¡ã
¤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 |
|
|
|
|
|
|
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
¥t¥~ ¤j¤jÌ¡ã§ÚbÄæ¦ì³£¦³¸ê®Æ
©Ò¥H¥i¥H¥Î³o¤@Äæ ¨Ó¿z¿ïªÅ¥Õ®æ |
|
|
|
|
|
|
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
¤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 |
|
|
|
|
|
|