Viết Code chỉ số trên cho ký hiệu thời tiết (1 người xem)

[phulien1902]

Viết Code chỉ số trên cho ký hiệu đặc biệt

Chào các ACE!
Trong quá trình làm việc tôi hay phải điền các ký hiệu về thời tiết lên trên các số. Nếu như số liệu ít thì điền chỉ số trên theo cách thủ công không có gì đáng nói, nhưng khi số liệu nhiều thì đó cũng là cả 1 vấn đề.
Vì vậy tôi gửi lên đây File và yêu cầu trong đó, mọi người xem file và viết giùm tôi Code nhé.
Xin cảm ơn mọi người.

 

[dhn46]

Bạn tham khảo Code sau. Bôi đen vùng dữ liệu rồi chạy Sub

Sub Superscript()
    Dim Rng As Range
    For Each Rng In Selection
        If Len(Rng) > 1 Then
            Rng.Characters(Len(Rng), 1).Font.Superscript = True
            'Neu muon chuyen thanh font chu Weather
            'Rng.Characters(Len(Rng), 1).Font.Name = "weather"
        End If
    Next
End Sub

 

[phulien1902]

Thật tuyệt vời.
Cảm ơn Ninh nhiều lắm!