工作表中的小写字母都变成大写

导读：请运行以下程序： Sub ConvertToUpperCase() Dim Rng As Range Worksheets(Sheet1).UsedRange.Select For Each Rng In Selection.Cells If Rng.HasFormula = False Then Rng.value = UCase(Rng.value) End If Next Rng End Sub

请运行以下程序：

　　Sub ConvertToUpperCase()

　　Dim Rng As Range

　　Worksheets("Sheet1").UsedRange.Select

　　For Each Rng In Selection.Cells

　　If Rng.HasFormula = False Then

　　Rng.value = UCase(Rng.value)

　　End If

　　Next Rng

　　End Sub

上一篇：Excel工作表的页码设置在任意单元格中
下一篇：货样广告品出口如何进行会计处理？

相关资讯: 推进财产信息系统建设或涉及房产税征收; 国际社会为何高度赞扬营改增; 全国税务领军人才学员选拔7月22日面试; 国务院部署＂中国制造2025＂国家级示范区; 营改增效果究竟咋样？第三方评估出炉