`
  版块:VBA代码库

删除选区空白单元格

关键词: 空值零值
作者: 匿名 - 2015/11/26 15:20:37 - 重新编辑
财富值: 0
下载    [39次]
帮助:如何在收纳箱中使用本函数?
  • 详细说明:
  • 无说明
    GIF动画:
    Gif动画
  • 1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    '类别=空值零值
    '说明=无说明
     
    Sub 删除选区空白单元格()
        On Error Resume Next
        Dim r As Range, tmp As Range
        Set r = Intersect(ActiveSheet.UsedRange, Selection)
         
         
        Application.ScreenUpdating = False
        For i = r.Cells.Rows.Count To 1 Step -1
            For j = 1 To r.Cells.Columns.Count
                Set tmp = r.Cells(i, j)
                If tmp = "" Then
                    tmp.Delete xlUp
                End If
            Next j
        Next i
         
        Application.ScreenUpdating = True
    End Sub