|
|
|
具体代码如下：
将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这几个函数就行了
|
|
发表留言请先登录！
|