[µo°Ý]²£¥Í·sªº¬¡¶¤§«á,¦p¦ópºâ¥X«e¤@Ó¬¡¶ªº¯S©w¸ê®Æ¦aÓ¼Æ
- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 18
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-6-23
- ³Ì«áµn¿ý
- 2014-12-26
|
[µo°Ý]²£¥Í·sªº¬¡¶¤§«á,¦p¦ópºâ¥X«e¤@Ó¬¡¶ªº¯S©w¸ê®Æ¦aÓ¼Æ
³o¬O®Ñ¥»¤Wªº½d¨ÒÀÉ,¬O¦b¤@Ó¬¡¶ªí¤¤©â¨ú¥X¤£«½Æªº¸ê®Æ¦Ü¥t¤@Ó·s²£¥Íªº¬¡¶
§Ú·Q¦b·sªº¬¡¶BÄæcount¤¤Åã¥Ü¥X¨C¤@Ó°Ó«~ªº¼Æ¶q¦³´XÓ,½Ð°Ý¦³¤j¤j¥i¥H±Ð§Ú¦p¦ó¼g¶Ü?
Sub ©â¨ú¥X³c½æ°Ó«~¦WºÙ()
Dim ¹ï¶HÄæ As Range
Set ¹ï¶HÄæ = Range("E3")
Range(¹ï¶HÄæ, ¹ï¶HÄæ.End(xlDown)). _
AdvancedFilter _
Action:=xlFilterInPlace, _
Unique:=True
Worksheets.Add After:=ActiveSheet
ActiveSheet.Previous.Activate
Range(¹ï¶HÄæ, ¹ï¶HÄæ.End(xlDown)).Copy
ActiveSheet.Next.Activate
Range("A1").PasteSpecial
Selection.Columns.AutoFit
ActiveSheet.Previous.ShowAllData
ActiveSheet.Range("B1") = "Count"
End Sub
©â¨ú¥X¤£«½Æªº¸ê®Æ.rar (20.62 KB)
·PÁÂ@@ |
|
HI~§A¦n§r
|
|
|
|
|
- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 18
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-6-23
- ³Ì«áµn¿ý
- 2014-12-26
|
|
HI~§A¦n§r
|
|
|
|
|