split拆分字符转数值后为什么还是用不了max函数？

apoul119

Sub t1()
    Dim tr As Variant
    s = "|0|0.6|0.6|2|2|2.8|2.8|6.2|6.2|8"
    tr = Split(s, "|")
    For t = 0 To UBound(tr)
        tr(t) = Val(tr(t))   '转了数值
    Next
    Debug.Print Application.Max(tr) '为什么求不出最值
End Sub

ykcbf1100

这样就可以。

我的理解是：tr是字串数组，你直接用val转数值，最后还是字串数组。

大灰狼1976

split返回的数组类型无解，只能做个影子数组。
另：既然遍历了一遍数组，何不直接取到最大值，当然你可能有其他用途，只是随口一说。

1. Sub t1()
   
2.     Dim tr As Variant, tr1#()
   
3.     s = "|0|0.6|0.6|2|2|2.8|2.8|6.2|6.2|8"
   
4.     tr = Split(s, "|")
   
5.     ReDim tr1(UBound(tr))
   
6.     For t = 0 To UBound(tr)
   
7.         tr1(t) = Val(tr(t))
   
8.     Next
   
9.     Debug.Print Application.Max(tr1)
   
10. End Sub

复制代码

feilanga

可以

ZHLK

Sub t1()
    Dim tr As Variant
    Dim arr()
    s = "|0|0.6|0.6|2|2|2.8|2.8|6.2|6.2|8"
    tr = Split(s, "|")
    ReDim arr(0 To UBound(tr))
    For t = 0 To UBound(tr)
        arr(t) = Val(tr(t))   '转了数值
    Next
    Debug.Print Application.WorksheetFunction.Max(arr) '为什么求不出最值
End Sub

limonet

Sub t1()
    Dim tr As Variant, A() As Variant
    s = "|0|0.6|0.6|2|2|2.8|2.8|6.2|6.2|8"
    tr = Split(s, "|")
    For t = 0 To UBound(tr)
        ReDim Preserve A(0 To t)
        A(t) = Val(tr(t))   '转了数值
    Next
    Debug.Print Application.Max(A) '为什么求不出最值
End Sub

apoul119

ykcbf1100 发表于 2023-7-24 10:27
这样就可以。

我的理解是：tr是字串数组，你直接用val转数值，最后还是字串数组。

谢谢老师回复

micch

split得到文本类型的数组，而数组类型定了后，等于好右边无论是什么类型，赋值完还是string。所以在vba里，这个方法是没用的。

就像定义了文本类型的变量，  用等于的方式赋值，只会得到还是文本的值

至于求最大值，既然循环了，就不需要max函数了。

准提部林

s = "0|0.6|0.6|2|2|2.8|2.8|6.2|6.2|8.5"
t = "max(" & Replace(s, "|", ",") & ")"
MsgBox Evaluate(t)

apoul119

谢谢老师回复