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

所以我有一个大约7000 x 7000的数据集，它包含了大量的空白单元格（可能大约70％的单元格是稀疏的）。 这是由于我从我编写的java程序中导出数据的方式。 我以为我可以通过select所有空白单元格并删除它们来简单地删除所有的空白单元格。 但是，由于数据集的大小，尝试这样做会导致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