【ExcelVBA】データのソートを行う。

エクセルVBAでソートを実施する
（数字のみで）

'With ActiveSheet '対象シートをアクティブにする
    
    .Sort.SortFields.Clear '並び替え条件をクリア
    '項目1 ==========================================
    .Sort.SortFields.Add _
        Key:=ActiveSheet.Cells(1, 2), _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending, _
        DataOption:=xlSortNormal
'==================================================

    '項目2
    .Sort.SortFields.Add _
        Key:=ActiveSheet.Cells(1, 1), _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending, _
        DataOption:=xlSortNormal     
    With .Sort '並び替えを実行する
        .SetRange Range(Cells(1, 1), Cells(9999, 4))　　’（ソートする範囲を指定）
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With

【その他】
①シートを指定してのソートは下記内容となります。
　With Worksheets("データ")
②        Key:=ActiveSheet.Cells(1, 2),  ソートする項目　例はB列をソート
③ソートする項目は増やすことが可能（項目をコピーして追記する）

最終行と最終列の取得方法

 

パソコン知識の覚書

 

【Ctrl】+【D】上の行をコピーする。

２０２０年４月１３日覚書

Excel作業の時短操作方法

上の行をコピーして同じ行を２行作成する。

 

下記表の４行目を５行目にコピーします。

まず空白の５行目を選択する。

次の【Ctrl】+【D】を押すと同じ内容がコピーされる。

コピー作業の効率化が図れます。

端数処理

２０２０年４月１１日

VBAでも使用用途がいろいろあります。

切り上げ
Application.RoundUp

四捨五入
Application.Round

切り捨て
Application.RoundDown

 

画面更新を止める。

２０２０年４月１１日覚書

処理速度を少しでも速くするために使用します。

画面更新を停止
Application.ScreenUpdating = False

画面更新停止を解除する。
Application.ScreenUpdating = True

【Mod】余りを求める

２０２０年４月６日覚書

余りを求める。

余り　=   A（割られる数）　Mod　Ｂ（割る数）

処理回数を確認したりする時に必要である。