Nhờ mọi người giúp về dấu phân số thập phân

[nddung1980]

Mọi người giúp mình với:

Văn
200	thành	2.0
Toán
150	thành	1.5
Anh
280	thành	2.8
Tổng
2,580	thành	25,8

 

[phulien1902]

Bạn thử:

Sub Test()
    Dim cl As Range
    For Each cl In Selection
    If IsNumeric(cl) And cl <> Empty Then
        cl.Value = cl.Value / 100
         cl.NumberFormat = "0.0"
         End If
    Next cl
End Sub