Help!

[LoopyD]

Some plonker has been in my excel spreadsheet for auditing and whatever they have done there’s no 16000+ columns in the table I created!

Is there a way I can set the number of columns back to the number I need without having to go through and delete them??

I would leave it as it is, but I can’t because I need to delete some no longer needed rows and it won’t as it’s too much data with that many columns

Any help much appreciated!!!!

 

[felixstraube]

Are the added/unwanted column all to the right of the ones you want to keep?
If so, just select the first column to delete by clicking on the header (that is the letter/s that defines the column), once selected hold Ctrl+Shift and press Right. Now all the unwanted columns will be selected. And delete them.

 

[LoopyD]

Are the added/unwanted column all to the right of the ones you want to keep?
If so, just select the first column to delete by clicking on the header (that is the letter/s that defines the column), once selected hold Ctrl+Shift and press Right. Now all the unwanted columns will be selected. And delete them.

Hi,
Thanks for your reply.
Tried that it won’t do it, comes up with an area as it’s too much for it to process in one go?

 

[LoopyD]

Hi,
Thanks for your reply.
Tried that it won’t do it, comes up with an area as it’s too much for it to process in one go?

*error

 

[jolivanes]

Re "columns in the table I created!"
Try on a COPY of your workbook first.

Dim tbl As ListObject
Dim x As Long
Set tbl = ActiveSheet.ListObjects("Table1")    '<----- Change as required
  For x = tbl.ListColumns.Count To 8 Step - 1   '<----- If you want to keep 7 Columns
    tbl.ListColumns(x).Delete
  Next x