銀河鉄道

TsukiUsagiBlog

【VBA】Excelテーブルを昇順で並び替える｜ソート

作成日：2022-12-01

更新日：2022-12-09

サムネイル
テーブルをソートする

指定シートの１番目のテーブルの、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

【VBA】Excelテーブルを初期化する

CLICK

【VBA】Excelテーブルのデータを配列で取得する

CLICK

【VBA】Excelテーブルの指定した位置に行を追加する

著者

author
月うさぎ

2022-12-01

編集後記：
この記事の内容がベストではないかもしれません。

記事一覧