【VBA】オブジェクト（Range/Worksheetなど）を返す関数の作り方 (Set)

2025年8月17日

はじめに

VBAのFunctionは、通常、数値や文字列といった「値」を返します。しかし、より高度な使い方として、セル範囲（Range）やワークシート（Worksheet）といった「オブジェクト」そのものを戻り値として返すことができます。

オブジェクトを返す関数を作成できると、「特定の条件に合致するセル範囲を探して、その範囲を返す」といった、非常に再利用性の高い部品（ツール）を作れるようになります。

この記事では、Rangeオブジェクトを戻り値として返すオリジナル関数を例に、その作り方と使い方、そして重要な Set キーワードの役割を解説します。

オブジェクトを返す`Function`のサンプルコード

この例では、指定されたワークシートの中から、データが入力されている最後のセルを探し出し、そのセル（Rangeオブジェクト）を返す FindLastCell という関数を作成します。

完成コード

' === 指定されたシートの最終セル(Rangeオブジェクト)を返すFunction ===
Function FindLastCell(targetSheet As Worksheet) As Range
    Dim lastRow As Long
    Dim lastCol As Long
    
    ' データが存在する最終行と最終列をそれぞれ取得
    lastRow = targetSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    lastCol = targetSheet.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    
    ' Setキーワードを使って、戻り値にRangeオブジェクトを代入
    Set FindLastCell = targetSheet.Cells(lastRow, lastCol)
End Function


' === 作成したFunctionを呼び出すSubプロシージャ ===
Sub Test_FindLastCell()
    Dim reportSheet As Worksheet
    Dim lastCell As Range
    
    Set reportSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' --- Functionを呼び出し、戻り値のRangeオブジェクトを変数に格納 ---
    ' オブジェクトを受け取る際にもSetキーワードが必要
    Set lastCell = FindLastCell(reportSheet)
    
    ' --- 取得したオブジェクトのプロパティを利用 ---
    ' lastCellはRangeオブジェクトなので、.Address や .Value などのプロパティが使える
    MsgBox "最後のセルは " & lastCell.Address & " です。" & vbCrLf & _
           "そのセルの値は「" & lastCell.Value & "」です。", vbInformation
           
    ' 取得したセルに色を付ける
    lastCell.Interior.Color = vbYellow
End Sub

コードの解説

`Function FindLastCell(...) As Range`

Function の最後に As Range と指定することで、この関数が返す戻り値のデータ型が Range オブジェクトであることを定義しています。As Worksheet とすれば、ワークシートオブジェクトを返す関数になります。

`Set FindLastCell = targetSheet.Cells(lastRow, lastCol)`

この一行が、オブジェクトを返す Function の最も重要なポイントです。

数値や文字列といった「値」を戻り値にするときは FunctionName = 値 と書きます。
一方、RangeやWorksheetなどの「オブジェクト」を戻り値にするときは、必ず Set キーワードを付けて Set FunctionName = オブジェクト と書く必要があります。

Set を付け忘れると、オブジェクトそのものではなく、オブジェクトの既定のプロパティ（Rangeなら.Value）を返そうとしてしまい、型が一致せずにエラーとなります。