1.需求:将所选文本转换为小写文本。 2.代码: Sub convertUpperCase() Dim Rng As Range For Each Rng In Selection If Application.WorksheetFunction.IsText(Rng) Then Rng.Value = LCase(Rng) End If Next End Sub 3.效果