发布网友 发布时间:2022-04-22 20:55
共1个回答
热心网友 时间:2023-07-24 20:34
原处改动(假设在A列),两种方法:
1.
在B1输入
=UPPER(A1),公式复制下去。
右键点B列,复制;右键点A1,
选择性粘贴,数值
,确定。
右键点B列,删除。
2.
同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Sub
test()
Dim
cell
As
Range
For
Each
cell
In
Range("
A1:A5
")
cell
=
UCase(cell)
Next
End
Sub
假设你的字母们在A3到C50,那么把粗体的A1:A5改为A3:C50,然后在此界面下直接按F5运行此宏,完成。