Delete cells in column every

  • Thread starter Thread starter amorrison2006
  • Start date Start date
A

amorrison2006

Hi

How do I delete cells left every second cell in my column B starting
from 4 cells down in the column?

Been looking for hours to do this......

Any help is appreciated,

Andrea
 
One way:

Dim rDelete As Range
Dim i As Long
Set rDelete = Cells(4, 2)
For i = 6 To Cells(Rows.Count, 2).End(xlUp).Row Step 2
Set rDelete = Union(rDelete, Cells(i, 2))
Next i
rDelete.Delete Shift:=xlToLeft
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA set thick borders around non empty cells in range 0
Automatically create names from values in cell 2
Code to do a simple clean of one column by copying and pasting(finding and replacing) phrases in adj 4
Excel Columns moving up and down on their own in a worksheet. What Goes? 2
Array with many cells from a row but not in order or together 11
Excel Copy cells from one worksheet to another workseet - increment row & do again 0
MsgBox with information on selected cells 11
Run macro on all files in a specific folder 3

Back
Top