Question

我们填充来自不同来源的工作表。因此，我们最终得到了额外的空行和列。有太多无法手动删除的内容。有人知道删除它们的好方法吗？也许一些VB代码？

我尝试手动删除它们，但太多了

无代码显示

我很想找到一种方法来删除它们

Answer 1

使用

if application.CountA(Columns(1).EntireColumn) = 0 then
    Worksheets("My worksheet").Columns(1).EntireColumn.Delete
end if

编辑：

在来到这里之前，请先做一些研究。因为如果您进行了一些研究，您会发现this macro已完成（和how to use it）似乎很适合您的需求。

Public Sub DeleteEmptyColumns()
    Dim SourceRange As Range
    Dim EntireColumn As Range

    On Error Resume Next

    Set SourceRange = Application.InputBox( _
        "Select a range:", "Delete Empty Columns", _
        Application.Selection.Address, Type:=8)

    If Not (SourceRange Is Nothing) Then
        Application.ScreenUpdating = False

        For i = SourceRange.Columns.Count To 1 Step -1
            Set EntireColumn = SourceRange.Cells(1, i).EntireColumn
            If Application.WorksheetFunction.CountA(EntireColumn) = 0 Then
                EntireColumn.Delete
            End If
        Next

        Application.ScreenUpdating = True
    End If
End Sub

Answer 2

找到一种简单的方法。点击率-结束。选择最后一列。使用右下角的滚动条。向左移动，直到看到包含数据的最后一列，请使用shift + Left鼠标选择该列。单击删除。保存工作簿

工作簿中的多余列-需要一种删除它们的好方法

2 个答案: