Excel VBA宏:合并筛选器并使用宏删除可见的和后续的空行

Question

我有一个大约有50000行数据的电子表格。这个值会波动，因为我有一个函数可以引入更多的数据。

我希望能够使用我的列过滤器(第2行)来显示我不想要的项目然后宏将删除所有可见值，关闭筛选器，删除所有空行，最后重新打开第2行中的筛选器。下面的代码就是这样设计的，但在整个数据矩阵中保留空行。谢谢你的帮助！

Sub DeleteVisible_Empty_BlankRows()
Application.ScreenUpdating = False
Range("C3:V" & rows.count).ClearContents
Worksheets("MyDataPull").AutoFilterMode = False
'Ungroup & regroup necessary columns
Columns("F:K").Columns.Ungroup
Dim r As Range, emrows As Long, i As Long
LRI = Mydatapull.Cells(Mydatapull.rows.count, "C").End(xlUp).Row
'Filter column C from A to Z so that blanks are put at the bottom
Range("C3:V" & LRI).Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
'Filter to only show blanks
Range("C3:V" & LRI).AutoFilter Field:=1, Criteria1:="=", Operator:=xlOr, Criteria2:="=" & ""
'Delete blanks
Range("C3:V" & LRI).EntireRow.Delete
'Turn filters back on
Worksheets("MyDataPull").AutoFilterMode = False
'Delete Extra rows
LRI = Mydatapull.Cells(Mydatapull.rows.count, "C").End(xlUp).Row
Range("C" & LRI + 1 & ":V" & rows.count).EntireRow.Delete
Mydatapull.Range("C2:V2").AutoFilter
Columns("F:K").Columns.Group
End Sub

Answer 1

您是否尝试过先填充数据，然后删除空行？当工作表未经过滤时，我个人在处理内容方面取得了更大的成功。尝试添加：

ActiveSheet.AutoFilter.Sort.SortFields.Clear ActiveSheet.ShowAllData

然后删除空行。

如果这对你有用，请告诉我。

Answer 2

我想明白了。请参阅上面更新的代码。