excel - 删除 Ms Excel 2010 中的空列

Question

很难说出这里问的是什么。这个问题是模棱两可的、模糊的、不完整的、过于宽泛的或修辞的，无法以目前的形式得到合理的回答。如需帮助澄清这个问题以便重新打开它，visit the help center .




9年前关闭。




我有一个 CSV 文件，其中有很多空列。我有 Excel 2010 女士，但我不知道如何使用宏或排序功能。

我已经进行了谷歌搜索并按照步骤操作。他们没有帮助我。有人可以指导我逐步删除空列吗？

已编辑:

抱歉，我不知道这个网站是如何运作的。我很难通过我的网络搜索历史找到正确的链接，因为我整天都在搜索。

但是我的历史中有一些链接对像我这样的类似人很有帮助(但不是我:()

http://www.addictivetips.com/windows-tips/how-to-delete-remove-blank-rows-columns-in-excel-2010-spreadsheet/
http://www.mrexcel.com/archive/VBA/11225.html

Answer 1

这是一个宏，它将遍历所有列，从包含任何数据的最后一个列到第一个列，并删除其中没有任何内容的所有列:

Sub DeleteEmptyColumns()

    Dim lastColumn As Integer
    Dim lastRow As Integer
    Dim i As Integer
    Dim r As Range

    Set r = ActiveSheet.Cells.Find("*", SearchOrder:=xlByColumns, LookIn:=xlValues, SearchDirection:=xlPrevious)

    If Not r Is Nothing Then

        lastColumn = r.Column

        For i = lastColumn To 1 Step -1

            Set r = ActiveSheet.Columns(i).Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious)

            If r Is Nothing Then
                ActiveSheet.Columns(i).Delete
            Else
                If r.Row = 1 Then
                    ActiveSheet.Columns(i).Delete
                End If
            End If

        Next i

    End If

End Sub

另外:如果工作表中没有任何内容，它不会崩溃，并且您不必将自己限制在一定数量的列中，它会自动检查所有列。

编辑:修改为跳过第一行并忽略任何标题。