Excel VBA初心者でもできる！得意先別データ振り分けマクロ作成術：業務効率化でキャリアアップを目指そう

この記事では、Excel VBA初心者の方でも、得意先別のデータを効率的に振り分けるマクロを作成する方法を、具体的なケーススタディを通して解説します。日々の業務でExcelを使い、データ整理に手間を感じている方、VBAに興味はあるけれど、何から手をつければ良いのか分からないという方に向けて、分かりやすくステップバイステップで解説します。この記事を読めば、VBAの基礎知識から、実際のコードの書き方、そして業務効率化に繋がる応用テクニックまで、幅広く習得できます。あなたのキャリアアップ、スキルアップに必ず役立つはずです。

Excel VBA で質問があります。

添付画像のC(得意先略称)を読み込み、A→シートA・B→シートBへのように、それぞれのシートへデータを振り分けたいと考えています。マクロの組み方を教えて頂けますか？

補足

説明が下手でスミマセン。VBAプログラム初心者で、プログラムも書けません。どのようなVBAになるか？教えて頂ければ幸いです。

ケーススタディ：株式会社〇〇のデータ管理

今回のケーススタディでは、架空の会社「株式会社〇〇」のデータ管理を例に、VBAマクロの作成方法を解説します。株式会社〇〇では、顧客データ、売上データ、在庫データなど、様々なデータをExcelで管理しています。これらのデータを効率的に管理するために、得意先別（得意先略称）にシートを分け、必要なデータを振り分けるVBAマクロを作成します。

ステップ1：VBAの基礎知識

VBA（Visual Basic for Applications）は、Microsoft Office製品（Excel、Word、Outlookなど）を自動化するためのプログラミング言語です。VBAを使うことで、繰り返し行う作業を自動化したり、複雑な処理を簡単に実行したりすることができます。VBAを始めるにあたって、以下の基礎知識を理解しておきましょう。

VBAエディタの開き方： Excelの「開発」タブをクリックし、「Visual Basic」ボタンをクリックすると、VBAエディタが開きます。「開発」タブが表示されない場合は、「ファイル」→「オプション」→「リボンのユーザー設定」で「開発」にチェックを入れてください。
モジュール： VBAのコードは、モジュールと呼ばれる場所に記述します。VBAエディタで、メニューバーの「挿入」→「標準モジュール」を選択すると、新しいモジュールが作成されます。
変数： 変数は、データを一時的に保存するための入れ物です。変数を宣言するには、「Dim」キーワードを使用します。例：Dim myValue As String
データ型： データ型は、変数に保存できるデータの種類を指定します。主なデータ型には、Integer（整数）、String（文字列）、Date（日付）、Boolean（真偽値）などがあります。
オブジェクト： Excelのシート、セル、ブックなどは、オブジェクトとして扱われます。オブジェクトを操作するには、プロパティ（属性）やメソッド（操作）を使用します。
プロパティ： オブジェクトの属性を表します。例：Worksheets("Sheet1").Name（シートの名前）
メソッド： オブジェクトに対して実行できる操作を表します。例：Worksheets("Sheet1").Activate（シートをアクティブにする）

ステップ2：マクロの作成 – データ振り分けの基本

それでは、得意先別のデータを振り分けるVBAマクロを作成していきましょう。まずは、基本的な流れを理解するために、以下のステップで進めます。

シートの準備： データが入力されているシート（例：Sheet1）と、振り分け先のシート（例：SheetA、SheetB）を用意します。SheetA、SheetBは、あらかじめ作成しておく必要があります。
コードの記述： VBAエディタで、新しいモジュールを作成し、以下のコードを記述します。
コードの実行： 作成したマクロを実行し、データが正しく振り分けられるか確認します。

以下に、基本的なデータ振り分けのマクロコードを示します。このコードは、C列（得意先略称）の値に基づいて、データをそれぞれのシートに振り分けます。


Sub データ振り分け()

    Dim wsData As Worksheet ' データが入力されているシート
    Dim wsA As Worksheet ' シートA
    Dim wsB As Worksheet ' シートB
    Dim lastRow As Long ' 最終行
    Dim i As Long ' ループカウンタ
    Dim 得意先略称 As String ' 得意先略称の値

    ' シートオブジェクトを設定
    Set wsData = ThisWorkbook.Sheets("Sheet1") ' データシート名を変更してください
    Set wsA = ThisWorkbook.Sheets("SheetA") ' シートAの名前を変更してください
    Set wsB = ThisWorkbook.Sheets("SheetB") ' シートBの名前を変更してください

    ' 最終行を取得
    lastRow = wsData.Cells(Rows.Count, "C").End(xlUp).Row ' C列の最終行を取得

    ' ヘッダー行をコピー
    wsData.Rows(1).Copy wsA.Rows(1)
    wsData.Rows(1).Copy wsB.Rows(1)

    ' データ振り分け処理
    For i = 2 To lastRow ' 2行目から最終行までループ
        得意先略称 = wsData.Cells(i, "C").Value ' C列の値を取得

        Select Case 得意先略称
            Case "A"
                wsData.Rows(i).Copy wsA.Cells(Rows.Count, 1).End(xlUp).Offset(1) ' シートAにコピー
            Case "B"
                wsData.Rows(i).Copy wsB.Cells(Rows.Count, 1).End(xlUp).Offset(1) ' シートBにコピー
            Case Else
                ' その他（エラー処理など）
        End Select
    Next i

    MsgBox "データ振り分けが完了しました。"

End Sub

コードの解説：

変数の宣言： Dimキーワードを使用して、必要な変数を宣言します。シートオブジェクト、最終行、ループカウンタ、得意先略称など、データの処理に必要な変数を定義します。
シートオブジェクトの設定： Setキーワードを使用して、各シートのオブジェクトを設定します。シート名を正しく指定してください。
最終行の取得： lastRow = wsData.Cells(Rows.Count, "C").End(xlUp).Row は、C列の最終行の行番号を取得します。データ範囲を自動的に判断するために重要です。
ヘッダー行のコピー： wsData.Rows(1).Copy wsA.Rows(1) は、ヘッダー行（1行目）をシートAとシートBにコピーします。
データ振り分け処理： For...NextループとSelect Caseステートメントを使用して、データを振り分けます。C列の値に基づいて、それぞれのシートにデータをコピーします。
エラー処理： Case Else は、C列の値が”A”または”B”以外の場合の処理を記述します。必要に応じて、エラーメッセージを表示したり、別のシートに振り分けたりすることができます。
MsgBox： 処理が完了したことをユーザーに通知します。

ステップ3：コードのカスタマイズと応用

上記の基本的なマクロを、あなたの実際のデータに合わせてカスタマイズしましょう。また、応用的なテクニックを習得することで、より高度なデータ管理が可能になります。

3.1 シート名の変更

マクロ内のシート名（例：Sheet1、SheetA、SheetB）を、あなたのExcelファイルで使用しているシート名に合わせて変更してください。シート名が異なると、マクロは正しく動作しません。


    Set wsData = ThisWorkbook.Sheets("データ") ' データシート名を変更してください
    Set wsA = ThisWorkbook.Sheets("得意先A") ' シートAの名前を変更してください
    Set wsB = ThisWorkbook.Sheets("得意先B") ' シートBの名前を変更してください

3.2 振り分け条件の追加

Select Caseステートメントに、他の得意先略称を追加することで、さらに多くのシートにデータを振り分けることができます。


            Case "C"
                wsData.Rows(i).Copy wsC.Cells(Rows.Count, 1).End(xlUp).Offset(1) ' シートCにコピー
            Case "D"
                wsData.Rows(i).Copy wsD.Cells(Rows.Count, 1).End(xlUp).Offset(1) ' シートDにコピー

3.3 エラー処理の追加

Case Elseで、振り分け条件に合致しないデータに対する処理を記述します。例えば、エラーメッセージを表示したり、ログファイルに記録したりすることができます。


            Case Else
                MsgBox "エラー：得意先略称が不正です。" & vbCrLf & "行番号：" & i & vbCrLf & "得意先略称：" & 得意先略称
                ' ログファイルへの記録など、他の処理も追加可能

3.4 複数の列を条件に

複数の列を条件にデータ振り分けを行うことも可能です。例えば、得意先略称と、さらに別の条件（例：商品の種類）を組み合わせて振り分けることができます。


        If wsData.Cells(i, "C").Value = "A" And wsData.Cells(i, "D").Value = "商品X" Then
            wsData.Rows(i).Copy wsA.Cells(Rows.Count, 1).End(xlUp).Offset(1)
        ElseIf wsData.Cells(i, "C").Value = "B" And wsData.Cells(i, "D").Value = "商品Y" Then
            wsData.Rows(i).Copy wsB.Cells(Rows.Count, 1).End(xlUp).Offset(1)
        End If

3.5 データの追加

振り分けられたデータに、日付や担当者などの情報を追加することもできます。これにより、データの追跡や分析が容易になります。


            Case "A"
                wsData.Rows(i).Copy wsA.Cells(Rows.Count, 1).End(xlUp).Offset(1)
                wsA.Cells(wsA.Cells(Rows.Count, 1).End(xlUp).Row, "G").Value = Date ' 現在の日付を追加
                wsA.Cells(wsA.Cells(Rows.Count, 1).End(xlUp).Row, "H").Value = "田中" ' 担当者を追加

ステップ4：業務効率化への応用

作成したVBAマクロを、日々の業務に活用することで、大幅な業務効率化が期待できます。例えば、以下のような場面で役立ちます。

顧客データの整理： 顧客データを、得意先別、地域別、担当者別などに振り分けることで、顧客管理が容易になります。
売上データの分析： 売上データを、商品別、期間別、得意先別などに振り分けることで、売上分析が効率的に行えます。
在庫管理： 在庫データを、商品別、倉庫別などに振り分けることで、在庫管理の精度が向上します。
レポート作成の自動化： 定期的に作成するレポートを、VBAマクロで自動化することで、作成時間を大幅に短縮できます。

これらの応用例を通じて、あなたの業務をよりスムーズに進め、時間と労力を節約し、より重要な業務に集中できるようになります。VBAスキルを習得することで、データ分析の精度を高め、より戦略的な意思決定を支援することも可能になります。これは、あなたのキャリアアップに大きく貢献するでしょう。

ステップ5：さらなるスキルアップのために

VBAスキルをさらに向上させるために、以下の方法を試してみましょう。

書籍やオンライン教材の活用： VBAに関する書籍やオンライン教材は豊富にあります。基礎から応用まで、体系的に学ぶことができます。
VBAコミュニティへの参加： VBAに関する質問をしたり、他のユーザーと情報交換したりすることで、モチベーションを維持し、スキルアップに繋げることができます。
実際の業務での活用： 実際にVBAを使って、日々の業務を効率化することで、実践的なスキルを習得できます。
VBAに関する資格取得： VBAに関連する資格を取得することで、あなたのスキルを客観的に証明し、キャリアアップに繋げることができます。

これらのステップを踏むことで、VBAスキルを継続的に向上させ、あなたのキャリアをさらに発展させることができます。

もっとパーソナルなアドバイスが必要なあなたへ

この記事では一般的な解決策を提示しましたが、あなたの悩みは唯一無二です。
AIキャリアパートナー「あかりちゃん」が、LINEであなたの悩みをリアルタイムに聞き、具体的な求人探しまでサポートします。

今すぐLINEで「あかりちゃん」に無料相談する

無理な勧誘は一切ありません。まずは話を聞いてもらうだけでも、心が軽くなるはずです。

まとめ：Excel VBAをマスターして、業務効率化とキャリアアップを実現しよう

この記事では、Excel VBAを使って、得意先別のデータを効率的に振り分ける方法を解説しました。VBAの基礎知識から、実際のコードの書き方、そして業務効率化に繋がる応用テクニックまで、幅広く学ぶことができました。VBAを習得することで、日々の業務を効率化し、データ分析の精度を高め、あなたのキャリアアップに繋げることができます。ぜひ、この記事で学んだことを活かして、あなたの業務効率化とキャリアアップを実現してください。

もし、この記事を読んでもまだ疑問が残る場合や、さらに詳しい情報が必要な場合は、お気軽にご質問ください。あなたのVBAスキル習得を全力でサポートします。

“`

コメントするコメントをキャンセル

お役立ちコンテンツ

転職体験談

転職ノウハウ

転職コラム

コミュ力が、
最強の武器
になる。

まずは登録