excel 字母变大写 宏

Sub ConvertToUpperCase() 

Dim Rng As Range 

Worksheets("Sheet1").UsedRange.Select 

For Each Rng In Selection.Cells 

If Rng.HasFormula = False Then 

Rng.value = UCase(Rng.value) 

End If 

Next Rng 

End Sub