Deleting multiple rows (2 rows and leave 1)
Closed
dreamer_886
-
Oct 20, 2011 at 04:18 PM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Oct 20, 2011 at 10:23 PM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Oct 20, 2011 at 10:23 PM
Related:
- Deleting multiple rows (2 rows and leave 1)
- 텐타클 락커 2 - Download - Adult games
- Tentacle locker 1 - Download - Adult games
- Saints row 2 cheats - Guide
- Igi 1 download - Download - Shooters
- Fnia 1 apk - Download - Adult games
1 response
venkat1926
Posts
1863
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
811
Oct 20, 2011 at 10:23 PM
Oct 20, 2011 at 10:23 PM
try this macro
Sub test()
Dim j As Long, k As Long
j = Range("A1").End(xlDown).Row
For k = j To 1 Step -1
If k Mod 3 <> 1 Then Cells(k, 1).EntireRow.Delete
Next k
End Sub
