根据单元格是否为空值来删除行

njwtg

请问，如何根据单元格是否为空值来删除行，删除的方式是下方单元格上移，删除的区域是A~F列，其他列不能被删除。谢谢老师！

cyq4896

参与一下..

njwtg

谢谢cyq4896老师，我调整了下，If Cells(i, 1) = "" And Cells(i, 3) <> "" And Cells(i + 1, 1) = "" Then   就ok了

ykcbf1100

参与一下。。。

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, br, i&, j&, n&, dic As Object, vKey, dNum As Double
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    With Intersect(ActiveSheet.UsedRange, Columns("S:Z"))
        ar = .Value
        For i = 2 To UBound(ar)
            If ar(i, 4) = "【表格区】" Then
                dic(Val(ar(i, 8))) = Array(ar(i, 1), ar(i, 2))
            End If
        Next i
        n = 2
        For Each vKey In dic.keys
            n = n + 1
            If n > 56 Then n = 3
            For i = 2 To UBound(ar)
                dNum = Val(ar(i, 3))
                If dic.exists(dNum) Then
                    br = dic(dNum)
                    For j = 0 To 1
                        If ar(i, j + 1) = "" Then
                            .Cells(i, j + 1).Value = br(j)
                            .Cells(i, j + 1).Interior.Color = vbRed
                        End If
                    Next j
                End If
            Next i
        Next
    End With
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。