可以使用UPPER函数实现。
假设表格如下,将A列小写字母变为大写填充在B列相应位置。
具体步骤:在B1单元格中输入公式 =UPPER(A1),回车确认,然后向下填充即可。
1、第一种方法是使用upper公式,在小写字母旁边的黄色单元格输入=UPPER(C5),回车后,就变成大写字母了,剩下的单元格直接向下拖拽ok了.
2、创建一个宏,名字命名为小写变大写。弹出的命令中输入
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 Macro1()
Dim MyCell As Object
For Each MyCell In Selection
MyCell.Value = UCase(MyCell.Value)
Next
End Sub使用方法:1:选择需要转换为大写的单元格2:运行宏 MACRO1 宏指令修改办法:如果不会编写宏,可以执行【工具】-【宏】-【录制新宏】,随意选择一个单元格,结束录制,将上面的代码覆盖新生成的代码即可
ucase
lcase比如指定A列
Private Sub Worksheet_Change(ByVal Target As Range)
if target.column <> 1 then exit sub '指定A列
if target.count <> 1 then exit sub
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub
if target.row <> 1 then exit sub '指定第一行
if target.address <> "$A$1" then exit sub '指定A1单元格
按shift键即可