Excel大小写转换 上传者：u514339461 2020-08-21 12:47:52上传 XLS文件 22KB 热度 28次 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 下载地址 用户评论 更多下载
