批量删除excel空行的问题
有如下代码:
For i = 349 To 7 Step -1 '349 is row no, 7 too
If (shtTo1.Cells(i, iColMarkSht1).Value <= 0) Then
sRangeOfRemove = sRangeOfRemove & "," & i & ":" & i
End If
Next
Debug.Print sRangeOfRemove
sRangeOfRemove = Right(2, Len(sRangeOfRemove))
shtTo1.Range(sRangeOfRemove).entireRow.Delete
我是仿照宏的做法来写的,为什么不能正确执行?连一行都没被删。如果在立即窗口执行类似shtTo1.Range("5:5").entireRow.Delete 的语句,却能够删除。真搞不明白
问题点数:0、回复次数:1Top
1 楼zipall(一意孤行)回复于 2004-08-03 16:22:48 得分 0
请先说明代码段中的几个变量(shtTo1,iColMarkSht1,sRangeOfRemove)都是什么
他们的初始值分别是多少。Top




