Excel 自动大写选择区域字符

Sub UpperSelection()

Dim i, j As Integer
Dim iAreaCnt As Integer, iLoop As Integer, iLoopSub1 As Integer, iLoopSub2 As Integer
iAreaCnt = Selection.Areas.Count '选择的区域的数目， 多数为1
For iLoop = 1 To iAreaCnt
i = Selection.Areas(iLoop).Columns.Count '区域内列数
j = Selection.Areas(iLoop).Rows.Count '区域内行数

For iLoopSub1 = 1 To i
For iLoopSub2 = 1 To j
Selection.Areas(iLoop).Cells(iLoopSub2, iLoopSub1) = _
UCase(Selection.Areas(iLoop).Cells(iLoopSub2, iLoopSub1)) '转为大写
Next
Next
Next
End Sub