How to write vba macro in excel 2013 to delete cells in column Closed

Question

I am analyzing data of  two column A1-A310632 cell and B1-B310632 cells to check and delete the first 2  columns  i.e A1-2,B1-B2 while keeping the next column ie A3,B3 and again deleting the next 2 columns ie A4- A5,B4,B5 keeping 1 column ie A6and B6 until reach A310632 and B310632.

For example
A1,B1.......macro to delete
A2,B2.......macro to delete
A3,B3.......macro to skip DONOT DELETE
A4,B4......macro to delete
A5,B5.......macro to delete
A6,B6.......macro to skip DONOT DELETE
.
.
.
A310632,B310632



Thank you and appreciate if I can be given VBA macro code examples 

regards

TrowaD · Answer

Hi Waisi,

See if the following code yields the desired result:
Sub RunMe()
Dim x As Long
x = 1

Do
    Range(Cells(x, "A"), Cells(x + 1, "A")).EntireRow.Delete
    x = x + 1
Loop Until IsEmpty(Range("A" & x))

End Sub

Best regards,
Trowa

How to write vba macro in excel 2013 to delete cells in column

1 response

Similar discussions

Subscribe To Our Newsletter!