CSVデータ整理の達人：VBA/VBSを活用した効率化とキャリアアップ術

この記事では、CSVデータの並べ替えに苦労しているあなたに向けて、VBA（Visual Basic for Applications）やVBS（Visual Basic Script）を活用した効率的なデータ整理術を解説します。特に、転職活動やキャリアアップを目指す中で、データ分析スキルや業務効率化の重要性を感じている方々にとって、実践的な情報を提供します。

csvで並べ替えについて

番号番号２担当者/得意先/現場名日付設定金額1～8

Aさん

◎×工務店

1-1 0 B様邸 ○/○ 100,000

小計 100,000

上記のように出力されるcsvを

担当者得意先番号現場名日付設定金額1～8

Aさん ◎×工務店 1-1 B様邸 ○/○ 100,000

小計 100,000

というように並べ替えたいのですが、数が多すぎるため

VBAやVBSを使用したいと思っているのですが可能でしょうか。

担当者は4名固定で、一番最後に小計の後に合計（全担当のトータル）が表示されます。

設定金額１～８は、8種類の金額があるため8列分という意味で、各設定金額の列毎に小計をが入ります。

現状、担当者・現場名・得意先名が同じ列に入るため表が見づらいため何とか見やすく変更したいです。

どういった関数を使うといいなどのアドバイスをいただけないでしょうか。

宜しくお願い致します。補足投稿した際に列表示がずれてしまいましたが、C列に担当者・得意先・現場名・小計・合計が入ります。

1. はじめに：データ整理の重要性とVBA/VBSの活用

現代のビジネス環境において、データは重要な資産です。特に、営業、マーケティング、経理などの職種では、大量のデータを効率的に処理し、分析する能力が求められます。CSV（Comma Separated Values）形式のデータは、様々なシステムで利用されており、その整理能力は業務効率を大きく左右します。

VBAやVBSは、Microsoft Office製品（Excel、Accessなど）を自動化するための強力なツールです。これらのツールを使用することで、手作業では時間がかかるデータ整理や分析を、短時間で正確に行うことができます。今回のケースのように、CSVデータの並べ替えや整形は、VBA/VBSの得意とするところです。

2. 問題点の分析：現状のCSVデータの課題

ご質問のCSVデータには、いくつかの課題があります。これらの課題を整理し、解決策を検討することが重要です。

列の混在: 担当者、得意先、現場名が1つの列（C列）に混在しているため、データの可視性が低い。
データの量: データ量が多いと、手作業での並べ替えは非効率で、ミスも起こりやすい。
小計と合計: 各設定金額の小計と、全体の合計がデータに混ざっているため、分析の際に邪魔になる可能性がある。

これらの課題を解決するために、VBA/VBSを活用して、データの整形、並べ替え、集計を行います。

3. VBAによる解決策：具体的なコードと解説

ここでは、ExcelのVBAを使用して、CSVデータの並べ替えを行う方法を解説します。以下の手順で、コードを作成し、実行します。

3.1. Excelファイルの準備

Excelを開き、新しいワークブックを作成します。
CSVファイルをExcelにインポートします。「データ」タブの「外部データの取り込み」から「テキストまたはCSVから」を選択し、CSVファイルを選択します。
インポートウィザードで、データの区切り文字（コンマなど）やデータの型を設定します。

3.2. VBAコードの記述

ExcelのVBAエディタを開き、以下のコードを記述します。

「開発」タブ（表示されていない場合は、「ファイル」→「オプション」→「リボンのユーザー設定」で有効化）の「Visual Basic」をクリックします。
VBAエディタで、挿入→標準モジュールを選択し、以下のコードを記述します。


Sub 整列CSVデータ()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long, j As Long
    Dim data() As Variant
    Dim output() As Variant
    Dim 担当者 As String, 得意先 As String, 現場名 As String
    Dim 小計行 As Boolean, 合計行 As Boolean
    Dim 設定金額列数 As Integer, 設定金額行 As Integer

    ' 設定
    設定金額列数 = 8 ' 設定金額の列数
    設定金額行 = 0 ' 設定金額の行数

    ' ワークシートの設定
    Set ws = ThisWorkbook.Sheets(1) ' 最初のシート

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

    ' データの読み込み
    data = ws.Range("A1:H" & lastRow).Value ' データの範囲（列数は適宜調整）

    ' 出力配列の初期化
    ReDim output(1 To lastRow, 1 To 10 + 設定金額列数) ' 出力配列のサイズ調整

    ' ヘッダーの書き込み
    output(1, 1) = "担当者"
    output(1, 2) = "得意先"
    output(1, 3) = "番号"
    output(1, 4) = "現場名"
    output(1, 5) = "日付"
    For j = 1 To 設定金額列数
        output(1, 5 + j) = "設定金額" & j
    Next j
    output(1, 10 + 設定金額列数) = "小計"

    ' データの処理
    Dim outputRow As Long
    outputRow = 2

    For i = 2 To lastRow ' 2行目から開始（1行目はヘッダー）
        ' 小計と合計の判定
        If InStr(1, data(i, 3), "小計", vbTextCompare) > 0 Then
            小計行 = True
        Else
            小計行 = False
        End If

        If InStr(1, data(i, 3), "合計", vbTextCompare) > 0 Then
            合計行 = True
        Else
            合計行 = False
        End If

        If Not 小計行 And Not 合計行 Then
            ' 担当者、得意先、現場名の抽出
            Dim temp As Variant
            temp = Split(data(i, 3), " ")
            If UBound(temp) >= 2 Then
                担当者 = temp(0)
                得意先 = temp(1)
                現場名 = ""
                For k = 2 To UBound(temp)
                    現場名 = 現場名 & temp(k) & " "
                Next k
                現場名 = Trim(現場名)
            Else
                担当者 = ""
                得意先 = ""
                現場名 = ""
            End If

            ' データの書き込み
            output(outputRow, 1) = 担当者
            output(outputRow, 2) = 得意先
            output(outputRow, 3) = data(i, 1) ' 番号
            output(outputRow, 4) = 現場名
            output(outputRow, 5) = data(i, 4) ' 日付
            For j = 1 To 設定金額列数
                output(outputRow, 5 + j) = data(i, 4 + j) ' 設定金額
            Next j
            outputRow = outputRow + 1
        Else
            ' 小計と合計の処理
            If 小計行 Then
                ' 小計行のデータを書き込み
                output(outputRow, 1) = "小計"
                output(outputRow, 10 + 設定金額列数) = data(i, 4) ' 小計金額
                outputRow = outputRow + 1
            ElseIf 合計行 Then
                ' 合計行のデータを書き込み
                output(outputRow, 1) = "合計"
                output(outputRow, 10 + 設定金額列数) = data(i, 4) ' 合計金額
                outputRow = outputRow + 1
            End If
        End If
    Next i

    ' 出力
    ws.Range("J1").Resize(outputRow - 1, 10 + 設定金額列数).Value = output ' 出力範囲の調整
    MsgBox "データ整理が完了しました。"
End Sub

3.3. コードの説明

変数の宣言: ワークシート、最終行、ループカウンタ、データ配列、出力配列、担当者、得意先、現場名、小計行、合計行、設定金額列数、設定金額行を宣言します。
設定: 設定金額の列数を設定します。
ワークシートの設定: 処理対象のワークシートを指定します。
最終行の取得: C列の最終行を取得します。
データの読み込み: データを配列に読み込みます。
出力配列の初期化: 出力用の配列を初期化します。
ヘッダーの書き込み: 出力配列にヘッダーを書き込みます。
データの処理: 各行を処理し、担当者、得意先、現場名を抽出し、出力配列に書き込みます。
小計と合計の判定: 小計行と合計行を判定し、それぞれの処理を行います。
出力: 整理されたデータをワークシートに出力します。
メッセージボックス: 処理完了を通知します。

3.4. コードの実行

VBAエディタで、作成したコードを実行します。
Excelのワークシートに、整理されたデータが出力されます。

4. VBSによる解決策：スクリプトの作成と実行

VBSを使用しても、同様のデータ整理を行うことができます。VBSは、Excelなどのアプリケーションを操作するためのスクリプト言語です。

4.1. VBSスクリプトの作成

メモ帳などのテキストエディタを開き、以下のコードを記述します。


Option Explicit
Dim objExcel, objWorkbook, objSheet
Dim strCSVFile, strOutputFile
Dim arrData, i, lastRow, 担当者, 得意先, 現場名, outputRow
Dim 設定金額列数

' 設定
設定金額列数 = 8 ' 設定金額の列数

' CSVファイルのパス
strCSVFile = "C:pathtoyourcsvfile.csv" ' CSVファイルのパスを指定
strOutputFile = "C:pathtoyouroutputfile.csv" ' 出力ファイルのパスを指定

' Excelオブジェクトの作成
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False ' Excelを非表示にする

' ワークブックのオープン
Set objWorkbook = objExcel.Workbooks.Open(strCSVFile)
Set objSheet = objWorkbook.Sheets(1)

' 最終行の取得
lastRow = objSheet.Cells(Rows.Count, 3).End(xlUp).Row

' データの読み込み
arrData = objSheet.Range("A1:H" & lastRow).Value

' 出力ファイルの準備
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(strOutputFile, True)

' ヘッダーの書き込み
objFile.WriteLine "担当者,得意先,番号,現場名,日付," & Join(Array("設定金額" & i for i = 1 to 設定金額列数), ",") & ",小計"

' データの処理
outputRow = 2
For i = 2 To lastRow
    If InStr(1, arrData(i, 3), "小計", vbTextCompare) = 0 And InStr(1, arrData(i, 3), "合計", vbTextCompare) = 0 Then
        ' 担当者、得意先、現場名の抽出
        Dim temp
        temp = Split(arrData(i, 3), " ")
        If UBound(temp) >= 2 Then
            担当者 = temp(0)
            得意先 = temp(1)
            現場名 = ""
            For k = 2 To UBound(temp)
                現場名 = 現場名 & temp(k) & " "
            Next
            現場名 = Trim(現場名)
        Else
            担当者 = ""
            得意先 = ""
            現場名 = ""
        End If

        ' データの書き込み
        objFile.WriteLine 担当者 & "," & 得意先 & "," & arrData(i, 1) & "," & 現場名 & "," & arrData(i, 4) & "," & Join(Array(arrData(i, 4 + j) for j = 1 to 設定金額列数), ",") & ","
    Else
        ' 小計と合計の処理
        If InStr(1, arrData(i, 3), "小計", vbTextCompare) > 0 Then
            objFile.WriteLine "小計,,,,," & arrData(i, 4)
        ElseIf InStr(1, arrData(i, 3), "合計", vbTextCompare) > 0 Then
            objFile.WriteLine "合計,,,,," & arrData(i, 4)
        End If
    End If
Next

' ファイルのクローズ
objFile.Close

' Excelの終了
objWorkbook.Close
objExcel.Quit

' オブジェクトの解放
Set objSheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
Set objFSO = Nothing
Set objFile = Nothing

WScript.Echo "データ整理が完了しました。"

4.2. コードの説明

設定: CSVファイルのパスと出力ファイルのパスを設定します。
Excelオブジェクトの作成: Excelオブジェクトを作成し、CSVファイルを開きます。
データの読み込み: CSVデータを配列に読み込みます。
出力ファイルの準備: 出力ファイルを作成します。
ヘッダーの書き込み: 出力ファイルにヘッダーを書き込みます。
データの処理: 各行を処理し、担当者、得意先、現場名を抽出し、出力ファイルに書き込みます。
小計と合計の判定: 小計行と合計行を判定し、それぞれの処理を行います。
ファイルのクローズ: 出力ファイルを閉じます。
Excelの終了: Excelを終了させます。
オブジェクトの解放: オブジェクトを解放します。

4.3. コードの実行

テキストエディタで作成したVBSファイルを保存します（例：整理.vbs）。
VBSファイルをダブルクリックして実行します。
指定した場所に、整理されたCSVファイルが出力されます。

5. データ整理スキルを活かしたキャリアアップ

データ整理スキルは、様々な職種で役立ちます。特に、以下のようなキャリアパスを目指す方にとって、VBA/VBSのスキルは強力な武器となります。

データアナリスト: 大量のデータを分析し、ビジネス上の意思決定を支援する。
業務改善コンサルタント: 企業の業務プロセスを分析し、効率化を提案する。
経理・財務: 会計データを整理し、財務分析を行う。
営業企画: 営業データを分析し、戦略立案を支援する。

これらの職種では、データ整理スキルだけでなく、データ分析、問題解決能力、コミュニケーション能力なども求められます。VBA/VBSのスキルを習得することで、これらの能力を向上させ、キャリアアップにつなげることができます。

データ整理スキルを磨き、キャリアアップを目指すあなたを応援するために、wovieでは、あなたのキャリアプランに合わせた求人情報の提供や、面接対策、履歴書の添削など、様々なサポートを提供しています。ぜひ、お気軽にご相談ください。

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

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

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

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

6. まとめ：データ整理スキルを習得し、キャリアアップを目指そう

この記事では、CSVデータの並べ替えを効率化するためのVBA/VBSの活用方法を解説しました。データ整理スキルは、現代のビジネス環境において非常に重要であり、キャリアアップにもつながるスキルです。VBA/VBSを習得し、データ整理能力を高めることで、業務効率を向上させ、より高度な業務に挑戦することができます。

データ整理スキルを活かして、理想のキャリアを実現するために、wovieはあなたのキャリアプランを全力でサポートします。ぜひ、wovieのサービスをご利用ください。

7. 付録：VBA/VBS学習のヒント

オンライン学習: Udemy、Progateなどのオンライン学習プラットフォームで、VBA/VBSの基礎を学ぶことができます。
書籍: VBA/VBSに関する書籍は多数出版されています。自分のレベルに合った書籍を選び、学習を進めましょう。
サンプルコード: インターネット上には、VBA/VBSのサンプルコードが多数公開されています。参考にしながら、自分の目的に合ったコードを作成しましょう。
実践: 実際にデータ整理の業務でVBA/VBSを活用し、スキルを磨きましょう。
コミュニティ: VBA/VBSに関する質問や相談ができるオンラインコミュニティに参加し、他のユーザーと交流しましょう。

これらのヒントを参考に、VBA/VBSの学習を進め、データ整理スキルを習得し、キャリアアップを実現してください。

“`

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

お役立ちコンテンツ

転職体験談

転職ノウハウ

転職コラム

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

まずは登録