文件名称：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