快速删除不规则空列

实例需求：由于原始数据文件不规范，导入Excel的数据存在空列（例如A列），并且位置不固定，现需要使用代码删除空列。

示例代码如下。

Sub Demo1()
    For col = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
      If Len(Trim(Cells(1, col))) = 0 Then Columns(col).Delete
    Next
End Sub

【代码解析】
凡是涉及删除操作的代码一定要从后向前，对于删除列来说就是从右向左循环，否则会出现遗漏的问题。
第2行代码中Cells(1, Columns.Count)为第一行最后一个单元格，由于不同Excel版本的列数可能不同，此代码具有良好的兼容性。
End(xlToLeft).Column可以获取最后一列的列号。
虽然是需求是删除空列，但是根据数据的展现情况，并不需要去统计整列有是全部为空单元，第3行代码判断每列的第1行的单元格，如果为空，则删除该列。

整个代码实现思路可以说相当直截了当，但是并不是最佳实现方案，首先循环判断，其次多次访问单元格，然后逐列删除，这些都是影响速度和性能的问题。

最佳实现方案，核心代码只有一行。

Sub Demo2()
    Range([a1], Cells(1, Columns.Count).End(xlToLeft)).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End Sub

【代码解析】
Cells(1, Columns.Count).End(xlToLeft)代码已经讲解过了，这里不再赘述。
SpecialCells(xlCellTypeBlanks)用于定义Range对象中的空单元格。
EntireColumn用于将Range拓展到整列。

多掌握一些VBA方法，有很多问题可以轻松解决。