vba定位到所有空格后删除上方下移

你可以使用以下VBA代码实现该功能：

Sub deleteBlanks()
    Dim blankRange As Range
    Set blankRange = ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks)
    blankRange.Delete xlUp
End Sub

该代码会首先选中当前活动工作表中所有的空单元格，然后删除它们并将上方单元格下移填充。请注意，此代码仅适用于当前活动工作表中的空单元格。如果你想在整个工作簿中执行此操作，则需要对该代码进行修改。