Excel VBA之删除没有数据的行 使用CountA是否等于0进行判断

Excel VBA之删除没有数据的行 使用CountA是否等于0进行判断

使用vba删除没有数据的行，思路大概就是或需行数，使用for循环，加上CountA条件，符合便使用delete进行删除，喜欢vba的朋友可以看看哦

sub 删除没有数据的行()

lastrow = Sheet1.UsedRange.Rows.Count

firstrow = Sheet1.UsedRange.Row

Myrow = lastrow + firstrow - 1

For i = Myrow To 1 Step -1

If Application.CountA(Rows(i)) = 0 Then

Rows(i).Delete

End If

Next

End Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。