工作表中的小写字母都变成大写【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

未经允许不得转载：金蝶精斗云 » 工作表中的小写字母都变成大写【excel实用教程】