百科网

首页 > 科技数码

科技数码

Excel vba实现字母全部转小写

科技数码佚名2024-01-03

具体代码如下:

"将A列转字母全部转换成小写

Sub test1() "设置TEST为过程的名称

Dim x As Integer "声明X为整数变量

For x = 1 To Range("A65536").End(xlUp).Row "设置X的范围为1到A列最后空白单元格的行数

Range("A" & x) = LCase(Range("A" & x)) "附值单元格Ax的格式全部转换为小写,如果是UCase,则转换成大写

Next x "循环X

End Sub "结束过程

假设源数据在A列,所以上面代码的range A。具体应用,自己进行简单修改了。

此内容属于进阶,一般的童鞋灵活运用upper ,lower这几个函数就行了

打赏