VBコードから新しい空白シートに繰り返し数値を送信する方法

Question

こんにちは私はVBエクセルからコードを書くことが可能であり、コードから繰返し番号を例えば1列に送信して9回繰り返す同じ列の2 9回と3 9回が66までの各数字に対して9回繰り返されます。可能であれば、私にコード例を教えてください。私はVBの新機能です

Dim Target As Worksheet 
Dim x As Long 
Set Target = ActiveWorkbook.Worksheets("Display") 
'Write "I will not chew gum in class" 100 times 
    For x = 1 To 100 
    Debug.Print x & ". 9." 
    Next x 

Answer 1

あなたは正しいパスにいます。前述のように、を使用するのではなく、セルに値を設定します。

Sub t() 
Dim numStart As Long, numEnd As Long, i As Long, nextRow As Long 
numStart = 1 
numEnd = 66 
nextRow = 1 

With Worksheets("Display") 
    For i = numStart To numEnd ' From column A to I (1 to 9) 
     .Range(.Cells(nextRow, 1), .Cells(nextRow + 8, 1)).Value = i 
     nextRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 
    Next i 
End With 
End Sub