Cách chuyển font này thành unicode? (2 người xem)

[danght]

mình có 1 dữ liệu về sdt của 1 tỉnh nhưng không biết cách nào để chuyển đổi font đọc được.mong các bạn giúp đỡ.
file ví dụ đính kèm.
thank!

 

[phamduylong]

mình có 1 dữ liệu về sdt của 1 tỉnh nhưng không biết cách nào để chuyển đổi font đọc được.mong các bạn giúp đỡ.
file ví dụ đính kèm.
thank!

Không biết dữ liệu đó từ đâu chuyển qua Excel, dùng font gì. Nhưng xem qua thì quy luật bỏ dấu của nó là Telex:

o`w`s|ớ
o`o`j|ộ
u`w`s|ứ
u`w`x|ữ
a`s|á
a`f|à
a`f |à
a`a|â

Từ đó, bạn có thể dùng Replace để chuyển o`w`s > ớ, o`o`j > ộ, a`s >á, a`f > à, ...
Để thay thế hàng loạt, bạn dùng thủ tục ConvertFont:

Sub ConvertFont()
Columns("B:B").Copy Columns("G:G")
Columns("G:G").Select
r = 1
Do
 Selection.Replace What:=Cells(r, 4), Replacement:=Cells(r, 5)
 r = r + 1
Loop While Cells(r, 4) <> ""
End Sub

- Cột B là dữ liệu cần chuyển đổi
- Cột D là chữ Telex, cột E là chữ Unicode (chú ý chữ Telex nhiều ký tự phải xếp trên). Bạn cần bổ sung thêm cho đủ các chữ cái có dấu

ConvertFont sẽ copy dữ liệu từ cột B qua cột G và chuyển trên cột G để giữ dữ liệu gốc của bạn.

|

B​

|

C​

|

D​

|

E​

|

F​

|

G​

|

1​

|

Dữ liệu gốc​

||

Telex​

|

Unicode​

||

Dữ liệu đã chuyển​

|

2​

|Ubnd H.co`on D`da`ro To`on D`du`w`sc Tha`w`sng, H.co`on D`da`ro, Ba`f Ri`ja - Vu`xng Ta`f| |a`w`s|ắ| |Ubnd H.côn Đảo Tôn Đức Thắng, H.côn Đảo, Bà Rịa - Vũng Tà|

3​

|Ubnd H.co`on D`da`ro To`on D`du`w`sc Tha`w`sng, H.co`on D`da`ro, Ba`f Ri`ja - Vu`xng Ta`f| |e`e`s|ế| |Ubnd H.côn Đảo Tôn Đức Thắng, H.côn Đảo, Bà Rịa - Vũng Tà|

4​

|Ubnd H.co`on D`da`ro To`on D`du`w`sc Tha`w`sng, H.co`on D`da`ro, Ba`f Ri`ja - Vu`xng Ta`f| |e`e`f|ề| |Ubnd H.côn Đảo Tôn Đức Thắng, H.côn Đảo, Bà Rịa - Vũng Tà|

5​

|Ubnd H.co`on D`da`ro To`on D`du`w`sc Tha`w`sng, H.co`on D`da`ro, Ba`f Ri`ja - Vu`xng Ta`f| |e`e`x|ễ| |Ubnd H.côn Đảo Tôn Đức Thắng, H.côn Đảo, Bà Rịa - Vũng Tà|

6​

|Cty Ngo`jc Trai Co`on D`da`ro Lo`o | |e`e`r|ể| |Cty Ngọc Trai Côn Đảo Lô |

7​

|Cty Ngo`jc Trai Co`on D`da`ro Lo`o | |o`o`r|ổ| |Cty Ngọc Trai Côn Đảo Lô |

8​

|Cty Ngo`jc Trai Co`on D`da`ro Lo`o | |o`w`s|ớ| |Cty Ngọc Trai Côn Đảo Lô |

9​

|D`do`o`ji Thanh Tra Giao Tho`ong | |o`o`j|ộ| |Đội Thanh Tra Giao Thông |

10​

|Vie`e`jm Kie`e`rn Sa`st Nha`an Da`an Khu | |u`w`s|ứ| |Việm Kiển Sát Nhân Dân Khu |

11​

|Vp H.`ry Co`on D`da`ro | |u`w`x|ữ| |Vp H.`ry Côn Đảo |

12​

|Vp H.`ry Co`on D`da`ro | |a`s|á| |Vp H.`ry Côn Đảo |

13​

|Lie`en D`doa`fn Lao D`do`o`jng Huye`e`jn | |a`f|à| |Liên Đoàn Lao Động Huyện |

14​

|Ho`o`ji Lie`en Hie`e`jp Phu`j Nu`w`x Huye`e`jn Khu | |a`f |à| |Hội Liên Hiệp Phụ Nữ Huyện Khu |

15​

|Ho`o`ji Lie`en Hie`e`jp Phu`j Nu`w`x Huye`e`jn Khu | |a`a|â| |Hội Liên Hiệp Phụ Nữ Huyện Khu |

16​

|Cn To`o`rng Cty Dl Sa`fi Go`fn Ta`ji Co`on D`da`ro | |a`à|ầ| |Cn Tổng Cty Dl Sài Gòn Tại Côn Đảo |

17​

|Thu`w Vie`e`jn Co`on D`da`ro | |a`r|ả| |Thư Viện Côn Đảo |

18​

|Cty Jvpc La`a`fu | |a`j|ạ| |Cty Jvpc Lầu |

19​

|Cty Jvpc La`a`fu | |D`d|Đ| |Cty Jvpc Lầu |

20​

|Tra`a`fn Thanh Lie`em | |e`e|ê| |Trần Thanh Liêm |

21​

|Pha`jm Tha`fnh Tie`e`sn | |ê`j|ệ| |Phạm Thành Tiến |

22​

|Nga`an Ha`fng Nha`f Nu`wo`w`sc Ti`rnh Ba`f Ri`ja Vu`xng Ta`fu | |i`s|í| |Ngân Hàng Nhà Nước Tỉnh Bà Rịa Vũng Tàu |

23​

|Le`e Thi`j Sa`fng | |i`f|ì| |Lê Thị Sàng |

24​

|Pha`jm Kie`e`fu Thu`sy D`doan | |i`r|ỉ| |Phạm Kiều Thúy Đoan |

25​

|Tra`a`fn Bi`sch Thu`ry | |i`j|ị| |Trần Bích Thủy |

26​

|Cty Tnhh Do`fng So`ong Xanh (cn Greenlines Ta`ji Vu`xng Ta`fu) | |o`f|ò| |Cty Tnhh Dòng Sông Xanh (cn Greenlines Tại Vũng Tàu) |

27​

|Hai Doi Ii Bien Phong | |o`o|ô| |Hai Doi Ii Bien Phong |

28​

|Hai Doi Ii Bien Phong | |o`j|ọ| |Hai Doi Ii Bien Phong |

29​

|Tha`an Tro`jng Hoa`fi | |o`ọ|ộ| |Thân Trọng Hoài |

30​

|Ba`fnh Minh Cha`au | |u`s|ú| |Bành Minh Châu |

31​

|Nguye`e`xn Thi`j Lan | |u`x|ũ| |Nguyễn Thị Lan |

32​

|Le`e Ngo`jc Hie`e`fn | |u`r|ủ| |Lê Ngọc Hiền |

33​

|Hy`r A Va`f | |u`w|ư| |Hỷ A Và |

34​

|La`fng Bi`fnh An - Cty Tnhh La`fng Bi`fnh An | |u`w|ư| |Làng Bình An - Cty Tnhh Làng Bình An |

35​

|Le`e Tie`e`sn Trung | |u`j|ụ| |Lê Tiến Trung |

36​

|Royal - Kha`sch Sa`jn Royal (royal Hotel) | |y`r|ỷ| |Royal - Khách Sạn Royal (royal Hotel) |

37​

|Royal - Kha`sch Sa`jn Royal (royal Hotel) | | | | |Royal - Khách Sạn Royal (royal Hotel) |

38​

|Nguye`e`xn Ngo`jc Du`wo`wng | | | | |Nguyễn Ngọc Dưo`wng |

39​

|Nguye`e`xn Thi`j Kim Thanh | | | | |Nguyễn Thị Kim Thanh |

 

[bactu]

mình có 1 dữ liệu về sdt của 1 tỉnh nhưng không biết cách nào để chuyển đổi font đọc được.mong các bạn giúp đỡ.
file ví dụ đính kèm.
thank!

Bạn có thể dùng addin A-Tools của bác Tuấn!

Lên google seạrch A-Tools tải về nhé!

Chúc bạn thành công!