[已解决]分割取数倒序这个代码能进行改进吗？我想它运行速度更高

清风明月12

分割取数倒序即倒着取数的EXCEL自定义函数


Function 分割取数倒序(取数单元格, 倒的取数序号, 分隔符) As String
'按分割符取数,三个参数,第一个为对象,第二个为取第几个值(分割符每个值与其它值之间的分界线),第参数为分割符
On Error Resume Next
Dim temp
temp = Split(取数单元格, 分隔符)
A = 0
For i = 1 To 100
F = "墼"
F = temp(i - 1)

If F <> "墼" Then A = A + 1

Next i

分割取数倒序 = temp(A - 倒的取数序号)
End Function

最佳答案

月排行榜 / 总排行榜

djyjysxxs

2012-1-11 09:11

ubound、lbound分别取数组的最大下标和最小下标。
split返回的数组最小下标为0

跳转到最佳答案楼层

djyjysxxs

用split非常好！
后面的循环就没必要了。temp是个数组，可以直接取其相应元素嘛

清风明月12

我不知道如何求得数组中元素的个数

djyjysxxs

ubound、lbound分别取数组的最大下标和最小下标。
split返回的数组最小下标为0

djyjysxxs

F = "墼"在整个代码中没起到任何作用
只循环到100，要是数组元素多于100个呢？
因此如果要用你这个思路改成do循环，当出错时结束循环，循环中累加

清风明月12

谢谢大家，已经照4楼的改好了
Function 分割取数倒序(取数单元格, 倒的取数序号, 分隔符) As String
'按分割符取数,三个参数,第一个为对象,第二个为取第几个值(分割符每个值与其它值之间的分界线),第参数为分割符
On Error Resume Next
Dim temp
temp = Split(取数单元格, 分隔符)
A = UBound(temp, 1)


分割取数倒序 = temp(A - 倒的取数序号 + 1)

End Function