Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.
Sub DeleteBlankRows(strWbkName As String) '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 With Workbooks(strWbkName) .Activate With .Worksheets("DataSource") .Activate .Range("A1:DD630").Select '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 End With End With End Sub
|powershell add exchange property to a report||12||46|
|Fill cell values on multiple criteria skipping blank rows||6||19|
|Excel Need to return the text of a filter column||11||19|
|Excel conditional formatting based on 'zero value'||6||17|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
8 Experts available now in Live!