PC Review


Reply
Thread Tools Rate Thread

Delete cells in column every

 
 
amorrison2006@googlemail.com
Guest
Posts: n/a
 
      9th May 2007
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

 
Reply With Quote
 
 
 
 
JE McGimpsey
Guest
Posts: n/a
 
      9th May 2007
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


In article <(E-Mail Removed)>,
(E-Mail Removed) wrote:

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

 
Reply With Quote
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
delete cells column. Delete empty cells myshak Microsoft Excel Worksheet Functions 0 9th Mar 2009 10:59 PM
How can I delete all balnk cells in a column? John Microsoft Excel Misc 6 14th Jan 2008 03:05 AM
Empty/Delete Cells in a Column =?Utf-8?B?U1N3YW4=?= Microsoft Excel Programming 2 19th Jul 2007 11:54 AM
In a column of text data, how do I delete random cells that have . =?Utf-8?B?TWluaXZhbm4=?= Microsoft Excel Misc 2 26th Jan 2005 09:07 PM
delete all EMPTY cells along each COLUMN active_x Microsoft Excel Programming 0 10th Sep 2003 03:41 AM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 07:01 PM.