删除整行

dssrmyh

如果姓名列为空时，删除整行，姓名列有时多，有时少。

wj2368

？？？？？？？？？？？？？？？

dssrmyh

wj2368 发表于 2018-9-21 09:58
？？？？？？？？？？？？？？？

不好意思，忘记传附件了，马上传

lsc900707

1. Sub gj23w98()
   
2.     Application.ScreenUpdating = False
   
3.     For Each sht In Sheets
   
4.         With sht
   
5.             arr = .[a1].CurrentRegion
   
6.             For i = UBound(arr) - 3 To 3 Step -1
   
7.                 If Len(arr(i, 2)) = 0 Then .Rows(i).Delete
   
8.             Next
   
9.         End With
   
10.     Next
    
11.     Application.ScreenUpdating = True
    
12. End Sub

复制代码

dssrmyh

lsc900707 发表于 2018-9-21 10:14

谢谢，达到要求，但有一点就是该代码是针对整、个工作薄，我想在01月工资表中运行该代码就只对01月工资表中生效，对其他工资表不生效，一共有12个月的工资表，后面几个月的工资表中没有填写姓名

wj2368

dssrmyh 发表于 2018-9-21 10:24
谢谢，达到要求，但有一点就是该代码是针对整、个工作薄，我想在01月工资表中运行该代码就只对01月工资 ...

  sub yy()     
        With sheets("01")
            arr = .[a1].CurrentRegion
            For i = UBound(arr) - 3 To 3 Step -1
                If Len(arr(i, 2)) = 0 Then .Rows(i).Delete
            Next
        End With
end sub

dssrmyh

wj2368 发表于 2018-9-21 10:30
sub yy()     
        With sheets("01")
            arr = .[a1].CurrentRegion

如何在每张工资表中单独执行该代码

wj2368

dssrmyh 发表于 2018-9-21 10:45
如何在每张工资表中单独执行该代码

Sub yy()
        With ActiveSheet
            arr = .[a1].CurrentRegion
            For i = UBound(arr) - 3 To 3 Step -1
                If Len(arr(i, 2)) = 0 Then .Rows(i).Delete
            Next
        End With
End Sub

wj2368

dssrmyh 发表于 2018-9-21 10:45
如何在每张工资表中单独执行该代码

放在模块下。。。。。。。。。。