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,
|