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

½Ð°Ýª©¤W¤j¤j³o­Ó­n«ç»ò¼g??

½Ð°Ýª©¤W¤j¤j³o­Ó­n«ç»ò¼g??

A              B               C
100                          100
99                              99
98                              98
97                              97
98                              96
96                              95
95                              94
94
94
95
96

¦p¤W©Ò¥Ü¡GAÄæ·|ÀH¾÷¥X²{¼Æ¦r¡A§Ú·Q­nÅýAÄ檺­È±q¤j¨ì¤p¡A¥B¤£­«½Æ¡A­n¦p¦ó¥ÎVBA¼g¡A½Ðª©¤W¤j¤j¦ø±Ð¡A·PÁÂ

A              B               C
100                          100
99                               ...
ÂŤÑÄR¦À µoªí©ó 2014-2-28 20:49



    PS¡GAÄæ¼Æ¦r·|¼W¥[¡A¨C¤Ñ¼Æ¶q¤£¤@©w

TOP

¦^´_ 2# ÂŤÑÄR¦À

¤£ª¾¦æ¤£¦æ¡A§A¸Õ¤@¤U :

Private Sub Worksheet_Change(ByVal Target As Range)

rs = Range("A1").End(xlDown).Row
Set Rng = Range("A1:C" & rs)
Rng.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlYes, Orientation:=xlTopToBottom

End Sub

TOP

¦^´_ 2# ÂŤÑÄR¦À
¥i¥Î¶i¶¥¿z¿ï, ¤Ä¿ï ¤£¿ï­«ÂЪº°O¿ý
¦p¤£·Q¨C¦¸¾Þ§@ ¶i¶¥¿z¿ï, ¥i¿ý¤U¦A­×§ï,
VBA code ¦p¤U:
  1. Option Explicit
  2. Private Sub CommandButton1_Click()
  3.     Dim cnt As Integer, rng As Range
  4.     cnt = Range("A1").End(xlDown).Row
  5.     [C2].Resize(cnt, 1) = ""
  6.     Set rng = [A2].Resize(cnt, 1)
  7.     rng.AdvancedFilter Action:=xlFilterCopy, _
  8.            CriteriaRange:=rng, _
  9.            CopyToRange:=Range("C2"), Unique:=True
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# ÂŤÑÄR¦À
©êºp, §Ñ¤F CÄ榳±Æ§Ç,
­×¥¿¦p¤U:
  1. Option Explicit
  2. Private Sub CommandButton1_Click()
  3.     Dim cnt As Integer, rng As Range
  4.     cnt = Range("A1").End(xlDown).Row
  5.     [C2].Resize(cnt, 1) = ""
  6.     Set rng = [A2].Resize(cnt, 1)
  7.    
  8.     '¥ý±Æ§Ç (¤]¥i¥H¥ý¿z¿ï, ¦A±Æ§Ç)
  9.     rng.Sort Key1:=Range("A2"), _
  10.           Order1:=xlDescending, _
  11.           Header:=xlYes
  12.     '¦A¿z¿ï, ¤Ä¿ï [¤£­«ÂÐ] ¤Î [¿z±N¿ïµ²ªG½Æ»s¨ì§Oªº¦a¤è]
  13.     rng.AdvancedFilter Action:=xlFilterCopy, _
  14.            CriteriaRange:=rng, _
  15.            CopyToRange:=Range("C2"), Unique:=True
  16. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# seer_et


    ¤j¤j¤£¦æ£°¡Aµ{¦¡·|¶]¡A¦ý·|¥X²{­«½Æ¡A¥B¤£¬O¥X²{¦bCÄæ

TOP

¦^´_ 6# ÂŤÑÄR¦À
¤j¤j§A¦n, ¨S¦³­«ÂаÚ!!
¦p¤U¹Ï:

TOP

¦ý·|¥X²{­«½Æ¡A¥B¤£¬O¥X²{¦bCÄæ
¦^´_ 6# ÂŤÑÄR¦À
·Q¨ì¤F, §A¬O¥Î¤â°Ê ¿z¿ï ªº§a,
°O±o¥Î ¶i¶¥¿z¿ï, ¤Ä¿ï ¤£¿ï­«ÂЪº°O¿ý,
¤Î ¤Ä¿ï ½Æ»s¨ì§O³B¡÷ ½Æ»s¨ì C2
¦p¤U¹Ï:

TOP

¦^´_ 8# yen956


    Y¤j·PÁ§Aªº¦^µª¡A¦ý¦]¬°¸ê®Æ¬O°ÊºA±µ¦¬ªº¡A©Ò¥H¥Î¿ý»s¥¨¶°ªº¤è¦¡¥i¯à¤£¤Ó¦æ£°

TOP

¦^´_ 9# ÂŤÑÄR¦À
¨º´N¥Î5Fªºvba§a!!

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD