Find all odd numbers in column and move them to a new column

[SOLTEC]

I have column B where are cells with starting odd and even numbers. I need a formula to find all cell rows that start with an odd number, then move those cell rows to column A. Thank you in advance

 

[offthelip]

That is a bit vague: is the number of digits fixed or does it vary? do you want us to just look at just the first digit or all the digits? Is the content of the cells text or is it numbers? Is it just numbers in the cells or is there something else after the numbers? What result do you want? TRUE/FALSE? the value of the number ??

 

[Fluff]

How about

Fluff.xlsm
	A	B
1
2	191679	222843
3	556516	191679
4	106316	556516
5	121815	106316
6	324052	266957
7	186145	434885
8	185593	121815
9	339743	324052
10	570455	186145
11	344066	213053
12	393828	185593
13	306977	339743
14	519486	570455
15	175927	344066
16	111374	393828
17	182732	306977
18	180398	519486
19	304059	175927
20	391570	111374
21	160695	182732
22	339364	408433
23	149050	180398
24	395353	304059
25	303584	391570
26	319585	160695
27	391801	295836
28	175549	283934
29	179942	339364
30		279020
31		149050
32		395353
33		303584
34		319585
35		224838
36		391801
37		430083
38		226926
39		175549
40		179942
Data

Cell Formulas
Range	Formula
A2:A29	A2	=FILTER(B2:B40,ISODD(LEFT(B2:B40)))
Dynamic array formulas.

 

[jolivanes]

Not a formula.

Sub Maybe()
Dim c As Range
    For Each c In Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)
        If Left(c, 1) Mod 2 <> 0 Then
            c.Offset(, -1).Value = c.Value
            c.Value = ""
        End If
    Next c
Range("A:B").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub