Delete columns depending on the number of rows.

**TallOne** · 06-05-2014, 05:42 AM

Hi All,

I have a workbook, with a worksheet "Summary". In this worksheet "Summary" I would like to delete all columns that have less than 100 rows. Please see the attached file

Thanks in advance for your help.

**patel45** · 06-05-2014, 06:14 AM

Sub a()
Lastcol = Cells(3, Cells.Columns.Count).End(xlToLeft).Column
For col = Lastcol To 2 Step -1
  If Cells(Rows.Count, col).End(xlUp).Row < 100 Then
     Columns(col).Delete
  End If
Next
End Sub

**JOHN H. DAVIS** · 06-05-2014, 06:20 AM

Maybe:

Sub TallOne()
Dim i As Long
For i = 22 To 2 Step -1
    If Cells(Rows.count, i).End(3)(1).Row < 100 Then Columns(i).Delete
Next i
End Sub

**TallOne** · 06-05-2014, 06:42 AM

Hi patel45,

it works perfectly

thanks again.

I have another questions (but not sure should I asked here or open a new thread). In the same file after deleting all the columns that have number of rows <100. I would like to sort the data according to column (D, G, J, ....).

Thanks again

Delete columns depending on the number of rows.

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Delete columns depending on the number of rows.

Re: Delete columns depending on the number of rows.

Re: Delete columns depending on the number of rows.

Re: Delete columns depending on the number of rows.

Thread Information

Users Browsing this Thread

Similar Threads

Delete rows depending on date

Combining multiple rows from 2 columns into sorted columns depending on 1st columns value

Generate Columns depending on the number of rows filled(VBA / BDH function)

delete rows depending on value in two column

[SOLVED] How to delete a set of rows depending on Value

Bookmarks

Bookmarks

Posting Permissions