<em>vba</em> 函数输入，不想要它大小写敏感怎么弄-excel vba 大写,vba转

点菜单的编辑，替换，查来找处输入
a
替换处输入
A
全部替换；...

也可以用公式法：
在Sheet2的A1输入
=IF(Sheet1!A1="","",upper(Sheet1!A1))
右键自复制A1，选中A1到百H100，回车粘度贴；接着右键，复制；再右键，选择性粘贴，数值，确定。
然后回到Sheet1，选中A到H列，点菜单的格式刷，到Sheet2，点A到H列，完成。

你看一下帮助中的instr就知知道，它的第四个参数就是控制比较模式的，要忽略大道小写用文本模式就行了，也就是
If InStr(1,s, cell_value,vbTextCompare) > 0 Then
vbTextCompare也可以直接写内成1

另外一种方法就是在比较时将字符串统一转成大写容或者小写，比如
If InStr(UCase(s), UCase(cell_value)) > 0 Then
Sub 人民币大写转数字()
Dim reg As Object, arr, b$, a
arr = Range("a1:a" & [a65536].End(xlUp).Row)
For i = 1 To UBound(arr)
a = Split(arr(i, 1), "元")
k = Len(arr(i, 1))
If Right(a(0), 1) = "佰e79fa5e98193e4b893e5b19e333" Then a(0) = a(0) & "零零": k = k + 2
If Right(a(0), 1) = "拾" Then a(0) = a(0) & "零": k = k + 1
a(0) = a(0) & "."
a = Join(a, "")
Do While x < k
x = x + 1
Select Case Mid(a, x, 1)
Case "壹"
b = b & 1
Case "贰"
b = b & 2
Case "叁"
b = b & 3
Case "肆"
b = b & 4
Case "伍"
b = b & 5
Case "陆"
b = b & 6
Case "柒"
b = b & 7
Case "捌"
b = b & 8
Case "玖"
b = b & 9
Case "零"
b = b & 0
Case "万"
b = b & ""
Case "仟"
b = b & ""
Case "佰"
b = b & ""
Case "拾"
b = b & ""
Case "角"
b = b & ""
Case "分"
b = b & ""
Case "."
b = b & "."
End Select
Loop
Range("a" & i) = "￥" & b & "元"
b = "": a = "": x = 0
Next
End Sub

有的

1. 小写字母转大写字母：Ucase()

2. 大写字母转小写字母：Lcase()