- ©«¤l
- 396
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 425
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-7-2
- ³Ì«áµn¿ý
- 2022-7-26
|
¦^´_ 6# stevenliu555
§Úè¥Î2007¿ý»s¥X¨Ó¡A¦A¤@Ó¤@ÓºCºC§R¡A³Ìºë²¦ü¥G´N¤@©wn³o¼Ë¤F¡A¦A²¤U¥h´N¤£¯à°õ¦æ¤F¡AÁÙ®¼³Â·Ðªº@@- Sub sortdata()
- Sheets("·|û¦W¥U").Sort.SortFields.Clear
- Sheets("·|û¦W¥U").Sort.SortFields.Add Key:=Range("D2"), Order:=xlAscending '¥ý¥HD2»¼¼W±Æ§Ç
- Sheets("·|û¦W¥U").Sort.SortFields.Add Key:=Range("F2"), Order:=xlAscending '¦A¥HF2»¼¼W±Æ§Ç
- With Sheets("·|û¦W¥U").Sort
- .SetRange Range("A1:J31")
- .Header = xlYes
- .Apply
- End With
- End Sub
½Æ»s¥N½X |
|