Hi Iqbal,

I hope the following would be helpful, i have copied the code from the
internet: (Before running the macro select the range of rows, you want
the macro to evaluate)

Sub DeleteBlankRows1()

'Deletes the entire row within the selection if the ENTIRE row
contains no data.



'We use Long in case they have over 32,767 rows selected.

Dim i As Long



        'We turn off calculation and screenupdating to speed up the macro.

        With Application

                .Calculation = xlCalculationManual

                .ScreenUpdating = False



        'We work backwards because we are deleting rows.

        For i = Selection.Rows.Count To 1 Step -1

                If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then

                        Selection.Rows(i).EntireRow.Delete

                End If

        Next i



                .Calculation = xlCalculationAutomatic

                .ScreenUpdating = True

        End With

End Sub


On Jun 11, 10:43 am, Iqbal Muneeb <iqbalmun...@gmail.com> wrote:
> Hi Dears
> Your kind help is needed. How to delete empty rows from a huge table. The
> data is scattered in the table.
> --
> Have a good day!
>
> Muneeb

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!

We reach over 7000 subscribers worldwide and receive many nice notes about the 
learning and support from the group.Let friends and co-workers know they can 
subscribe to group at http://groups.google.com/group/excel-macros/subscribe

Reply via email to