[已解决]将K列空白单元格排序，清除不带颜色的单元格内容

ruhong18

将K列空白单元格排序，清除不带颜色的单元格内容

最佳答案

月排行榜 / 总排行榜

哥儿-

2022-8-18 14:28

Sub test()
    Dim rng As Range, rg As Range, n
    Set rng = Range("k2", Cells(Rows.Count, "k").End(3))
    For Each rg In rng
        If rg.Value = "" Then
            n = n + 1
            rg = n
        Else: n = 0
        End If
    Next
End Sub
Sub 清除()
    Dim rng As Range, rg As Range
    Set rng = Range("k2", Cells(Rows.Count, "k").End(3))
    For Each rg In rng
        If rg.Interior.ColorIndex < 0 Then
            rg.ClearContents
        End If
    Next
End Sub

跳转到最佳答案楼层

哥儿-

Sub test()
    Dim rng As Range, rg As Range, n
    Set rng = Range("k2", Cells(Rows.Count, "k").End(3))
    For Each rg In rng
        If rg.Value = "" Then
            n = n + 1
            rg = n
        Else: n = 0
        End If
    Next
End Sub
Sub 清除()
    Dim rng As Range, rg As Range
    Set rng = Range("k2", Cells(Rows.Count, "k").End(3))
    For Each rg In rng
        If rg.Interior.ColorIndex < 0 Then
            rg.ClearContents
        End If
    Next
End Sub