vba_gpe
Thành viên thường trực
- Tham gia
- 15/12/10
- Bài viết
- 296
- Được thích
- 44
- Nghề nghiệp
- Thất nghiệp
Em có một file trong đó có nhiều ô chứa ký tự được format ở dạng Subscript hoặc Superscript (Ví dụ: m³). Em muốn bỏ các ký tự Superscript này về nguyên gốc của nó bằng VB!
Ví dụ: m³ chuyển thành m3.
Em thử như thế này mà không được:
Cảm ơn mọi người nhiều lắm.
Mong nhận được hồi đáp.
Ví dụ: m³ chuyển thành m3.
Em thử như thế này mà không được:
Mã:
Sub Test()
Dim cll As Range
Set cll = Range("A1") 'Cell chứa ký tự
cll.Characters(1, Len(cll.Text)).Font.Superscript = False
End Sub
Cảm ơn mọi người nhiều lắm.
Mong nhận được hồi đáp.
Lần chỉnh sửa cuối: