请问如何用VBA删除有公式的空白行

isabelnicholas

请问如何用VBA删除有公式的空白行 1.rar (3.51 KB, 下载次数: 4)

2024-5-28 09:12 上传

点击文件名下载附件

ykcbf1100

再回一次吧。

ykcbf1100

。。。。。

1. Sub 删除空行()  '//2024.5.28,可以删除有公式的0值行
   
2.     Set Rng = Nothing
   
3.     c = ActiveSheet.UsedRange.Columns.Count
   
4.     For i = 1 To Cells(Rows.Count, "a").End(xlUp).Row
   
5.         If Application.WorksheetFunction.Sum(Cells(i, 1).Resize(1, c).Value) = 0 Then
   
6.             If Rng Is Nothing Then
   
7.                 Set Rng = Rows(i)
   
8.             Else
   
9.                 Set Rng = Union(Rng, Rows(i))
   
10.             End If
    
11.         End If
    
12.     Next i
    
13.     If Not Rng Is Nothing Then Rng.EntireRow.Delete
    
14. End Sub
    

复制代码

tanglf188

三列值同时为空则删除

LIUZHU

这问题不是发过了吗，又发一次？

LIUZHU

再做一遍吧

1. Sub 删除空白行()
   
2.     Dim Arr(), Brr()
   
3.     Dim Dic As New Dictionary
   
4.     Dim i&, n&
   
5.    
   
6.     Arr = Range("A1:C" & Range("a" & Rows.Count).End(xlUp).Row).Value
   
7.     For i = 1 To UBound(Arr)
   
8.         If (Arr(i, 1) <> Empty) * (Arr(i, 1) <> "") Then
   
9.             Dic(i) = Array(Arr(i, 1), Arr(i, 2), Arr(i, 3))
   
10.         End If
    
11.     Next i
    
12.     Range("A:C").ClearContents
    
13.     Brr = WorksheetFunction.Transpose(WorksheetFunction.Transpose(Dic.Items))
    
14.     Range("A1").Resize(UBound(Brr), UBound(Brr, 2)).Value = Brr
    
15. End Sub

复制代码

LIUZHU

附件，请审核

ytmpgght

1. Sub 删除单元格值为空的行()
   
2. 
   
3.   Dim i
   
4.   
   
5.   For i = Range("a44444").End(xlUp).Row To 1 Step -1
   
6.       If Range("a" & i).Text = "" Then
   
7.              Range("a" & i).EntireRow.Delete    '删除整行
   
8.       End If
   
9.   
   
10.   Next i
    
11. 
    
12. End Sub

复制代码

758586

谢各位了，
我都是手工删除，如ykcbf1100大师写的一下解决 空行0值公式结果为0的行 好用
错哥妹贴子 改变一下思路 请大师们变更一下代码是否可……
思路 做成一个加载宏，选种某列 需要操作的单元格区域，→判断 如果没有选择单元格区域 就弹窗选择区域  ，→ 执行(需要删除、公式结果为0值、空白单元格、0值的单元格)的整行，这样应该灵活一点