stillfish00

¦^´_ 10# billchenfantasy
land_no_m, land_no_c ¨C±iªí³£¦³¶Ü?

1.     If Not (IsError(Application.Match("land_no_m", .Rows(1), 0)) Or _
   
2.             IsError(Application.Match("land_no_c", .Rows(1), 0))) Then
   
3.         .[A1].CurrentRegion.Sort Key1:=.Columns(Application.Match("land_no_m", .Rows(1), 0)), _
   
4.                                     Order1:=xlAscending, _
   
5.                                     Key2:=.Columns(Application.Match("land_no_c", .Rows(1), 0)), _
   
6.                                     Order2:=xlAscending, _
   
7.                                     Header:=xlYes
   
8.     Else
   
9.         MsgBox .Sheets(i).Name & " : Sorting field not found."
   
10.     End If

½Æ»s¥N½X

billchenfantasy

@@¬Oªº¨C±iÄæ¦ì®æ¦¡³£¬O¤@¼Ëªº¡A©Ò¥Hland_no_m, land_no_c ¨C±iªí³£¦³¡A¥u¦³¤Ö¼Æ¤~¦³¦h¤@¦æªºª¬ªp¤~·|·Q»¡«ü©wÄæ¦ì¡A·PÁ±zªº¦A«×¨ó§U

stillfish00

¦^´_ 12# billchenfantasy
®¦ ¸Õ¤F¤@¤U  #10 ªº¨â¦æ¶¶§Ç½Õ´«
µ²ªGÀ³¸Ó¸ò #11 ¤@¼Ë