動的配列にRangeで範囲の値を一括代入 データ数1以下でエラー

Question

前提・実現したいこと

Exce2016でVBAによるシステムを構築しています。
動的配列に、ある範囲の値を一括で代入する方法を検討しています。

発生している問題・エラーメッセージ

データ数が2以上（2行以上）であればエラーは発生しないのですが、
1以下だと「実行時エラー13　型が一致しません」のエラーが発生します。

該当のソースコード

Sub test1()

Dim rowcount As Variant
Dim data() As Variant

rowcount = Cells(Rows.Count, 1).End(xlUp).Row

ReDim data(rowcount, 0)
data = Range(Cells(1, 1), Cells(rowcount, 1)).Value

End Sub

試したこと

forのループでセルの値を一つ一つ配列に代入する方法であれば
データ数が1でもエラーが発生しなかったので取り急ぎその方法で回避しました。
上記のRangeを使うコードは誤りなのでしょうか。

Answer 1

エラーを回避する方法として、データ数１を別処理としてみました。
この場合、Option Base 1　を用い、配列のインデックスを１始まりとすれば、
動的配列にセル範囲を一括で代入する場合とも整合が図れます

Option Explicit
Option Base 1

Sub test1()

    Dim rowcount As Long '数値なのでLong型
    Dim data() As Variant

    rowcount = Cells(Rows.Count, 1).End(xlUp).Row
    
    If rowcount = 1 Then
        ReDim data(1, 1)
        data(1, 1) = Cells(1, 1).Value
    Else
        data = Range(Cells(1, 1), Cells(rowcount, 1)).Value
    End If
End Subド

Comments

[khtt]

ご回答ありがとうございました。
早速この処理を取り入れてみたいと思います。

なぜこのエラーが発生するか、理由についてもご教授いただけますと幸いです。