神马品牌网朝鲜的领海面积:vba 问题
来源：百度文库 编辑：神马品牌网 时间：2024/04/27 21:49:20
我想删除工作薄名为:“阳光水晶销售与税汇总表”中sheet1中第1-26行之间的空行,用了下面的代码，可是代码运行后空行还是在，请各位大侠帮忙指点，到底问题出在哪？
Workbooks1.xls").Activate
End Sub
Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = 26 To 1 Step -1
If Application.Count(Rows(r)) = 0 Then
Rows(r).Delete
End If
Next r
End Sub
第一行的代码原来是:
Workbooks("阳光水晶销售与税汇总表1.xls").Activate
End Sub
我刚才粘贴上来时误删了几个字.
Workbooks1.xls").Activate
End Sub
Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = 26 To 1 Step -1
If Application.Count(Rows(r)) = 0 Then
Rows(r).Delete
End If
Next r
End Sub
第一行的代码原来是:
Workbooks("阳光水晶销售与税汇总表1.xls").Activate
End Sub
我刚才粘贴上来时误删了几个字.
VB，VB.NET交流
欢迎假如24885035群,请说明意图
代码成就天地人生，程序造就你我辉煌
让我们在程序的路上一起走得更远!
Workbooks("阳光水晶销售与税汇总表1.xls").Activate
Call DeleteEmptyRows
End Sub