Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
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, |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
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, |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
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, |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
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, |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to delete row | Excel Worksheet Functions | |||
delete a macro that isn't in macro list | Excel Discussion (Misc queries) | |||
How can I delete a macro when the Delete button is not active? | Excel Worksheet Functions | |||
How do i delete a macro in Excel 2003 when delete isn't highlight | Excel Discussion (Misc queries) | |||
Macro to delete a row | Excel Discussion (Misc queries) |