【VBA】時系列データを指定数行ごとに間引き！始点、終点まで指定可能！

「たくさんデータを集計したけど多すぎるから間引いて減らしたい。」

「グラフの見栄えが悪いので、他のサンプルとデータ数をそろえたい。」

この記事ではこんな悩みを解決するために、エクセルシート上にまとめられた時系列データを指定した行数ごとに一瞬で間引く方法をご紹介します。

ある行数ごとに間引くだけでなく、間引く際のデータ開始点と終点まで指定できるようにしていますので、さまざまな状況に対応できるものになっています。

一度作っておくと非常に便利ですので、ぜひあなたも一緒に作ってみましょう。

それではさっそくやっていきます！

はじめに
手順①エクセルシートを整える
手順②VBAコードを記述する
手順③実行ボタンの作成
実行結果の確認
おわりに

はじめに

まず始めに最終的にどんなエクセルシートが出来上がるのかをご紹介しておきます。

◆この記事を読むことで作成できるエクセルシート

具体的に解説しておくと、

◆A列には集計したデータの時刻が入った状態です。

◆B列にはA列の時刻でのデータが入力されています。

◆A,B列のデータをH列の情報をもとに間引き、その結果がE,F列に記載されます。

※今回は時系列のデータを扱うことを想定しています。

そのため、A列が数字の小さい順にならんでいることを前提に作成しています。

あなたのやりたいことと一致していれば、ぜひ続きをご覧ください。

それではこのシートの作成手順に移っていきましょう。

手順①エクセルシートを整える

まずは以下の画像を参考にエクセルシートを整えてみてください。

もし、この状態から少しでもずれてしまった場合は、あとで紹介するVBAコードを書き換える必要がありますのでご注意ください。

自分でコードを書き換える自信のない人は、上の画像と全くおなじものを作成しておきましょう。

手順②VBAコードを記述する

準備が整ったらVBAコードを記入していきましょう。

※「書き方がわからない！」という方は以下の記事を参考にしてみてください。

www.higashisalary.com

VBAを記述する準備が整ったら、以下のコードをコピペして張り付けましょう。

先ほども説明したように、事前に整えておいたエクセルシートを自分なりにアレンジしている方は必要に応じてコードを書き換えましょう。

◆データ間引き実行VBAコード

Sub data_culling()
    Range(Cells(2, 5), Cells(10000, 6)).Select
    Selection.ClearContents
    '変数の型を宣言
    Dim start_X As Single
    Dim end_X As Single
    Dim delta_X As Integer
    Dim i, j As Integer
    start_X = Cells(2, 8)
    end_X = Cells(4, 8)
    delta_X = Cells(6, 8)
    i = 0
    Do Until Cells(2 + i, 1) >= start_X
        i = i + 1
    Loop
    j = 0
    Do
        Cells(2 + j, 5) = Cells(2 + i, 1)
        Cells(2 + j, 6) = Cells(2 + i, 2)
        j = j + 1
        i = i + delta_X
    Loop Until Cells(2 + i - delta_X, 1) >= end_X Or Cells(2 + i, 1) = ""
End Sub