Need to Customize format of cells!!!!

[LittleAnn]

Please help.

I have a large excel sheet with the columns looking as follows:

A B C D
E

207,803, 209 9 44,946, 2527,571, 296900,873, 291158,381,
210,000, 209 12 44,228, 2527,571, 296899,802, 291156,463,
214,643, 209 19 3,160, 2527,571, 296897,532, 291152,412,
216,818, 209 22 0,637, 2527,571, 296896,466, 291150,516,

What I need to do is make the columns do look like the following but without
have to go to each cell to edit the contents, i.e putting +signs in column A
before last 3digits, putting decimal place in front of the last 3digits in
column B, C, D & E and removing the commas throughout.

There a thousands of these figures that will be inputted on an ongoing basis
so I need to customize each column so only figures need to be inputted and
not various symbols.

0+000 65 18 0.310 Straight 296568.808 290861.845
1+287 65 18 0.310 Straight 296569.977 290862.382
10+000 65 18 0.310 Straight 296577.893 290866.023
12+023 65 18 0.310 Straight 296579.731 290866.869
20+000 65 18 0.310 Straight 296586.978 290870.202

 

[Don Guillett]

I would suggest a macro that:
eliminates commas
puts the + in right len -
etc
I can't really tell from your before/after. If desired send your wb to my
address below with a snippet of this msg.

 

[LittleAnn]

I have figured out some of what I was looking for, the main thing I really
need is I have a number of cells with various size numbering, e.g
A: 291192,723, B: 23,072, want it to look like 291192.723 23.072
i.e commas are in various places in numbering just need to make it three
decimal places.

I need the first comma in each to become a decimal place and to get rid of
the second comma, but when people enter numbering it is just adding .000 at
the end of each numbering and not formatting the inputted data to three
decimal places as shown above.

 

[Don Guillett]

I forgot abou this one until now. Try this

Sub dodots()
lr = Cells(Rows.Count, "a").End(xlUp).Row
For Each c In Range("a2:b" & lr)
With c
.Replace ",", ""
.Value = .Value / 1000
.NumberFormat = "0.000"
End With
Next c
End Sub