excel怎么删除无限列

Excel 那片一眼望不到头的表格，真是让人又爱又恨。特别是那删不完的无限列，简直是强迫症的噩梦！我当初刚入职，也傻乎乎地拖着鼠标，一列一列地删，删到手抽筋都没删完，想想都觉得辛酸。

后来，还是我的老同事，那个秃顶的老王，悄悄告诉我几招，这才算是解脱了。我这才明白，原来删除无限列不是蛮力活，得讲究技巧！

第一招，也是最简单粗暴的，但非常有效，尤其是当你只需要保留前面一部分列的时候。选中你想保留的最后一列，比如你想留到Z列，那就选中Z列。然后，按住 Ctrl + Shift + 向右箭头，整个Z列之后的所有列就都会被选中，黑压压的一片，看着就舒坦！接下来，右键点击任意一个被选中的列标，选择“删除”，世界就清净了。当然，这一步千万要确认好，别删错，不然又要Ctrl+Z了。这招快，狠，准，我最喜欢。

但是吧，有时候情况比较复杂，表格里可能中间某几列是空的，然后后面又有数据，你想把这些空列都删掉，上面的方法就不太好使了。这时候，就得用到第二招，用定位功能。先随便选中一个单元格，然后按下 Ctrl + G，弹出“定位”窗口。点击“定位条件”，选择“空值”，然后确定。Excel就会自动帮你把表格里所有的空单元格都选中了。但这还不够，因为我们是要删除空列，而不是空单元格。所以，你需要再回到“开始”选项卡，找到“单元格”区域里的“删除”按钮，点击下拉箭头，选择“删除工作表列”。这样，所有包含空单元格的列都会被删掉。不过要注意，这个方法会把所有包含空单元格的列都删掉，所以如果你的某些列，虽然大部分单元格是空的，但有几个单元格是有数据的，也会被一起删掉。所以，用之前最好先备份一下表格。

第三招，也是我用的比较少，但有时候也能派上用场的，就是用VBA代码。说实话，我对VBA代码一直有点怵，感觉像在写程序，有点复杂。但为了解决问题，还是得硬着头皮学。打开VBA编辑器（Alt + F11），插入一个模块，然后把下面的代码复制进去：

```vba Sub DeleteEmptyColumns() Dim LastColumn As Long Dim i As Long

Application.ScreenUpdating = False ' 关闭屏幕更新，提高运行速度

LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column ' 找到最后一列

For i = LastColumn To 1 Step -1 ' 从最后一列往前遍历 If WorksheetFunction.CountA(Columns(i)) = 0 Then ' 如果该列所有单元格都为空 Columns(i).Delete ' 删除该列 End If Next i

Application.ScreenUpdating = True ' 恢复屏幕更新 End Sub ```

这段代码的意思是，它会从表格的最后一列开始往前遍历，如果发现某一列的所有单元格都是空的，就把它删除。运行这段代码，就可以把表格里所有的空列都删掉了。虽然这个方法有点麻烦，但它可以精确地删除空列，不会误删其他列。

当然，除了上面这三种方法，还有一些其他的方法可以用来删除无限列，比如可以用筛选功能，先把表格里所有的空列筛选出来，然后再删除。但我觉得上面的这三种方法已经足够用了。

说到底，删除无限列的关键，就是要找到合适的方法。不同的情况，需要用不同的方法。不要死脑筋，要灵活运用。而且，最重要的是，要备份！备份！备份！重要的事情说三遍！不然，一不小心删错了，哭都来不及。我之前就吃过亏，辛辛苦苦做了一个星期的表格，结果一不小心删错了，直接崩溃。所以，一定要养成备份的习惯！

对了，还有一点很重要，那就是要保持耐心。删除无限列不是一件容易的事情，需要花费一定的时间和精力。不要急躁，要慢慢来，一步一个脚印。相信我，只要你掌握了正确的方法，并且保持耐心，就一定可以成功删除无限列，让你的Excel表格变得更加整洁美观。我现在每次打开Excel，看到那些整整齐齐的表格，心里就特别舒服，感觉所有的付出都是值得的。那种成就感，只有自己才能体会！