VBA | たまに使うシリーズ

並べ替え

Call db.Range("A2:E400").Sort(Key1:=db.Range("B2"),Order1:=xlDescending)
Call db.Range("A2:E400").Sort(Key1:=db.Range("A2"), Order1:=xlAscending)

数式をソートするとバグるので注意。ソートしなくて良い。

重複削除

db.Range("A1:E40000").RemoveDuplicates (Array(1, 2, 3, 4, 5))

ワイルドカードでファイル開く

Dim Folder_name: Folder_name = "C:\2021_Hello\"
Dim File_name: File_name = Dir(Folder_name & "aiu*")
Workbooks.Open Filename:=Folder_name & File_name

Dir関数が返すのはファイル名