如何在循环内创build一个循环vba

我正在尝试在循环内部创build这个循环，以便在下面的范围内的单元格内打印 – >第一周， i从1到6，每当我们移动到一个单元格时，它就会加一。

所以，在这种情况下，对于D2我希望第一周， D3第二周等..任何想法？ 我感谢你的时间！

  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

你只需要一个循环：

 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