【VBA】外部ファイルからデータをランダムに取得する方法｜サンプル抽出の自動化

2025年12月26日

経緯

Excel VBA（Visual Basic for Applications）は、日々の作業を効率化するための強力なツールです。今回は、「外部のExcelファイルを開き、そこからランダムにデータを取得して、現在作業中のシートに反映させる方法」をご紹介します。この技術は、大量のデータリストからランダムにサンプルを抽出する際などに非常に便利です。

実装コード

以下が、外部ファイル（例：hayashi.xlsx）を開き、データをランダムに取得するVBAコードです。

Sub FillAdjacentCellFromExternalFile()

    Dim TargetCell As Range
    Dim ExternalWorkbook As Workbook
    Dim DatabaseRange As Range
    Dim RandomText As String
    Dim AdjacentText As String

    ' 対象のセルをアクティブなセルとして設定
    Set TargetCell = ActiveCell

    ' 外部のExcelファイルを開く
    ' ※パスは実際の環境に合わせて変更してください
    Set ExternalWorkbook = Workbooks.Open("C:\Users\mori\デスクトップ\hayashi.xlsx")

    ' データベースの範囲を設定 (例: シート2のC1:C100)
    Set DatabaseRange = ExternalWorkbook.Sheets(2).Range("C1:C100")

    ' ランダムに文字を取得 & 隣のセルの文字も取得
    RandomText = GetRandomText(DatabaseRange, AdjacentText)

    ' アクティブセルにランダムに取得したデータを設定
    TargetCell.Value = RandomText
    
    ' アクティブセルの8つ右のセルに、取得したセルの隣のデータを設定
    TargetCell.Offset(0, 8).Value = AdjacentText

    ' メッセージボックスで取得した文字を表示
    MsgBox "取得した文字: " & RandomText

    ' 外部のExcelファイルを閉じる（変更を保存せず）
    ExternalWorkbook.Close SaveChanges:=False

End Sub

Function GetRandomText(rng As Range, ByRef AdjacentData As String) As String
    Dim RandomIndex As Long
    Dim MaxRow As Long

    Randomize ' 乱数系列を初期化

    ' ランダムにインデックスを取得
    MaxRow = rng.Rows.Count
    RandomIndex = Int((MaxRow - 1 + 1) * Rnd + 1)
    
    ' 隣の列（指定範囲の2列目）のデータを取得
    AdjacentData = rng.Cells(RandomIndex, 2).Value

    ' ランダムに取得した文字（指定範囲の1列目）を返す
    GetRandomText = rng.Cells(RandomIndex, 1).Value

    ' 診断情報を表示
    MsgBox "最大の行数: " & MaxRow & vbCrLf & _
           "ランダムに選択されたインデックス: " & RandomIndex & vbCrLf & _
           "取得されたテキスト: " & GetRandomText

End Function

コードの構造と解説

このコードは、大きく分けて2つの部分から構成されています。

1. メイン処理：Sub FillAdjacentCellFromExternalFile

このサブルーチンの役割は、全体の流れを制御することです。

ファイル操作: Workbooks.Open で指定したパスのExcelファイルを開きます。
範囲指定: 外部ファイルの2番目のシートの C1:C100 をデータ範囲として設定しています。
書き込み: 取得したデータを ActiveCell（選択中のセル）と、そこから Offset(0, 8)（8列右）の位置に書き込みます。
後処理: 処理が終わったら ExternalWorkbook.Close で外部ファイルを閉じ、メモリや画面の状態を整理します。

2. ランダム取得機能：Function GetRandomText

この関数は、指定範囲からランダムな1行を選び出す計算を担っています。

乱数の生成: Randomize ステートメントで乱数のシードを初期化し、Rnd 関数を使ってランダムな行番号（インデックス）を決定します。
値の取得: 決定した行番号に基づき、1列目の値（戻り値用）と、2列目の値（参照渡し用 AdjacentData）を取得します。

注意点と改善の余地

このコードを実務で使用する際は、以下の点にご注意ください。

ファイルパスの指定: コード内のパス（C:\Users\mori\...）は固定されています。ファイル名や場所が変わるとエラーになるため、実際の環境に合わせて書き換える必要があります。
エラーハンドリング: ファイルが存在しない場合や、シートが存在しない場合のエラー処理が含まれていません。業務利用の際は On Error GoTo 等を追加するとより堅牢になります。
データ範囲: 現在は C1:C100 と固定されていますが、データ量が変わる場合は .End(xlUp) などを使って動的に最終行を取得する方法への変更が推奨されます。