Question

所以我有一个大约7000 x 7000的数据集，它包含大量空白单元格（可能大约70％的单元格是稀疏的）。这是由于我从脚本编写的java程序中导出数据的方式。我想我可以通过选择所有空白单元格并删除它们来删除所有空白单元格。但是，由于数据集的大小，尝试执行此操作会导致excel每次都崩溃。除了在每个列上手动执行此任务外，还有其他方法可以解决这个问题吗？

Answer 1

Sub Tester()

    Dim rng As Range, c As Range, b As Range

    Set rng = Range("a1").CurrentRegion.Columns 'assuming no fully-blank rows/cols
    For Each c In rng.Columns
        On Error Resume Next 'skip error if no blanks
        c.SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftUp
        On Error GoTo 0
    Next c

End Sub

删除大型Excel电子表格中的多个空白单元格

1 个答案: