VBA val(AA120)返回是0,怎麽才能返回120?

這個就比較煩了，我能想到的只有把該字符串分割成壹個壹個的字符，組成數組，然後判斷替換，只剩下數字再組合成字符串，用VAL（）提取

下面這段代碼大概是這個意思，

Sub FW()

Dim arr, rng As Range, r%

For Each rng In ActiveSheet.UsedRange

If Len(rng.Value) > 0 Then

ReDim arr(1 To Len(rng.Value))

For r = 1 To Len(rng.Value)

arr(r) = Mid(rng.Value, r, 1)

Next r

For r = 1 To UBound(arr)

If Asc(arr(r)) < 48 Or Asc(arr(r)) > 57 Then

arr(r) = ""

End If

Next r

rng.Value = IIf(Val(Join(arr, "")), Val(Join(arr, "")), "")

End If

Next rng

End Sub