Excel VBA Variant型はすべてのデータ型を格納できる汎用的なデータ型

以下のようなシーンで利用されます。

・データの型が事前に不明な場合

・同一変数に異なる型のデータを格納する必要がある

・関数の引数として複数の型のデータを受け取りたい

Option Explicit

Sub VariantExample()
    Dim varData As Variant

    ' 数値を格納
    varData = 123
    MsgBox "数値: " & varData

    ' 文字列を格納
    varData = "Hello, World!"
    MsgBox "文字列: " & varData

    ' 日付を格納
    varData = Date
    MsgBox "日付: " & varData
End Sub

配列を格納する

Option Explicit

Sub VariantArrayExample()
    Dim varArray As Variant
    Dim i As Integer

    ' 配列を格納
    varArray = Array(1, 2, 3, 4, 5)

    ' 配列の要素を表示
    For i = LBound(varArray) To UBound(varArray)
        MsgBox "配列の要素: " & varArray(i)
    Next i
End Sub

オブジェクトを格納する

Option Explicit

Sub VariantObjectExample()
    Dim varObject As Variant
    Dim ws As Worksheet

    ' オブジェクトを格納
    Set varObject = ThisWorkbook.Sheets("Sheet1")

    ' オブジェクトのプロパティを表示
    MsgBox "シート名: " & varObject.Name
End Sub