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

[µo°Ý] ±Æ§Ç«á¦sÀÉ¥¢±Ñ¡A¦Û°Ê­«·s±Ò°Ê¡C

[µo°Ý] ±Æ§Ç«á¦sÀÉ¥¢±Ñ¡A¦Û°Ê­«·s±Ò°Ê¡C

¥»©«³Ì«á¥Ñ av8d ©ó 2022-11-29 11:10 ½s¿è

§Ó¤u.rar (15.01 KB)

±Æ§Ç«á¦sÀÉ¡A´N·|¥X²{
¥Ñ©óµo¥Í°ÝÃD¡A¾É­Pµ{¦¡°±¤î¥¿±`¹B§@¡Awindows±NÃö³¬µ{¦¡¡A¦³¸Ñ¨M¤è®×¥i¥Î®É±N³qª¾±z¡C

ÁٽЪ¾¹Dªº«e½ú­Ì¨ó§U¡AÁÂÁÂ

11/29  11:10
§ä¨ì¤èªk¤F¡A¨Ï¥ÎOn Error Resume Next
µM«á±NApplication.DeleteCustomList listnum:=Application.CustomListCount²¾¨ì³Ì¤W¤è

¦^´_ 1# av8d

¬Ý¤£¤ÓÀ´±zªº°ÝÃD¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
With Range([i1], [e65536].End(3))
    .Sort Key1:=.Item(1), Order1:=1, _
    Key2:=.Item(2), Order2:=1, Header:=1
End With
End Sub

TOP

¦^´_ 1# av8d

¸É¥R»¡©ú
Order1¡BOrder2:
A-Z¤É§Ç= xlAscending ©Î Order1:= 1
Z-A­°§Ç= xlDescending ©Î Order1:= 2

Header
¦³¼ÐÃD¦C: Header=xlYes¡B©Î Header=1 (¤£°Ñ»P±Æ¦C)
µL¼ÐÃD¦C: Header=xlNo¡B©Î Header=2 (°Ñ»P±Æ¦C)
¦Û¦æ§PÂ_: Header=xlGuess¡B©Î Header=0  (¦Û¦æ§PÂ_)

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD