Excel编写宏 新增按钮快速更改大小写

代码片段：

　　Sub 全部大写（）
　　Dim itarget As Range
　　Set itarget = Selection
　　For Each ran In itarget
　　'将单元格内容转换为大写形式
　　ran.value = UCase（ran）
　　Next
　　End Sub
　　右击“全部小写”按钮，输入代码：
　　Sub 全部小写（）
　　Dim itarget As Range
　　Set itarget = Selection
　　For Each ran In itarget
　　'将单元格内容转换为小写形式
　　ran.value = LCase（ran）
　　Next
　　End Sub