相关文章：

宏，一劳永逸的解决这个问题。

首先用“窗体”工具栏绘制四个命令按钮，将按钮上的文字更改为“全部大写”、“全部小写”、“句首字母大写”和“词首字母大写”。接着分别为每个按钮编写相应的宏代码。右击“全部大写”按钮，输入代码：

Sub 全部大写（）
Dim itarget As Range
Set itarget = S E L E C Tion
For Each ran In itarget
'将单元格内容转换为大写形式
ran.value = UCase（ran）
Next
End Sub

右击“全部小写”按钮，输入代码：
Sub 全部小写（）
Dim itarget As Range
Set itarget = S E L E C Tion
For Each ran In itarget
'将单元格内容转换为小写形式
ran.value = LCase（ran）
Next
End Sub

句首字母大写和词首字母大写的代码过长，大家可以到 https://www.icpcwo.com/bzsoft 下载。完成以上操作后按钮就可以使用了。选中目标单元格区域，单击相应的转换按钮，被选中的英文字符就立即转换成我们想要的大小写了（图2）。