【VBA】指定したセルの隣にデータベースからランダムな値を自動入力する方法

2023年12月24日2025年12月22日

ExcelのVBAを使えば、データベースとして設定したセル範囲からランダムに値を抽出して、自動で指定セルの隣に入力する処理が簡単に実現できます。
今回は、A1:A100の範囲をデータベースと見立て、そこからランダムに1件を取得し、アクティブセルの右隣に出力するマクロを作成しました。

実現したい内容

データベースとなるセル範囲（例：Sheet1!A1:A100）からランダムに1件取得
任意のセル（指定セル）の右隣（隣接セル）に出力
ActiveCellを起点とし、選択されたセルを自動処理対象とする

使用したVBAコード

以下が今回作成したVBAコードです。任意のセルを選択し、マクロを実行するだけで、隣のセルにランダムなデータが入力されます。

Sub FillAdjacentCell()

    Dim TargetCell As Range
    Dim DatabaseRange As Range
    Dim RandomIndex As Long
    Dim MaxRow As Long
    
    ' 対象のセルをアクティブなセルとして設定
    Set TargetCell = ActiveCell
    
    ' データベースの範囲を設定 (例: A1:A100)
    Set DatabaseRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A100")
    
    ' ランダムにインデックスを取得
    MaxRow = DatabaseRange.Rows.Count
    RandomIndex = Int((MaxRow - 1 + 1) * Rnd + 1)
    
    ' 隣のセルにランダムに取得したデータを設定
    TargetCell.Offset(0, 1).Value = DatabaseRange.Cells(RandomIndex, 1).Value

End Sub

コードの補足

Set TargetCell = ActiveCell
　対象とするセルは、ユーザーが事前に選択しておくセルです。どの行・列でも対応可能です。
DatabaseRange = Range("A1:A100")
　ここがデータベースとなるセル範囲です。必要に応じて範囲を変更してください。
RandomIndex = Int((MaxRow - 1 + 1) * Rnd + 1)
　Rnd関数を使用して、1〜100までの整数をランダムに生成しています。
TargetCell.Offset(0, 1)
　指定セルの右隣のセルを表します。左に入れたい場合は Offset(0, -1)、下に入れたい場合は Offset(1, 0) に変更可能です。