Delete every other two row MACRO
 

Hello:

I need a macro to delete every other rows starting from row2. For example
Col B
Row2: Test1-a
Row3 Test1-b
Row4 Test1-c
Row5: Test2-a
Row6: Test2-b
Row7: Test2-c

In other words, I'd like the macro to delete row 3-4 (b-c) and 6-7 (b-c),
and so on

Thanks again,

Delete every other two row MACRO
 

Try the macro below.
Replace 99 with the last row you want to leave (has to be multiple of 3)

Sub DelRow()
Application.ScreenUpdating = False
For i = 99 To 3 Step -3
Range("A" & i & ":A" & i + 1).Select
Selection.EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub

"bioyyy" wrote:

Hello:

I need a macro to delete every other rows starting from row2. For example
Col B
Row2: Test1-a
Row3 Test1-b
Row4 Test1-c
Row5: Test2-a
Row6: Test2-b
Row7: Test2-c

In other words, I'd like the macro to delete row 3-4 (b-c) and 6-7 (b-c),
and so on

Thanks again,

Delete every other two row MACRO
 

Hi,

The following code deletes a row at every 6th line. To use it for any other
number of lines simply change the 6 in the first row of code to the number
you want.

To use it select a vacant range of cells in a single column corresponding to
the height of the range you want to delete rows from and run the macro.
Tools Macro Macros.

I adjusted the code for your sample.

Sub InsertRows()
Selection = "=1/MOD(ROW(),2)"
Selection = Selection.Value
Selection.SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
Selection.EntireColumn.Delete
End Sub

This code runs extremely fast.

To add this code to a workbook:
1. Press Alt+F11 (opens the Visual Basic Editor)
2. Select your file in the Project - VBA Project window, top left (press
Ctrl+R if you do not see it.)
3. Choose Insert Module
4. Copy the code above to the module on the right

If this helps, please click the Yes button.
--
Thanks,
Shane Devenshire


"bioyyy" wrote:

Hello:

I need a macro to delete every other rows starting from row2. For example
Col B
Row2: Test1-a
Row3 Test1-b
Row4 Test1-c
Row5: Test2-a
Row6: Test2-b
Row7: Test2-c

In other words, I'd like the macro to delete row 3-4 (b-c) and 6-7 (b-c),
and so on

Thanks again,

Delete every other two row MACRO
 

Sheeloo. Thanks for a big help again.



"Sheeloo" wrote:

Try the macro below.
Replace 99 with the last row you want to leave (has to be multiple of 3)

Sub DelRow()
Application.ScreenUpdating = False
For i = 99 To 3 Step -3
Range("A" & i & ":A" & i + 1).Select
Selection.EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub

"bioyyy" wrote:

Hello:

I need a macro to delete every other rows starting from row2. For example
Col B
Row2: Test1-a
Row3 Test1-b
Row4 Test1-c
Row5: Test2-a
Row6: Test2-b
Row7: Test2-c

In other words, I'd like the macro to delete row 3-4 (b-c) and 6-7 (b-c),
and so on

Thanks again,