'经常遇见天眼查表格文件特别大，原因是使用了整个表格，虽然无法解释为什么，但是经过验证以下代码是凑效的

Private Sub DeleteUselessRegion(ByVal sht As Worksheet)

    With sht

        If Application.WorksheetFunction.CountA(.Cells) > 0 Then

            EndRow = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row+1

            EndCol = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column+1

            .Range(.Columns(EndCol ), .Columns(EndCol).End(xlToRight)).Delete

            .Range(.Rows(EndRow ), .Rows(EndRow ).End(xlDown)).Delete

        End If

    End With

End Sub