关于大小写转换在execl 中怎么实现

[sam11]

关于大小写转换在execl 中怎么实现

[sam11]

不是得,我是想假如execl表中有小写字母的换成大写的

[thoughter]

用个宏行不行？
Sub toUpper()
Dim R, C As Integer
For R = 1 To ActiveSheet.UsedRange.Rows.Count
For C = 1 To ActiveSheet.UsedRange.Columns.Count
Cells(R, C) = UCase$(Cells(R, C))
Next C
Next R
End Sub

[ChinaOBS]

如果是关于金额的话... ...

用公式或VBA函数。
如果用公式的话，你搜索一下一个叫OBS.DLL的加载项，加载后有一个大小写转换的按钮；

如果用函数的话：
Public Function dx(n)
dx = Replace(Application.Text(Round(n+0.00000001, 2), "[DBnum2]"), ".", "元")
dx = IIf(Left(Right(dx, 3), 1) = "元", Left(dx, Len(dx) - 1) & "角" & Right(dx, 1) & "分", IIf(Left(Right(dx, 2), 1) = "元", dx & "角整", IIf(dx = "零", "", dx & "元整")))
dx = Replace(Replace(Replace(Replace(dx, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
End Function



如果是字符大小写：
Lcase$----小写函数
Ucase$----大写函数