excel - 如何删除excel中的空单元格？

Question

我想删除数千行和列的excel中的空单元格，有人可以帮我吗？ excel的值应该是有序的。
样本输入:

期望输出:

Answer 1

此代码与@Tony 的代码基本相同，但它不使用任何额外的单元格。

Dim counter As Integer, i As Integer
counter = 1
For i = 1 To 10
    If Cells(i, 1) <> "" Then
        Cells(counter, 1) = Cells(i, 1)
        counter = counter + 1
    End If
Next i
For i = counter To 10
    Cells(i, 1) = ""
Next i

没有丢失数据的机会，因为原始文件中有空格，所以 counter总是小于或等于 i .最后 for..next循环清除任何剩余的可见先前数据。