help me write a VBA macro to delete specified rows in Microsoft Excel 1

[dddivers]

Can any of you geniuses help? I'm trying to write an Excel macro that will delete every 5th row (or 3rd or 4th....whatever I specify), up to a specifed stopping point, in an Excel workbook. I'm close but no banana. HELP! Thank you!

 

[Imhoteb]

hi,

Is this what you looking for?

Sub ClearRowsColums()
'
'select the whole row
Rows("4:4&quot.Select
'clear contents of the whole row
Selection.ClearContents
'select a range in a row
Range("A8:K8&quot.Select
'clear content of the range
Selection.ClearContents
'select the whole column
Columns("C:C&quot.Select
'clear contents of the whole column
Selection.ClearContents
'select a range in a column
Range("F1:F25&quot.Select
'clear content of the range
Selection.ClearContents
End Sub


Hope this helps

 

[dsi]

Try this. All you need to do is retrieve the input values for the Step and End rows.

    Dim sTmp As String, iRow As Long
    Dim iStep As Long, iEnd As Long
    Dim i As Long, iRemoved As Long
    
    iStep = 5       'step
    iEnd = 25       'last row
    iRemoved = 0
    
    For i = iStep To iEnd Step iStep
        iRow = i - iRemoved
        Rows(iRow & ":" & iRow).Delete Shift:=xlUp
        iRemoved = iRemoved + 1
    Next i