怎样把excel的一整列按规则进行大小写替换？

[lljllj2000]

比如有这样一列:

ABC_EFGH_IJ
KL_MN_OPG
...

替换成
Abc_Efgh_Ij
Kl_Mn_Opg
...

也就是首字母和下划线后首字母不变，其他变为小写。

[northwolves]

[CODE]
Sub macro1()
Dim arr, b() As String, i As Long, j As Long
arr = [a1].Resize([a65536].End(xlUp).Row)
For i = 1 To UBound(arr)
b = Split(arr(i, 1), "_")
For j = 0 To UBound(b)
b(j) = StrConv(b(j), vbProperCase)
Next
arr(i, 1) = Join(b, "_")
Next
[b1].Resize(UBound(arr)) = arr
MsgBox "OK"
End Sub
[/code]

[northwolves]

Sub macro1()
Dim arr, b() As String, i As Long, j As Long
arr = [a1].Resize([a65536].End(xlUp).Row)
For i = 1 To UBound(arr)
b = Split(arr(i, 1), "_")
For j = 0 To UBound(b)
b(j) = StrConv(b(j), vbProperCase)
Next
arr(i, 1) = Join(b, "_")
Next
[b1].Resize(UBound(arr)) = arr
MsgBox "OK"
End Sub