excel vba ，单元格 字母 大写 转换小写。 全部转换，求过程代码

单元格内包含 “()”、“-”。
要求保留符号存在。
我知道，我想知道过程代码
谢谢

Sub 按钮1_Click()
Dim n As Integer, m

For n = 2 To 380
m = Sheet3.Cells(4, n)
Sheet3.Cells(5, n) = LCase(m)
Next

End Sub

我写的这个无法运行。小弟是新手，不知道什么原因，求指正

可以运行的，但我不知道你的EXCEL版本，因为你获取的是行固定，列变量。 有些excel版本是没有380列的。
Sub 按钮1_Click()
Dim n As Integer, m
For n = 2 To 380
m = Sheet3.Cells(4, n) 'cells(行，列）
Sheet3.Cells(5, n) = LCase(m)'cells(行，列）
Next
End Sub

For n = 2 To 380 Sheet3.Cells(5, n) = LCase(Sheet3.Cells(5, n) ) Nex

如上图所示 请先alt+f11打开vba窗口，再把下面代码复制 到 thisworkbook 模块中(先双击双击左边的thisworkbook） private sub workbook_sheetchange(byval sh as object, byval target as range)     dim a as string     a = replace(target.address, "$", "")     if a like "a?" then         if a <> "a1" then target = ucase(target)     end if end sub