如何在循环vba中创建循环

Question

我正在尝试在循环内创建此循环，以便在以下范围内的单元格内打印 - ＆gt; i周i，其中D2为1到6，每次我们移动到单元格时它会加1 ...

所以，在这种情况下，对于D3我想要第1周，对于 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 第2周等等。任何想法？我很感激你的时间！

sudo service slashdb stop
sudo service slashdb start

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