【文件属性】：
文件名称：Excel大小写转换
文件大小：22KB
文件格式：XLS
更新时间：2016-01-14 03:37:25
Excel 大小写转换
Excel大小写转换
Sub Upper()
Dim itarget As Range
Set itarget = Selection
For Each ran In itarget
ran.Value = UCase(ran)
Next
End Sub
Sub Lower()
Dim itarget As Range
Set itarget = Selection
For Each ran In itarget
ran.Value = LCase(ran)
Next
End Sub