錦子老師

李小飛：錦子老師您好，想請教下面這個問題：

如果我想要寫一個VBA程序，能將工作表的表格，如下圖，依照姓名排序，不知要如何設計，感謝。

錦子老師：這個問題，我個人的解法如下：

按Alt+F11鍵開啟女VBA視窗。

點取「插入 > 模組」指令，插入一個空白模組工作表。

輸入下列程序：

Sub VBA3286()

    Range("A1:D11").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes

End Sub

執行結果：

Range("A1:D11").Sort

指定排序範圍為A1:D11儲存格範圍，若要將整欄排序則須更改為Columns("A:D").sort

Key1:=Range("A1")

Key1表示為第一階排序欄位，Key後數值代表優先順序，Range(“指定排序欄位”)。

Order1:=xlAscending

Order的值有xlAscending（升冪排序，由小到大）與xlDescending（降冪排序，由大到小）

Header:=xlYes

表示排序範圍是否包標題列，xlYes表示有標題列，xlNo表示不包含標題列。

大家有所幫助~~有什麼問題歡迎留言，我會儘量及時的給大家答覆~~

更多相關影片教學：請點我

更多相關文章：請點我