excel : remove scientific notation

[huiyin9218]

Hi,

May I know is it possible to remove "E+02" from 3.840000E+02 to become 3.840000? I know the value is before and after is different but is it possible?

Hope you guys can help me.

 

[huiyin9218]

Sorry for bothering again. May I know how to extend the range of the code to other columns as well? Because my data are listed in more one column.

 

[Peter_SSs]

Sorry for bothering again. May I know how to extend the range of the code to other columns as well? Because my data are listed in more one column.

Details?

 

[huiyin9218]

Details?

From the code you guys suggested, it is for one column and until the end of the row which contains data. I hoping that if the code can continue to run until the end of column that contains data as well.

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]5.132849E-01[/TD]
[TD][/TD]
[TD]1.268000E-04[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1.280000E+02[/TD]
[TD][/TD]
[TD]2.282121E+03[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5.133000E+05[/TD]
[TD][/TD]
[TD]1.252540E+00[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

Table above is the example of my data, it is not only in column A, it is also in column B

 

[Peter_SSs]

Table above is the example of my data, it is not only in column A, it is also in column B

In that case try

Sub RemoveIt()
  Dim c As Range
  Dim lr As Long
  
  lr = Columns("A:B").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, SearchFormat:=False).Row
  For Each c In Range("A2:B" & lr)
    c.Value = Left(c.Text, 8)
  Next c
  Columns("A:B").NumberFormat = "0.000000"
End Sub

 

[huiyin9218]

In that case try

Sub RemoveIt()
  Dim c As Range
  Dim lr As Long
  
  lr = Columns("A:B").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, SearchFormat:=False).Row
  For Each c In Range("A2:B" & lr)
    c.Value = Left(c.Text, 8)
  Next c
  Columns("A:B").NumberFormat = "0.000000"
End Sub

THANK YOU SO MUCH!

 

[Peter_SSs]

THANK YOU SO MUCH!

You're welcome.