excel vba_range_Aの列に値をセット

 excelの vbaにおいて

Dim num_rows_to_input

num_rows_to_input = 60

Dim target_range01 As Range 

Set target_range01 = Worksheets("Sheet2").Range("A1:A" & num_rows_to_input ) 

というような rangeを取得した後、

この場合の rangeは垂直方向の Aの列の1~num_rows_to_input番目までの

cell の集合を取得していると思うのですが、

これらのcellに for文を使って配列の値を 

そのcellで表示する値としてセットするような

サンプルコードを提示していただけないでしょうか？

↓

もちろんです、Masaakiさん。

ここに、指定されたセル範囲に配列の値をセットするための

サンプルコードを提示します。

この例では、配列の値を「Array(1, 2, 3, ..., 60)」としていますが、

任意の配列に置き換えてください。

```vba

Dim num_rows_to_input As Integer

num_rows_to_input = 60

Dim target_range01 As Range

Set target_range01 = Worksheets("Sheet2").Range("A1:A" & num_rows_to_input)

Dim values_to_input As Variant

values_to_input = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, _

                        21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, _

                        41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60)

Dim i As Integer

For i = 0 To num_rows_to_input - 1

    target_range01.Cells(i + 1, 1).Value = values_to_input(i)

Next i

```

このコードでは、配列 `values_to_input` の値を 

`Sheet2` の A1から A60のセルにセットしています。

配列の要素数が `num_rows_to_input` と

一致していることを確認してください。

他にご質問があれば、お知らせください。