室内设计培训
平面设计培训
部落窝教育
网站首页 >> Excel教程 >> 文章内容

excel删除空白列的三则技巧

[日期:2011-12-11]   来源:IT部落窝  作者:IT部落窝   阅读:11701[字体: ]
内容提要:文章介绍excel删除空白列的三种方法,以及如何批量删除空行空列。

excel删除空白列方法一:

  excel只能筛选行,不能筛选列。如果要批量删除空白列,可以复制所有数据,在目标单元格,选择性粘贴——转置,然后在任意列筛选所有空白行。最后再将所有数据转置回来。

excel删除空白列方法二:

  选取所有数据,按F5键,打开“定位”对话框,勾选“空值”,然后单击开始——单元格——删除——删除工作表列。(此方法适用于,数据列没有空单元格,只有整列为空列的情况下使用)。

excel删除空白列方法三:

  按ALT+F11,打开VBE编辑器,插入——模块,复制下面代码,然后按F5键,运行。
Sub 删除空列()
Dim i%, sh As Worksheet
For Each sh In Worksheets
For i = sh.UsedRange.Cells(sh.UsedRange.Cells.Count).Column To 1 Step -1
If sh.Cells(65536, i).End(xlUp).Row = 1 And sh.Cells(1, i).Text = "" Then sh.Columns(i).Delete
Next i
Next sh
End Sub

  excel删除列还有一种情况是:把EXCEL里面的255列和65538行变成自己想要的只有10列10行的一个表。
  方法就是选中不需要的行、列,然后右键隐藏行列即可。

Excel批量删除空行空列的方法
Sub Del()
    Dim irow%, icl%
    Cells.UnMerge ''将合并单元格,分成独立的单元格
    Application.ScreenUpdating = False '屏幕不刷新
    For irow = [A65536].End(3).Row To 1 Step -1 '循环A列最后有数据的行数次,到第1止。
        If Len(Cells(irow, 1)) = 0 Then Rows(irow).Delete '判断A列中的单元是否为空,则删除这一行
    Next
    For icl = Cells.Columns.Count To 1 Step -1
        If Application.CountA(Columns(icl)) = 0 Then Columns(icl).Delete
    Next
    Application.ScreenUpdating = True
End Sub

  相关文章:Excel空行添加和删除方法介绍
       excel删除列快捷键

IT部落窝PS,CDR,213班 分享到: QQ空间 新浪微博 腾讯微博 人人网
photoshop教程
Photoshop教程
平面设计教程
Photoshop教程