Cách bỏ tất cả Superscript và Subscript trong một range

[vba_gpe]

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:

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.

 

[ndu96081631]

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:

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.

Vầy là được rồi:

With Range("A1").Font
  .Superscript = False
  .Subscript = False
End With

Thay range("A1") thành vùng tùy ý

 

[vba_gpe]

Cảm ơn thầy nhiều nhưng vẫn không được thầy à.
Em gửi lênh cho thầy và cả nhà xem giúp.

 

[phanminhphuong]

Cảm ơn thầy nhiều nhưng vẫn không được thầy à.
Em gửi lênh cho thầy và cả nhà xem giúp.

Thử thế này nhé:

Sub test()
    With Range("A1").Font
        .Subscript = False
        .Superscript = False
    End With
End Sub

Còn nếu không được thì font trong A1 không phải định dạng chuẩn của Excel có thể bạn copy từ nguồn nào đó Excel ko nhận ra (vào Font setting kiểm tra lại)

 

[vba_gpe]

Hi. phanminhphuong
Cảm ơn Phanminhphuong nhưng vẫn chưa được luôn anh à.

 

[phanminhphuong]

Hi. phanminhphuong
Cảm ơn Phanminhphuong nhưng vẫn chưa được luôn anh à.

Xem lại #4, có thử file ví dụ nhé

 

[ndu96081631]

Cảm ơn thầy nhiều nhưng vẫn không được thầy à.
Em gửi lênh cho thầy và cả nhà xem giúp.

Bạn hỏi một đàng, đưa ví dụ một nẻo.
Bạn xem lại cell A1 trong file đi, nó có phải là định dạng Subscript hay Superscript gì đâu chứ. Con số 3 trong chuỗi m³ ấy là 1 ký tự đặc biệt

 

[vba_gpe]

Bạn hỏi một đàng, đưa ví dụ một nẻo.
Bạn xem lại cell A1 trong file đi, nó có phải là định dạng Subscript hay Superscript gì đâu chứ. Con số 3 trong chuỗi m³ ấy là 1 ký tự đặc biệt

Dạ, chỗ này em không để ý, em nhìn vào cứ tưởng là của Superscript.
Đối với ký tự như vậy mình có cách nào chuyển qua không thầy. Hay là phải duyệt qua từng ký tự trong chuổi, cho nó cái điều kiện giống ký tự đó thì chuyển về.
Em cảm ơn cả nhà.

 

[vba_gpe]

Xem lại #4, có thử file ví dụ nhé

Cảm ơn phanminhphuong. Thầy NDU có giải thích nguyên nhân ở bài #7 rồi.
Cảm ơn bạn rất nhiều.

 

[ndu96081631]

Dạ, chỗ này em không để ý, em nhìn vào cứ tưởng là của Superscript.
Đối với ký tự như vậy mình có cách nào chuyển qua không thầy. Hay là phải duyệt qua từng ký tự trong chuổi, cho nó cái điều kiện giống ký tự đó thì chuyển về.
Em cảm ơn cả nhà.

Mấy ký tự đặc biệt ấy cùng lắm cũng chỉ có vài em (tôi thường thấy có số 0, số 2 và số 3). Vậy thì dùng Find and Replace 3 lần là xong chứ gì
Bằng tay, khỏi code

 

[vba_gpe]

Mấy ký tự đặc biệt ấy cùng lắm cũng chỉ có vài em (tôi thường thấy có số 0, số 2 và số 3). Vậy thì dùng Find and Replace 3 lần là xong chứ gì
Bằng tay, khỏi code

Cảm ơn thầy nhiều chắc sẽ xử lý như vậy cho nhanh.

 

[Quang_Hải]

Dạ, chỗ này em không để ý, em nhìn vào cứ tưởng là của Superscript.
Đối với ký tự như vậy mình có cách nào chuyển qua không thầy. Hay là phải duyệt qua từng ký tự trong chuổi, cho nó cái điều kiện giống ký tự đó thì chuyển về.
Em cảm ơn cả nhà.

Sub abc()
[A:A].Replace ChrW(176), 0
[A:A].Replace ChrW(178), 2
[A:A].Replace ChrW(179), 3
End Sub

 

[vba_gpe]

Sub abc()
[A:A].Replace ChrW(178), 2
[A:A].Replace ChrW(179), 3
End Sub

Hi, anh quanghai1969
Cảm ơn anh nhiều, có cách nào anh tìm ra ký tự đó nhanh vậy nhỉ? Chỉ giúp em với.

 

[Quang_Hải]

Hi, anh quanghai1969
Cảm ơn anh nhiều, có cách nào anh tìm ra ký tự đó nhanh vậy nhỉ? Chỉ giúp em với.

Tại A1 nhập =CHAR(ROW(1:1)) rồi kéo xuống sẽ biết. Cũng nên cố gắng nhớ anh chàng 160 là hay gặp lắm