ループ内でループを作成する方法

Question

ループ内でこのループを作成して、以下の範囲のセル内に印刷しようとしています - > Week iここで、iは1から6までで、それぞれ1ずつ上がります私たちはセルに移動する時間。

だから、この場合、D2のために私は1週間したい、D3 2週間など。どのようなアイデアですか？私はあなたの時間を感謝します！

Sub INPUT() 
     Sheets("1").Select 
     For Each cell In range("D2:D7") 
     For i = 1 To 6 
     cell.Value = "Week +" & i 
     i = i + 1 
     Next i 
     Next cell 
End Sub 

Answer 1

は1つのだけのループを必要とする：

Sub INPT() 
    With Sheets("1") 
     i = 1 
     For Each cell In .Range("D2:D7") 
      cell.Value = "Week +" & i 
      i = i + 1 
     Next cell 
    End With 
End Sub