行删不了

ddz79101

老师！想依据A列空格删除D列（合计数），写有代码，但测试为成功。请老师看看什么原因。谢谢

loirol

ddz79101

loirol 发表于 2024-12-19 07:38

谢谢老师！早上好。运行成功

ykcbf1100

最大行号取值不对，应该取D列的最大行号，或者象我这样写。

ykcbf1100

小改一下即可。

ddz79101

ykcbf1100 发表于 2024-12-19 08:11
小改一下即可。

谢谢老师！运行成功！

gwjkkkkk

Sub 删合计行()
    Dim wks As Worksheet
    For Each wks In Worksheets
         If Val(wks.Name) Then
            With Range(wks.[A1], wks.UsedRange)
                ar = .Value
                For i = 1 To UBound(ar)
                    If Len(ar(i, 1)) = 0 Then
                        .Cells(i, 1).EntireRow.Delete
                    End If
                Next i
            End With
        End If
    Next
End Sub

gwjkkkkk

重写一个，请参考。。。

ddz79101

gwjkkkkk 发表于 2024-12-19 13:42
重写一个，请参考。。。

谢谢老师！运行成功