【VBA】Excelテーブルを昇順で並び替える｜ソート
記事更新日：2022-12-01
指定シートの１番目のテーブルの、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列目の指定のほうがいいかも
指定シートの１番目のテーブルを、指定の列名で昇順で並べ替え
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
編集後記：
この記事の内容がベストではないかもしれません。