1.需求:检查所选范围的每个单元格,然后将其转换为大写文本。 2. 代码: Sub convertUpperCase() Dim Rng As Range For Each Rng In Selection If Application.WorksheetFunction.IsText(Rng) Then Rng.Value = UCase(Rng) End If Next End Sub 3.效果