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