Question

我的下面的代码用于执行以下操作转到B1，选择B2：B10，删除此B2：B10范围内的所有值。去B11＆amp;然后选择B12：B21，删除此范围内的所有值

Sub gk()
Dim j As Long
Range("B1").Select
Do While j = 5
j = j + 1
ActiveCell.Range("B" & ActiveCell.Row + 1 & ":B" & ActiveCell.Row + 10).Select
Selection.ClearContents
Cells(ActiveCell.Row + 1, 1).Select
Loop
End Sub

但这不起作用。代码正在跳过挑选范围部分。请帮忙。

Answer 1

我把它放在这里因为它的所以快速修复，如果你正在使用谷歌搜索如何使用这个While循环，你应该很快找到这个错误

Sub gk()
    Dim j As Long
    Range("B1").Select
    Do While j <= 5 'this is the line you need to update
        j = j + 1
        ActiveCell.Range("B" & ActiveCell.Row + 1 & ":B" & ActiveCell.Row + 10).Select
        Selection.ClearContents
        Cells(ActiveCell.Row + 1, 1).Select
    Loop
End Sub

迭代不工作 - 循环跳过 - 做

1 个答案: