macro to delete entire rows when column A is blank ...a quick macro
a macro which can quickly delete entire row when column A is blank
please help me with this thank u so much frnd -- Message posted from http://www.ExcelForum.com |
macro to delete entire rows when column A is blank ...a quick macro
Hi
one way: Sub delete_rows() Dim RowNdx As Long Dim LastRow As Long Application.ScreenUpdating = False LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).row For RowNdx = LastRow To 1 Step -1 with Cells(RowNdx, "A") if .value = "" then Rows(RowNdx).Delete End If end with Next RowNdx Application.ScreenUpdating = True End Sub -- Regards Frank Kabel Frankfurt, Germany a macro which can quickly delete entire row when column A is blank please help me with this thank u so much frnds --- Message posted from http://www.ExcelForum.com/ |
macro to delete entire rows when column A is blank ...a quick macro
try this
Sub RowBeGone() Columns("A").SpecialCells(xlCellTypeBlanks).Entire Row.Delete End Sub -- Don Guillett SalesAid Software "vikram " wrote in message ... a macro which can quickly delete entire row when column A is blank please help me with this thank u so much frnds --- Message posted from http://www.ExcelForum.com/ |
macro to delete entire rows when column A is blank ...a quick macro
thank u so much
u guys are amazing thank u so much my macro was very slow thanks agai -- Message posted from http://www.ExcelForum.com |
macro to delete entire rows when column A is blank ...a quick macro
|
All times are GMT +1. The time now is 02:51 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com