select every other cell in a column

[deb]

How can I select every other cell in Row B, from row 2 thru row 250?
Data looks like this...

Item1
price1
Item2
price2

I need...

Item1 price1
Item2 price2

so if I can select every other cell in the column, i can move them the
correct column.

 

[Mike H]

Hi,

With a Macro. Right click your sheet tab, view code and psate this in and
run it

Sub everyother()
Dim rRow As Long, rEverySecond As Range
On Error Resume Next
For rRow = 2 To 250 Step 2
If rEverySecond Is Nothing Then
Set rEverySecond = Cells(rRow, "B")
Else
Set rEverySecond = Union(rEverySecond, Cells(rRow, "B"))
End If
Next rRow
rEverySecond.Select
End Sub

Mike

 

[Don]

I like Mike's option , but you can also do a formula in cell b, say item1 is
in cell A1 , then in cell B1 put =A2 and drag that down. Then in C1 put 1,
then in c2 put =if(c1=1,0,1) and drag that down. Then filter on column C so
only the 1's are showing. You can copy this or what ever but a line with
item1, price , and 1 will be showing.

good luck

 

[RagDyeR]

Instead of copying and pasting, try this formula, which will give you the
data configuration that you're looking for.

Enter this formula *anywhere*, then copy across one column.
Then, select *both* cells, and drag down the 2 cell selection as far as
needed.

=INDEX($B$2:$B$250,2*ROWS($1:1)+COLUMNS($A:A)-2)

After you have all the data displayed as needed, you can remove the formulas
and leave just the data behind by copying to itself and then "Paste
Special", and click on "Values", then <OK>.

--

HTH,

RD
=====================================================
Please keep all correspondence within the Group, so all may benefit!
=====================================================

How can I select every other cell in Row B, from row 2 thru row 250?
Data looks like this...

Item1
price1
Item2
price2

I need...

Item1 price1
Item2 price2

so if I can select every other cell in the column, i can move them the
correct column.