Excel VBA使用的列

Question

My Excel file is huge and I found out that the reason is in the unused columns. If I delete them the file has a normal size. The unused columns are just blanks or at least appear to be blanks. However, something must be contained in them. How can I find out what and how can I reset the UsedRange to the actual number of columns with content?

I tried the following:

 myLastCol = _
   .Cells.Find("*", after:=.Cells(1), _
    LookIn:=xlFormulas, lookat:=xlWhole, _
    searchdirection:=xlPrevious, _
    searchorder:=xlByColumns).Column

And also

myLastCol=ActiveSheet.UsedRange.Columns.Count

Both would return the value 16383 . Any suggestions? How can this happen (I am sure it has something to do with the Macro I wrote)?

Answer 1

Can't you just delete the unused columns? If so what about this solution?

Sub DeleteUnusedColumns()

        Dim colRange As Range
        Dim c As Long

    'Define the target range
        Set colRange = ActiveSheet.UsedRange

    'Iterate through the columns
        For c = colRange.Columns.Count To 1 Step -1

    'If the column is empty then you can delete it
           If Application.CountA(Columns(c).EntireColumn) = 0 Then
           Columns(c).Delete
           End If

    'Increment the counter down
        Next c
    End Sub

End Sub