Fixed 26 million rows, now 16,000 columns- help help!

[Guest]

I posted earlier about having 26 mil rows and an inability to sort. I have
gotten the row problem fixed. Now I see that I have 16,000+ columns.

How can I get rid of these?

 

[Chip Pearson]

If you know the last column that contains real data, use code like

Sub AAA()
Dim N As Long
Const LAST_COLUMN_WITH_REAL_DATA = 20

With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
For N = LAST_COLUMN_WITH_REAL_DATA To Columns.Count
Columns(LAST_COLUMN_WITH_REAL_DATA + 1).Delete
Next N
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)

 

[Guest]

Chip,
He's got the last column (S) - he had a 2007 file go south on him, reporting
he had over 24M rows when he really only had 700 or so. See this discussion
for that background if you need it
http://www.microsoft.com/office/com...misc&mid=10c679d2-9d38-49a0-aa00-221433f2f12d

Hey, BusyHighlighter ... did you get rid of all those zeros? I posted where
to find the setting in that other discussion, referenced above.