Excel : 需要删除大约100万个空行

Question

我有一个来自我们一位客户的 excel 文件，该文件有将近 100 万个空白行。

我确实尝试在空白的 C 列（称为项目）上过滤它，然后选择所有行并尝试删除。它几乎冻结了将近几个小时，但最后我杀死了 excel 进程。

我也试过下面的 VBA 脚本，但它说 "r.rows(i).Delete" 的实际行只是冻结。这是针对第一个删除实例本身。

我也将 excel 文件设置为手动进行公式计算。

我不介意整个工作需要几个小时。我可以让它过夜并在早上检查。

如果有 VB.NET 或 C# 的任何东西，那也没关系。

更新 1： 我无法批量删除 1 到 1048576 行之间的内容，我需要删除那些 C 列为空白的行（这意味着该行为空白).

更新 2： 我将下面的删除标记为答案，但我最终通过将 GOOD 行复制到另一个工作表来解决问题。

请提出处理这种情况的最佳方案。

VBA 来源

Sub BlankRowDelete()

Dim r As Range, rows As Long, i As Long
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
ActiveSheet.AutoFilterMode = False

Set r = ActiveSheet.Range("A1:A1048576")
rows = r.rows.Count
For i = rows To 1 Step (-1)
    If WorksheetFunction.CountA(r.rows(i)) = 0 Then
        r.rows(i).Delete
        RowDeleted = RowDeleted + 1
    Else
        NotDeleted = NotDeleted + 1
    End If
    totalcnt = totalcnt + 1
    If RowDeleted = 100 Then
       TotalDeleted = TotalDeleted + RowDeleted
       RowDeleted = 0
       Debug.Print "count now is " + totalcnt
    End If
    Application.StatusBar = "Row count is " + totalcnt
Next
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
ActiveSheet.AutoFilterMode = True

结束子

Answer 1

我对您的代码进行了一些更新，例如 doevents，打开状态栏，因为 oyu 正在写入它，并在需要时更新屏幕并在您写出数值时添加 cstr()。我运行这个没问题。如评论中所述，这只会删除单元格 A 而不是整行

Sub BlankRowDelete()
On Error GoTo myError
Dim r As Range, rows As Long, i As Long
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
ActiveSheet.AutoFilterMode = False

Set r = ActiveSheet.Range("C1:C1048576") 
rows = r.rows.Count
For i = rows To 1 Step (-1)
    If WorksheetFunction.CountA(r.rows(i)) = 0 Then
        r.rows(i).EntireRow.Delete
        RowDeleted = RowDeleted + 1
    Else
        NotDeleted = NotDeleted + 1
    End If
    totalcnt = totalcnt + 1
    If RowDeleted = 100 Then

       Application.ScreenUpdating = True
       TotalDeleted = TotalDeleted + RowDeleted
       RowDeleted = 0
                   'you can uncomment this but since this is a dup since writting to statusbar (imo)
      'Debug.Print "count now is " + CStr(totalcnt)

       Application.ScreenUpdating = False
    End If
    Application.StatusBar = "Row count is " + CStr(totalcnt)
    DoEvents
Next
myError:
If Err.Number <> 0 Then
MsgBox CStr(i) & ": " & Err.Description
End If
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
ActiveSheet.AutoFilterMode = True
End Sub

Answer 2

按 C 列升序排列文档。空行会走到最后，所以删除它们应该很容易。

Excel : 需要删除大约100万个空行

Excel : Need to delete about 1 million blank rows

c#

excel

vba

filtering

delete-row