Excel VBAを利用した書類の部署別・プロジェクト別整理方法

この記事では、Excel VBAを用いて、書類を部署別やプロジェクト別に整理する処理について詳しく解説します。初心者から上級者まで、手順とコードの詳細、さらには応用例を通じて、効率的な書類整理を学ぶことができます。

Excel VBAを使用した書類の整理

Excel VBAを用いると、大量のデータも素早く整理することが可能です。以下は、部署別やプロジェクト別に書類を整理する基本的なVBAコードとその解説です。

Sub SortByDepartmentOrProject()
    Dim LastRow As Long
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A2:A" & LastRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A1:B" & LastRow)
        .Apply
    End With
End Sub

コードの詳細解説

1. `Dim LastRow As Long`: 最終行を示す変数を宣言します。
2. `Dim ws As Worksheet`: ワークシートを操作するための変数を宣言します。
3. `Set ws = ThisWorkbook.Sheets(“Sheet1”)`: `ws`を現在のワークブックの”Sheet1″として設定します。
4. `LastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row`: シートの最終行を取得します。
5. `With ws.Sort`ブロック内で、データの範囲を指定し、A列を基準に昇順でソートします。

応用例

応用例1: ヘッダー行の考慮

データの1行目にヘッダーが存在する場合、以下のコードでヘッダーを考慮してソートを行うことができます。

With ws.Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

応用例2: 複数のキーでソート

部署とプロジェクトの2つのキーでソートする場合、以下のようにコードを記述できます。

With ws.Sort
    .SortFields.Add Key:=Range("A2:A" & LastRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .SortFields.Add Key:=Range("B2:B" & LastRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .SetRange Range("A1:B" & LastRow)
    .Apply
End With

応用例3: カラーフィルターを用いた整理

特定の色のセルだけを抽出・整理したい場合は、以下のコードを利用します。

ws.Rows("1:1").AutoFilter Field:=1, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor

このコードは、A列のセルの色が赤い場合のみを表示するフィルターを設定します。

まとめ

Excel VBAを利用することで、書類の整理作業を大幅に効率化することが可能です。上記の基本的なコードや応用例を参考に、自身の業務での書類整理をよりスムーズに行いましょう。