您是否遇到过有人坚持按下Caps Lock键输入所有内容的人？在某些工作表中，这可能是不可接受的。但是，您到了一个工作表，里面充满了全部大写的文本单元格。如何将所有内容都转换为大写和小写，而无需重新输入？

如果您发现自己处于这种情况，MakeProper宏可能会帮您解决问题。它将检查您选择的一系列单元格，然后将任何常量转换为Excel称为“适当大小写”的常量。

这仅表示完成后，单元格中每个单词的首字母将大写；其余的将是小写的。如果单元格包含公式，则将其忽略。

Sub MakeProper()

Dim rngSrc As Range     Dim lMax As Long, lCtr As Long

Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address)

lMax = rngSrc.Cells.Count

For lCtr = 1 To lMax         If Not rngSrc.Cells(lCtr).HasFormula Then             rngSrc.Cells(lCtr) = Application.Proper(rngSrc.Cells(lCtr))

End If     Next lCtr End Sub

如果您希望将范围内的所有文本都转换为小写，则可以使用以下宏MakeLower（）。

Sub MakeLower()

Dim rngSrc As Range     Dim lMax As Long, lCtr As Long

Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address)

lMax = rngSrc.Cells.Count

For lCtr = 1 To lMax         If Not rngSrc.Cells(lCtr).HasFormula Then             rngSrc.Cells(lCtr) = LCase(rngSrc.Cells(lCtr))

End If     Next lCtr End Sub

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2026）适用于Microsoft Excel 97、2000、2002和2003。