98.7% Of all customers recommend us, we're so confident about our results we publish all reviews and stats
View Live Stats View Reviews
Forum home » Delegate support and help forum » Microsoft Excel Training and help » How to delete cells that occur every 3rd cell | Excel forum
How to delete cells that occur every 3rd cell | Excel forum
Resolved · Medium Priority · Version 2003
Wed 18 Jul 2012, 19:22Delegate Suyeon said...
Suyeon has attended:
Excel Advanced course
Excel VBA Intro Intermediate course
Access Advanced course
How to delete cells that occur every 3rd cell
how do I programme vba so that I can delete every 3rd cell ( populated) going down?
Many thanks
Thu 19 Jul 2012, 15:16Trainer Doug said...
RE: how to delete cells that occur every 3rd cell
Hi again Suyeon
This time place the cursor in the top cell first.
Then using a Do loop every third cell down is deleted until a black cell is reached.
Sub DeleteEveryThird()
'Place cursor in top cell first
Do Until ActiveCell.Value = ""
ActiveCell.Offset(2, 0).Select
ActiveCell.Delete Shift:=xlUp
Loop
End Sub
Regards
Doug
Best STL
Wed 25 Jul 2012: Automatically marked as resolved.
Training information:
See also:
|
Welcome. Please choose your application (eg. Excel) and then post your question. Our Microsoft Qualified trainers will then respond within 24 hours (working days). Frequently Asked Questions
Any suggestions, questions or comments? Please post in the Improve the forum thread. |
Excel tip:Random NumbersType =RAND()*200 to generate a number between 1 and 200. |
