Hỏi lại bạn 1 chút 2 con số trong ví dụ của bạn(Phần tô đậm) có dạng phân số hay lũy thừa?
Bạn gửi file đính kèm với dữ liệu và kết quả giả định mới tính được
Bạn tham khảo Code dưới đây:
Sub LUYTHUA()
Dim Cll As Range
Set Vung = Sheets(1).Range("A1:B1001")
For Each Cll In Vung
If Len(Trim(Cll.Value)) > 1 Then
Cll.Characters(Start:=4, Length:=2).Font.Superscript = True
End If
Next
Set Vung = Nothing
End Sub
Em thử code này trên File nếu số mũ có 1 hoặc 2 kí tự thì ok còn nếu có nhiều hơn 2 kí tự thì không được anh ạ! Mong anh và các bạn giúp đỡ!
Đến giờ chẳng có file đính kèm nên chả hiểu chủ topic và bạn muốn hỏi gì nữa vì chả biết cơ sở dữ liệu thật như thế nào. 11 3, 32 C1 với chuỗi ban đầu thế này thì tất nhiên là bài #5 cũng chưa đúng được vì hiện tại tác giả làm đoán theo yêu cầu nên tách làm hai chuỗi con.Diễn đàn nước ngoài thấy có diễn đàn có được gửi file đính kèm đâu (hoặc phải có đủ số bài viết) nhưng hỏ hỏi đúng yêu cầu. Chỉ 5-6 lần trả lời là ok. Ở diễn dàn mình, có topic dài gần 30 trả lời mà còn chưa biết hết chủ topic muốn hỏi cài gì. Tôi muốn nói như vậy là để chúng ta phải học hỏi người nước ngoài rất nhiều vì họ hỏi vào đúng cái cần hỏi và Yêu cầu và nhu cầu của họ giống nhau
Bạn muốn số mũ là bao nhiêu cũng được tuốt
Public Sub DinhDang()
Dim DL As Range, Tam, r As Long, c As Long, i
Set DL = Sheet1.Range("A1").CurrentRegion
For r = 1 To DL.Rows.Count
DL(r, 1) = Application.Trim(Replace(DL(r, 1), ",", ""))
Tam = Split(DL(r, 1))
i = 0
For c = 0 To UBound(Tam) - 1
i = i + Len(Tam(c)) + 1
If c Mod 2 = 0 Then
DL(r, 1).Characters(i + 1, Len(Tam(c + 1))).Font.Superscript = True
End If
Next c
Next r
End Sub
