’並べ替え
Range("セル範囲").Sort _
Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
Range.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)
Key1:最初の並べ替えフィールドを範囲名 (文字列) またはRangeオブジェクトで指定
Order1:xlAscending (昇順・既定値) / xlDescending (降順)
Header:xlNo (見出しなし・既定値) / xlYes (見出しあり)
前の設定(ワークシートで手作業でやった並べ替えのオプションも含む)が引き継がれるオプション
MatchCase/Orientation/SortMethodなど
' 重複データの削除 指定列 1列名
Range("セル範囲").RemoveDuplicates Columns:=1, Header:=xlNo
' 重複データの削除 指定列 複数
Range("セル範囲").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo
Columns:重複をチェックする列の指定
Array 関数を使用して複数の列を指定(組み合わせで重複をチェック)
重複の判定は指定した列での完全一致
Header:ヘッダーがある場合、xlYes、ヘッダーがない場合、xlNoを指定
'最終行を取得する(A列を基準)
dim cnt as long
cnt = Cells(Rows.Count, 1).End(xlUp).Row
又は
cnt = Cells(Rows.Count, "A").End(xlUp).Row