Sub 配列1()
'文字列型の配列「サザエ一家(6)」と、添え字の変数i（数値型）を定義
Dim サザエ一家(6) As String, i As Integer
'ループでiを0から6まで配列の長さ分指定する
For i = 0 To 6
'ExcelのセルB3の磯野波平から順番に配列「サザエ一家」に格納する
サザエ一家(i) = Worksheets("国民的アニメ").Cells(3 + i, 2).Value
'デバックプリントに配列「サザエ一家」を出力する
Debug.Print サザエ一家(i)
'配列の添え字iを進める
Next i
End Sub
Sub 配列3()
'文字列型の配列「サザエ一家」、ループの添え字数値型「i」、Long型の「上端」、Long型の「下端」、Long型の「配列の要素数」、Long型の「このExcelの全ての行数」を宣言
Dim サザエ一家() As String, i As Long, 上端 As Long, _
下端 As Long, 配列の要素数 As Long, このExcelの全ての行数 As Long
'ワークシート「国民的アニメ」をアクティブにする
Worksheets("国民的アニメ").Activate
'このExcelの全ての行数をActiveSheet.Rows.Countを使って求める
このExcelの全ての行数 = ActiveSheet.Rows.Count
'「上端」をセルB1、1行目2列目から下に向かって求める
上端 = Cells(1, 2).End(xlDown).Row
'「下端」を行が「このExcelの全ての行数」で、列がB列（2列目）から上に上がって求める
下端 = Cells(このExcelの全ての行数, 2).End(xlUp).Row
'「配列の要素数」の[7]を下端(10)-上端(2)-1から求める
配列の要素数 = 下端 - 上端 - 1
'ReDimを使って、新たに配列を出力
ReDim サザエ一家(配列の要素数)
'Forループで配列の最初（LBound)から配列の最後(UBound)までを添え字iに代入
For i = LBound(サザエ一家) To UBound(サザエ一家)
'配列「サザエ一家」に、Excelのシート「国民的アニメ」のセルB3からB7までを格納
サザエ一家(i) = Worksheets("国民的アニメ").Cells(上端 + i + 1, 2).Value
'デバックプリントを使って、イミディエイトウィンドウに配列サザエ一家[i]を出力
Debug.Print サザエ一家(i)
'ループを進める
Next i
End Sub
