select certain cells

M

melle

I want to select cells A1:A5:A9:A13:A17:A21 etc. etc. A4021: A4025

So, I want to select A1 + 4.

I would be very thankful if someone could help me.

Ragards,

Melle
 
D

Dave Peterson

Manually?

One way...

Insert a new column (say E??)
Put this in E1:
=mod(row(),4)
drag down as far as you need to go

Now apply Data|Filter|Autofilter to column E.
Filter to show only the 1's
Then select column A
Edit|goto|special|visible cells only

then either remove the autofilter or just turn it off:
data|filter|autofilter
or
data|filter|show all

You can delete that helper column later.
 
G

gearoi

sure hold down ctrl and select the cells in question.

You might want to code it I suppose in which case you do:

range("your_range").resize(4,1).select

I'm not sure how much more I can help without more info
 
B

Bruno Campanini

melle said:
I want to select cells A1:A5:A9:A13:A17:A21 etc. etc. A4021: A4025
Click to expand...

So you want to select 1007 cells; simultaneously or sequentially?

Bruno
 
B

Bruno Campanini

melle said:
I want to select cells A1:A5:A9:A13:A17:A21 etc. etc. A4021: A4025

So, I want to select A1 + 4.

I would be very thankful if someone could help me.
Click to expand...

This selects simultaneously 1007 cells as requested
------------------------------------------------
Sub BigSelection()
Dim i As Integer, NumArray(1 To 1008) As Integer
Dim j As Integer, BigRange(1 To 28) As String
Dim VeryBigRange As Range
For i = 1 To 4029 Step 4
j = j + 1
NumArray(j) = i
Next
For i = 1 To 28
For j = 1 To 36
BigRange(i) = BigRange(i) & "A" & NumArray(j + 36 * (i - 1)) & ","
Next
Mid(BigRange(i), Len(BigRange(i)), 1) = " "
Next
BigRange(i - 1) = Mid(BigRange(i - 1), 1, Len(BigRange(i - 1)) - 7)
Set VeryBigRange = Application.Union( _
Range(BigRange(1)), Range(BigRange(2)), Range(BigRange(3)),
Range(BigRange(4)), _
Range(BigRange(5)), Range(BigRange(6)), Range(BigRange(7)),
Range(BigRange(8)), _
Range(BigRange(9)), Range(BigRange(10)), Range(BigRange(11)),
Range(BigRange(12)), _
Range(BigRange(13)), Range(BigRange(14)), Range(BigRange(15)),
Range(BigRange(16)), _
Range(BigRange(17)), Range(BigRange(18)), Range(BigRange(19)),
Range(BigRange(20)), _
Range(BigRange(21)), Range(BigRange(22)), Range(BigRange(23)),
Range(BigRange(24)), _
Range(BigRange(25)), Range(BigRange(26)), Range(BigRange(27)),
Range(BigRange(28)))
VeryBigRange.Select
End Sub
 
Top