[已解决]删除完全空白的行，弹出1004提示

yjwdjfqb

删除完全空白的行，弹出1004提示

请大家帮我修正下，谢谢大家了！

删除完全空白的行，弹出1004提示.rar (7.3 KB, 下载次数: 15)

2014-3-19 12:13 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-19 12:45

1. Sub Macro1()
   
2. Dim arr, rng As Range, i&, x%
   
3. arr = ActiveSheet.UsedRange
   
4. x = UBound(arr, 2)
   
5. Application.ScreenUpdating = False
   
6. For i = 1 To UBound(arr)
   
7.     If Application.CountA(Cells(i, 1).Resize(1, x)) = 0 Then
   
8.         If rng Is Nothing Then Set rng = Cells(i, 1) Else Set rng = Union(rng, Cells(i, 1))
   
9.     End If
   
10. Next
    
11. If Not rng Is Nothing Then rng.EntireRow.Delete
    
12. Application.ScreenUpdating = True
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

Zipall

ActiveSheet.UsedRange.Count
统计结果是单元格数
ActiveSheet.UsedRange.Rows.Count
才是行数

dsmch

1. Sub Macro1()
   
2. Dim arr, rng As Range, i&, x%
   
3. arr = ActiveSheet.UsedRange
   
4. x = UBound(arr, 2)
   
5. Application.ScreenUpdating = False
   
6. For i = 1 To UBound(arr)
   
7.     If Application.CountA(Cells(i, 1).Resize(1, x)) = 0 Then
   
8.         If rng Is Nothing Then Set rng = Cells(i, 1) Else Set rng = Union(rng, Cells(i, 1))
   
9.     End If
   
10. Next
    
11. If Not rng Is Nothing Then rng.EntireRow.Delete
    
12. Application.ScreenUpdating = True
    
13. End Sub
    

复制代码