Macro to delete specific number of rows.
Closed
Rahul
-
6 Jun 2012 à 06:46
TrowaD Posts 2921 Registration date Sunday 12 September 2010 Status Contributor Last seen 27 December 2022 - 7 Jun 2012 à 09:37
TrowaD Posts 2921 Registration date Sunday 12 September 2010 Status Contributor Last seen 27 December 2022 - 7 Jun 2012 à 09:37
Related:
- Macro to delete specific number of rows.
- How do i find a specific video on youtube - Guide
- How to delete a row in word - Guide
- How to delete specific chrome autofill suggestions - Guide
- How to delete skype account - Guide
- Sed delete line - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday 12 September 2010
Status
Contributor
Last seen
27 December 2022
555
7 Jun 2012 à 09:37
7 Jun 2012 à 09:37
Hi Rahul,
Here you go:
Best regards,
Trowa
Here you go:
Sub DeleteRows()
Dim lRow, x, y As Integer
lRow = Range("A" & Rows.Count).End(xlUp).Row
x = 1
Do
x = x + 50
Rows(x & ":" & x + 6).ClearContents
Loop Until x > lRow
For y = lRow To 1 Step -1
If Range("A" & y).Value = vbNullString Then Rows(y).Delete
Next y
End Sub
Best regards,
Trowa
