字母如何转成大小写？

louxiaolu

字母如何转成大小写？
1.lower转成小写
2.upper转成大写
3.proper转成首字母大写

Alpha

也可使用下列VBA代码实现

将所选区域的小写字母转换为大写

1. Sub CaseConversion()
   
2.   Dim cell As Range
   
3.   For Each cell In selection
   
4.     If cell.Value <> "" Then
   
5.       cell.Value = UCase(cell.Value)
   
6.     End If
   
7.   Next cell
   
8.   MsgBox ("转换完成")
   
9. End Sub
   

复制代码

将所选区域的大写字母转换为小写

1. Sub CaseConversion()
   
2.   Dim cell As Range
   
3.   For Each cell In selection
   
4.     If cell.Value <> "" Then
   
5.       cell.Value = LCase(cell.Value)
   
6.     End If
   
7.   Next cell
   
8.   MsgBox ("转换完成")
   
9. End Sub
   

复制代码

两者的区别在于UCase和LCase；UCase是小转大，LCase是大转小

飞奔的老冯

财咖工具箱有类似的功能吧

louxiaolu

飞奔的老冯 发表于 2022-12-27 11:41
财咖工具箱有类似的功能吧

冯哥说的是这吗？

louxiaolu

Alpha 发表于 2022-12-28 10:39
也可使用下列VBA代码实现

将所选区域的小写字母转换为大写

好高级啊

549669126

财咖工具箱可以

云梦

Alpha 发表于 2022-12-28 10:39
也可使用下列VBA代码实现

将所选区域的小写字母转换为大写

这个代码是不是可以转化一个sheet所有需要转化的数据？
比我们财咖工具箱一个个转化快吧

Alpha

云梦 发表于 2023-1-5 10:11
这个代码是不是可以转化一个sheet所有需要转化的数据？
比我们财咖工具箱一个个转化快吧 ...

代码第三行：“For Each cell In selection” 表示该功能作用于所框选的单元格区域，如果想转换整个工作表可以全选后再执行代码

荆银平

好高级啊

Fengyoujia

新技能+1