对齐数据单元格值公式

Question

我想知道是否有任何可用的公式或方法，而不是手动拖动单元格。

我的数据如下所示：

我应该得到的是如上所述。

有没有可用的方法？而不是逐个拖动单元格？我有大量的数据。对任何解决方案都很满意。非常感谢你！

Answer 1

您可以尝试以下代码，删除空单元格。 （如果您将搜索范围更改为所需的）

Sub Del_Empty_cells()
    Dim cell, del, searchRng As Range
    Set searchRng = Range("A1:B10")
    Set del = Nothing
    For Each cell In searchRng.Cells
        If cell = 0 Or cell = "" Then
            If del Is Nothing Then
                Set del = cell
            Else
                Set del = Application.Union(del, cell)
            End If
        End If
    Next cell
    If Not del Is Nothing Then del.Delete
End Sub