LinkBack URL
About LinkBacks
hello
try this code:
Sub delete_row() Dim i,j As Long j = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To j If Cells(i, 1) = "" Then Rows(i).Delete End If Next End Sub
hello
try this code:
Sub delete_row() Dim i,j As Long j = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To j If Cells(i, 1) = "" Then Rows(i).Delete End If Next End Sub
Last edited by shaukat; 11-20-2011 at 06:24 AM.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks