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 S