返回列表 上一主題 發帖

[發問] 使用者定義的字串排序

本帖最後由 c_c_lai 於 2016-12-11 08:25 編輯

回復 5# 爆肝達人
  1. Sub Ex()
  2.     Dim ct As Long
  3.    
  4.     With 工作表1
  5.         ct = .[A65536].End(3).Row
  6.         .Range("A9:C" & ct).Copy .[F9]
  7.         .Range("F9:H" & ct).Sort Key1:=.[F9], Order1:=xlAscending
  8.     End With
  9. End Sub
複製代碼

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始,每一個時刻都是自己的警惕。
返回列表 上一主題