查人人中国名人网形容中国崛起的句子:vba 问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/27 15:01:56
我想删除工作薄名为:“阳光水晶销售与税汇总表”中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