如果您使用的工作表中包含大量文本，则可能有时您渴望使用Word这样的功能，该功能可以轻松地在大小写之间进行转换。 Excel包含此类功能，但它们旨在用于宏，而不是菜单中的命令。

如果要快速转换较大范围的文本而无需在该区域的单元格中重新键入文本，则可以使用以下宏：

Sub MakeUpper()

Dim MyText As String     Dim MyRange As Range     Dim CellCount As Integer

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

For CellCount = 1 To MyRange.Cells.Count         If Not MyRange.Cells(CellCount).HasFormula Then             MyText = MyRange.Cells(CellCount).Value             MyRange.Cells(CellCount).Value = UCase(MyText)

End If     Next CellCount End Sub

此宏将逐步浏览所选范围内的单元格，将不包含公式的任何单元格的内容转换为大写。您可以轻松地修改宏，以便通过将UCase函数（在宏底部附近使用）更改为LCase来将其转换为小写字母。另一个不错的修改是，如果要使用标题大小写而不是大写或小写。 （仅在每个单词的第一个字母都大写的情况下才使用这种情况。）为此，将UCase（MyText）替换为Application.Proper（MyText）。

注意：

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

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

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

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