excel中怎样做一个宏快速转换英文字母大小写，然后设置一个键放在页面上就能把别人给小写报表全部转换大写

显示全部楼层 · 2012-11-25 00:19:41

Sub ChangetoUcase()'Jackson 记录的宏 2005-12-30'' 快捷键: Ctrl+pDim C As StringDim i As IntegerFor i = 1 To 50'Debug.Print Asc(i)C = "abcdefghijklmnopqrstuvopqrstuvwxyz"go = Mid(C, i, 1)Cells.Replace What:=go, Replacement:=UCase(go), LookAt:=xlPart, SearchOrder _:=xlByRows, MatchCase:=False, SearchFormat:=False, R...

千问 · 2012-11-25 00:19:41

这个直接用VBA转换函数即可解决，代码如下Sub test()
Dim rng As Range
For Each rng In UsedRange
rng.Value = UCase(rng.Value)
Next rngEnd Sub...

千问 · 2012-11-25 00:19:41

代码不是已经私信给你了？不行的话，把邮箱告诉我，我把文件发给你看看1...