Chuyển đổi giúp em sang dạng text với ạ (1 người xem)

[andreacaldwell001]

Em có 1 cột dữ liệu rất là dài ạ, Đây là 1 đoạn file mà em đưa lên để mọi người có thể hình dung và giúp em. Khi em suất ra thì nó bị lỗi gì đó mà tất cả các mã có chữ e sau nó là số thì nó lại hiểu làm là hàm mũ nên bây giờ em bị lỗi . dưới đây hình ảnh mình họa và file đính kèm của em. Mong được sự giúp đỡ của mọi người ạ

 

[andreacaldwell001]

Ai đó đi qua làm ơn giúp em với ạ

 

[gtri]

Em có 1 cột dữ liệu rất là dài ạ, Đây là 1 đoạn file mà em đưa lên để mọi người có thể hình dung và giúp em. Khi em suất ra thì nó bị lỗi gì đó mà tất cả các mã có chữ e sau nó là số thì nó lại hiểu làm là hàm mũ nên bây giờ em bị lỗi . dưới đây hình ảnh mình họa và file đính kèm của em. Mong được sự giúp đỡ của mọi người ạ

Không hiểu là bị sai chỗ nào, nhìn trên thanh công thức, các giá trị có làm sao đâu bạn.

 

[Ba Tê]

Em có 1 cột dữ liệu rất là dài ạ, Đây là 1 đoạn file mà em đưa lên để mọi người có thể hình dung và giúp em. Khi em suất ra thì nó bị lỗi gì đó mà tất cả các mã có chữ e sau nó là số thì nó lại hiểu làm là hàm mũ nên bây giờ em bị lỗi . dưới đây hình ảnh mình họa và file đính kèm của em. Mong được sự giúp đỡ của mọi người ạ

Thử chạy Sub này xem sao. Chỉ đúng cho dữ liệu "y chang" trong file.
[GPECODE=vb]Public Sub GPE()
Dim Rng As Range, Cll As Range
Set Rng = Range([B10], [B65536].End(xlUp))
For Each Cll In Rng
Cll.Offset(, 2).Value = "'" & Replace(Replace(Cll.Text, ",", "."), ".10E+", "1e")
Next Cll
End Sub[/GPECODE]
Enable Macros khi mở file

 

[andreacaldwell001]

Thử chạy Sub này xem sao. Chỉ đúng cho dữ liệu "y chang" trong file.
[GPECODE=vb]Public Sub GPE()
Dim Rng As Range, Cll As Range
Set Rng = Range([B10], [B65536].End(xlUp))
For Each Cll In Rng
Cll.Offset(, 2).Value = "'" & Replace(Replace(Cll.Text, ",", "."), ".10E+", "1e")
Next Cll
End Sub[/GPECODE]
Enable Macros khi mở file

Chạy sub như thế nào ạ em gà k biết chạy ạ

 

[Ba Tê]

Chạy sub như thế nào ạ em gà k biết chạy ạ

Khi mở file thì chọn Enable Macros.
Trong sheet1 có cái nút GPE, bấm vào là nó chạy thôi.
Thử xoá cột D, bấm nút, xoá cột D, bấm nút ... khi thấy mõi tay thì thôi.
Muốn xem Sub viết thế nào thì Alt+F11

 

[olegtran]

Ai đó đi qua làm ơn giúp em với ạ

Mình chưa hiểu ý rõ lắm. Có thể 2 cách hiểu:
1- Cái Hichic của bạn là số liệu chiết suất ra từ một chương trình nào đó > Nếu vậy thì bạn xem lại việc export chương trình kia.
2- Có cái file Hichic thế này, bạn muốn chỉnh làm sao cho nó đúng ý đồ của bạn > Nếu vậy bạn có thể dùng công thức tại E10 =REPLACE(TEXT(B10;"@");4;2;"e"), kéo xuống . (xem file đính kèm)

 

[huuthang_bd]

Em có 1 cột dữ liệu rất là dài ạ, Đây là 1 đoạn file mà em đưa lên để mọi người có thể hình dung và giúp em. Khi em suất ra thì nó bị lỗi gì đó mà tất cả các mã có chữ e sau nó là số thì nó lại hiểu làm là hàm mũ nên bây giờ em bị lỗi . dưới đây hình ảnh mình họa và file đính kèm của em. Mong được sự giúp đỡ của mọi người ạ

Theo suy đoán của tôi thì có thể bạn đã nhầm, dữ liệu gốc theo tôi sẽ như thế này:
2.10E+13 -> 21e12
2.10E+14 -> 21e13
2.10E+15 -> 21e14
Nếu đúng như tôi đoán thì bạn có thể dùng công thức này:

=IF(ISTEXT(B10),B10,(B10/(10^INT(LOG10(B10)-1)))&"e"&INT(LOG10(B10)-1))

Nếu bạn không nhầm thì bạn có thể dùng công thức này:

=IF(ISTEXT(B10),B10,(B10/(10^INT(LOG10(B10)-1)))&"e"&INT(LOG10(B10)))

 

[andreacaldwell001]

Theo suy đoán của tôi thì có thể bạn đã nhầm, dữ liệu gốc theo tôi sẽ như thế này:
2.10E+13 -> 21e12
2.10E+14 -> 21e13
2.10E+15 -> 21e14
Nếu đúng như tôi đoán thì bạn có thể dùng công thức này:

=IF(ISTEXT(B10),B10,(B10/(10^INT(LOG10(B10)-1)))&"e"&INT(LOG10(B10)-1))

Nếu bạn không nhầm thì bạn có thể dùng công thức này:

=IF(ISTEXT(B10),B10,(B10/(10^INT(LOG10(B10)-1)))&"e"&INT(LOG10(B10)))

Cám ơn anh em đã thành công với cái hàm của anh đơn giản mà k rắc rối ạ