Formula to select every third cell in a very long column of data?

G

Guest

Is there a formula or an easy way to select/highlight every third cell in a
very long column of data?
 
G

Guest

hi,
formulas return values from other cells but they cannot perform actions like
select another cell.
Multiple selects are possible but you can run into problems depending with
what you wish to do.
this macro will highlight every third cell
edit to fit your data.
Sub everythird()
Dim r As Range
Dim rd As Range
Set r = Range("A2")
Do While Not IsEmpty(r)
Set rd = r.Offset(3, 0)
r.Interior.ColorIndex = 40
Set r = rd
Loop
End Sub

regards
FSt1
 
P

Pete_UK

In a helper column adjacent to your set of data, you can enter a
formula like:

=MOD(ROW(),3)

and copy this down. This will return values of 0, 1, and 2 down the
column. If you apply an autofilter to this column you can select which
of these values you want to display - suppose you choose 0. Then you
can click on the first visible cell, hold down <SHIFT>, press <End>
once followed by <down>, and then release <SHIFT>. Without clicking on
another cell, use the pull-down on the filter to select All, and then
you will have every third cell highlighted.

Hope this helps.

Pete
 

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

Top