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,

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,

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,

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,