【VBA】Excelテーブルを昇順で並び替える|ソート
記事更新日:2022-12-01
![サムネイル](https://tsukiusagi.biz/wp-content/uploads/2022/09/vba.png)
指定シートの1番目のテーブルの、n列目を昇順で並べ替え
Public Function SortTbl( _
ByVal ws As Worksheet, _
ByVal n As Long)
With ws.ListObjects(1)
.Range.Sort key1:=.ListColumns(n).Range, order1:=xlAscending, Header:=xlYes, dataoption1:=xlSortTextAsNumbers
End With
End Function
![](https://i0.wp.com/tsukiusagi.biz/wp-content/uploads/2022/01/rabbit1-2.png?resize=150%2C150&ssl=1)
列名が変更される可能性がある場合は、n列目の指定のほうがいいかも
指定シートの1番目のテーブルを、指定の列名で昇順で並べ替え
Public Function SortTblByColName( _
ByVal ws As Worksheet, _
ByVal colName As String)
With ws.ListObjects(1)
.Range.Sort key1:=.ListColumns(colName).Range, order1:=xlAscending, Header:=xlYes, dataoption1:=xlSortTextAsNumbers
End With
End Function
![](https://i0.wp.com/tsukiusagi.biz/wp-content/uploads/2022/01/rabbit1-2.png?resize=150%2C150&ssl=1)
列名の指定にすれば、列の並び順が変わっても大丈夫
関連記事
CLICK
2022-12-01
編集後記:
この記事の内容がベストではないかもしれません。