¿z¿ï«á,±NÀx¦s®æ¸ê®Æ½Æ»s¨ì¨ä¥¦ªÅ¥ÕÀx¦s®æ(¤wª¦¤å
- ©«¤l
- 41
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 79
- ÂI¦W
- 33
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- SP2
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-25
- ³Ì«áµn¿ý
- 2024-11-8
|
¿z¿ï«á,±NÀx¦s®æ¸ê®Æ½Æ»s¨ì¨ä¥¦ªÅ¥ÕÀx¦s®æ(¤wª¦¤å
Àµ½Ð¦U¦ì½ç±Ð,§Ú°µªº½d¨Ò¬On§â©m¦W"AA"¿z¿ï«á¡A§â¸ê®Æ½Æ»s¨ìªÅ¥ÕÀx¦s®æ(¼ÐÃD¦C¤£n)¡A·PÁ |
-
-
222.zip
(16.02 KB)
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 1# rph - Sub Test()
- Dim rngData As Range
- With ActiveSheet
- Set rngData = .Range("A1").CurrentRegion 'A1:C6
- rngData.AutoFilter Field:=1, Criteria1:="AA"
- Set rngData = rngData.Resize(rngData.Rows.Count - 1).Offset(1) 'A2:C6
- rngData.SpecialCells(xlCellTypeVisible).Copy .Range("E14") 'copy to E14
- .AutoFilterMode = False
- End With
- End Sub
½Æ»s¥N½X |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 2832
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2888
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-9
|
With ActiveSheet.AutoFilter.Range
¡@¡@¡@.AutoFilter Field:=1, Criteria1:="AA"
¡@¡@¡@.Offset(1).Copy [E14]
¡@¡@¡@.AutoFilter Field:=1
End With |
|
|
|
|
|
|
- ©«¤l
- 41
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 79
- ÂI¦W
- 33
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- SP2
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-25
- ³Ì«áµn¿ý
- 2024-11-8
|
¦^´_ 4# ã´£³¡ªL
·PÁª©¥D±Ð¾É |
|
|
|
|
|
|
- ©«¤l
- 2
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-7-13
- ³Ì«áµn¿ý
- 2017-12-28
|
¥¿¦nn°µÃþ¦üªºvba¡AÁÂÁÂ¥ý¶iªº±Ð¾É¡A¬ã¨s¤¤ |
|
|
|
|
|
|