VBA(EXCEL2000) 配列に文字列を格納する方法

VBA(EXCEL2000) 配列に文字列を格納する方法
VBAを使用している初心者です。
文字列の配列宣言と同時にデータを格納する方法を教えて下さい。

'/----現在のコード-----------------------------/
Dim member(47) As String

member(1) = "北海道"
member(2) = "青森県"
member(3) = "岩手県"

'（途中略）

member(46) = "鹿児島県"
member(47) = "沖縄県"
'/--------------------------------------------/

下記のようなコードは実現可能でしょうか？
Dim member() As String = {"北海道", "青森県", "岩手県",（途中略）, "鹿児島県", "沖縄県"}

No.1 ベストアンサー 回答者： DOUGLAS_ 回答日時： 2010/04/20 20:28

　コードウィンドウ に「Array」と入力し [F1] キー を押下してみてください。

　[Array 関数] の ヘルプ が開きますので、[使用例] を クリック して [Array 関数の使用例] を開き、よくお読みください。

Dim member As Variant
Dim i As Integer
member = Array("北海道", "青森県", "岩手県", "宮城県", "秋田県", "山形県", "福島県", "茨城県", "栃木県", "群馬県", "埼玉県", "千葉県", "東京都", "神奈川県", "新潟県", "富山県", "石川県", "福井県", "山梨県", "長野県", "岐阜県", "静岡県", "愛知県", "三重県", "滋賀県", "京都府", "大阪府", "兵庫県", "奈良県", "和歌山県", "鳥取県", "島根県", "岡山県", "広島県", "山口県", "徳島県", "香川県", "愛媛県", "高知県", "福岡県", "佐賀県", "長崎県", "熊本県", "大分県", "宮崎県", "鹿児島県", "沖縄県")
For i = 0 To UBound(member)
Cells(i + 1, 1).Value = member(i)
Next

この回答へのお礼

回答ありがとうございました。
具体的例を示して頂いたので助かります。

お礼日時：2010/05/05 18:06