工作表中的小写字母都变成大写

　　请运行以下程序：

　　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