【VBA】Excelテーブルを昇順で並び替える|ソート
記事更新日:2022-12-01

指定シートの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

列名が変更される可能性がある場合は、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

列名の指定にすれば、列の並び順が変わっても大丈夫
関連記事
CLICK
2022-12-01
編集後記:
この記事の内容がベストではないかもしれません。