用两次循环才能清除某列单元格所有内容，请问各位怎么解决

bxl15890877746

例如


Sub 删除()
    Dim i
    For i = 2 To 7
        Do While Range("C" & i) <> ""
        Range("C" & i).Delete
        Loop
    Next
End Sub

做两次循环，就可以一次性删除

用下面的代码，需要点多次才能删干净

Sub 清除()

    Dim j

    For j = 2 To 7
        If Range("C" & j) <> "" Then
            Range("C" & j).Delete
        End If
    Next j

End Sub

3190496160

Sub 清除()

    Dim j

    For j = 7 To 2 Step -1
        If Range("C" & j) <> "" Then
            Range("C" & j).Delete
        End If
    Next j

End Sub

3190496160

逐行删除，就得倒过来循环
For j = 7 To 2 Step -1

3190496160

或者这样
Sub 清除()
    Dim j
    Dim rng As Range
    For j = 2 To 7
        If Range("C" & j) <> "" Then
            If rng Is Nothing Then
                Set rng = Cells(j, 3)
            Else
                Set rng = Union(rng, Cells(j, 3))
            End If
        End If
    Next j
    If Not rng Is Nothing Then rng.ClearContents
End Sub

bxl15890877746

3190496160 发表于 2022-9-16 09:53
逐行删除，就得倒过来循环
For j = 7 To 2 Step -1

多谢了，昨天晚上床上睡觉想到 了，234行删完，后面三行为空，就重新执行过程，再删23，第四行又得重新执行，所以删除要倒着写，当时步长设了-1，但是2to 7没改过来

bxl15890877746

3190496160 发表于 2022-9-16 09:53
Sub 清除()

    Dim j

多谢了，解决了

bxl15890877746

3190496160 发表于 2022-9-16 09:57
或者这样
Sub 清除()
    Dim j

学到了，多谢了