excel大写变小写

请执行以下步骤：

 

1.打开一个新工作簿。

 

2.在“工具”菜单中，指向“宏”，然后单击“Visual Basic 编辑器”（或者简单地按下 ALT+F11 组合键）。在“VisualBasic 编辑器”中，单击“插入”菜单，然后单击“模块”。

 

3.将以下示例代码键入或粘贴到模块中：

 

Sub LcaseX()

Dim sht As Worksheet

Dim X As Range

For Each sht InActiveWorkbook.Worksheets

sht.Select

For Each X InRange("A1:Z1000")

If TypeName(X.Value)= "String" And X.HasFormula = False Then

X.Value =LCase(X.Value)

End If

Next X

Next sht

End Sub

 

4.“运行”－>“运行子过程/用户窗体”

 

5. 选择宏，然后单击“运行”。