Excel VBA代码问题！高手请进！！！

Question

For i = 3 To .Cells(65536, 3).End(xlUp).Row

If .Cells(i, 4) <> 1 Then
brr = Split(.Cells(i, 3), ",")
ReDim arr(UBound(brr))
For j = 0 To UBound(brr())
arr(j) = Val(brr(j))
Next j
ReDim crr(1 To UBound(brr()) - LBound(arr()) + 1)
For j = 1 To UBound(crr())
crr(j) = Application.WorksheetFunction.Small(arr(), j)
Next j
.Cells(i, 3) = crr(1)
For j = 2 To UBound(crr())
.Cells(i, 3) = .Cells(i, 3) & "," & crr(j)
Next j
End If
Next i
这只是一部分代码，但是一运行到这段代码时，当字母与数字多个组合时为0了
纯数字就没事，单个组合也没事
0,0
0,0
0,0
C10
0,0
R8
0，0本来应该是R1，R2之类的东东！
请高手指点，谢谢！！！

如有兴趣加QQ：107172400！有文档详聊！

Answer 1

在这里，arr(j) = Val(brr(j))你原有的非数字的字符就消失了，只会有数字，VAL会把非数字的字符清除调，只保留数字，没数字的话，arr(j)=0了追问

大侠那怎么改善了？

追答

你是想把按逗号分隔的字符串排序？
你贴一段原始字符串和期望的结果出来看看呢

追问

你真是个高手啊！好的

Answer 2

加Q了，我来帮你吧！！！本回答被提问者采纳