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

前提・実現したいこと

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を使うコードは誤りなのでしょうか。

行動規範の内容に同意します

回答1件

ベストアンサー

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

VBA
1Option Explicit
2Option Base 1
3
4Sub test1()
5
6    Dim rowcount As Long '数値なのでLong型
7    Dim data() As Variant
8
9    rowcount = Cells(Rows.Count, 1).End(xlUp).Row
10    
11    If rowcount = 1 Then
12        ReDim data(1, 1)
13        data(1, 1) = Cells(1, 1).Value
14    Else
15        data = Range(Cells(1, 1), Cells(rowcount, 1)).Value
16    End If
17End Subド