怎么全删了

ddz79101

老师，我想对10列和11列中，若相邻2个单元格全空则删除此行，但代码不知说明原因全删了，请老师看看。写

ww87725244

If IsEmpty(cell) And IsEmpty(cell.Offset(0, -1)) Then

ddz79101

ww87725244 发表于 2024-6-22 16:50
If IsEmpty(cell) And IsEmpty(cell.Offset(0, -1)) Then

谢谢老师！还是不行，全删了

gwjkkkkk

.................

ww87725244

Sub 删行()
    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    Application.ScreenUpdating = False
    With Worksheets("1")
        For i = .UsedRange.Rows.Count To 1 Step -1
            If IsEmpty(.Cells(i, 9)) And IsEmpty(.Cells(i, 8)) Then
                .Rows(i).Delete
            End If
        Next
    End With
    Application.ScreenUpdating = True
End Sub

木子客

Sub 删行()
    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    Application.ScreenUpdating = False
    Set rng = ActiveSheet.Range("I2:I100")
    For i = rng.Rows.Count To 1 Step -1'这里count得到99，为了对应，在下面循环时要+1
        If Cells(i + 1, 8) = "" And Cells(i + 1, 9) = "" Then
           Debug.Print "del" & i + 1
            Cells(i + 1, 1).EntireRow.Delete
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

木子客

重新写了循环部分，你应该是循环时rng.count得到99，错行了

ddz79101

gwjkkkkk 发表于 2024-6-22 16:56
.................

谢谢老师！修改成功

ddz79101

ww87725244 发表于 2024-6-22 17:06
Sub 删行()
    Dim rng As Range
    Dim cell As Range

谢谢老师！修改成功！

ddz79101

木子客 发表于 2024-6-22 17:19
重新写了循环部分，你应该是循环时rng.count得到99，错行了

谢谢老师！修改成功！