9.Excel vba开发-转换为大写

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.效果